C# KOD ÖRNEKLERİ: LİSTVİEW İLE FAVORİ EXE LİSTESİ

KOD İNDİR

Son Değişiklikler 16.07.2013

ListView ile Çok sık kullanılan programlarınızı Bir arada liste halinde bulundurmak,istediğinizde tıklayarak çalıştırmak,uygulamanın bulunduğu dizine ulaşmak, exe programları ikonları ile birlikte Liste veya Detay halinde listelemek, Listeden satır silmek, Alt dizinlerin tümünü tarayarak listelemek, Exploreden çoklu dosya seçip yüklemek, liste halinde saklamak, Satır kaydırmak. listede isimle aramak, Registere kayıt eklemek, okuma ..vs.vs..ile ilgili tüm örnek kodları barındıran bir proje.....

FORM1 KODLARI

Imports System.IO
Imports System.Xml 'liste itemlerinin saklanma ve okunma şekli (XmlFiles) türünde
'Ikon kopyalama
Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Form1

#Region " DEĞİŞKEN TANIMLAMA YERİ...."

Public IkonList As New ImageList
    Public yol As String = My.Application.Info.DirectoryPath & My.Settings.XmlFileName
    Public Dsy_mi_Dzn_mi As Boolean = False
    Public intIndex As Integer = 0

Private eleman As ListViewItem
    Private altDzn As New ArrayList 'Alt dizinlerde aramak

Private PlayListDsyAdı As String
    Private IndexNo As Integer
    Dim SecilenSatir As Integer = 0
#End Region

#Region " FORM OLAYLARI......"
    Dim e As Object

Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        IndexNo = 1
        SaveSetting(Application.ProductName, Application.ProductName, "üst", Me.Top)
        SaveSetting(Application.ProductName, Application.ProductName, "sol", Me.Left)
        SaveSetting(Application.ProductName, Application.ProductName, "Açılışta Liste Yükle", Form2.AçılıştaLstYükleChk.Checked)
        SaveSetting(Application.ProductName, Application.ProductName, "Kapanırken Listeyi sakla", Form2.KapanırkenLstSaklaChk.Checked)
        SaveSetting(Application.ProductName, Application.ProductName, "Rastgele satır seç", Form2.RNDSatırSec.Checked)

If Form2.KapanırkenLstSaklaChk.Checked = True Then
            Call Listeyikaydet()
        End If
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Top = GetSetting(Application.ProductName, Application.ProductName, "üst", 200)
        Me.Left = GetSetting(Application.ProductName, Application.ProductName, "sol", 300)

Form2.AltKalsorYoluTxt.Text = GetSetting(Application.ProductName, Application.ProductName, "Alt Klasör başlama yolu", KlasorGosterFBD.RootFolder)
        Form2.DsySeçKlasorYoluTxt.Text = GetSetting(Application.ProductName, Application.ProductName, "Dosya Klasörü başlama yolu", KlasorGosterFBD.RootFolder)
        Form2.FavoriEXESaklamaYoluTxt.Text = GetSetting(Application.ProductName, Application.ProductName, "PlayList Kalsör yolu", Application.StartupPath)
        Form2.AçılıştaLstYükleChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Açılışta Liste Yükle", False)
        Form2.RNDSatırSec.Checked = GetSetting(Application.ProductName, Application.ProductName, "Rastgele satır seç", False)

If Form2.AçılıştaLstYükleChk.Checked = True Then
            Call ListeYukle()
        End If
        Form2.KapanırkenLstSaklaChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Kapanırken Listeyi sakla", True)
        Me.ChkListView.Checked = GetSetting(Application.ProductName, Application.ProductName, "ListView", True)

ToolTip1.SetToolTip(KlasörEkleBtn, " Seçilen Klasör ve Alt kalsörlerin içindeki dosyaları yükler ")
        ToolTip1.SetToolTip(DosyaEkleBtn, " Çoklu Dosya Seçerek Yükler")
        ToolTip1.SetToolTip(EXEListEkleBtn, " EXE *.xml Dosyası Yükler")
        ToolTip1.SetToolTip(AyarlarBtn, " Klasör Ve Genel Ayarlar (sağ tuş ile Klasör yolu sekmesi açılır)")
        ToolTip1.SetToolTip(YukarıBtn, " Seçili Satırı Yukarıya taşır ")
        ToolTip1.SetToolTip(AşağıBtn, " Seçili Satırı Aşağıya taşır ")
        ToolTip1.SetToolTip(FarkliSaklaBtn, " Farklı Sakla")
        ToolTip1.SetToolTip(ListeySaklaBtn, " Listeyi Varsayılan Olarak Saklar " & "(" & Application.ProductName & ".Xml" & ")")
        ToolTip1.SetToolTip(SilBtn, " Listeynin Tümünü Siler (Satır Silmek için DEL tuşunu kullanın)")
        ToolTip1.SetToolTip(ArananTxt, " Listede arananacak kelimeyi buraya yazın")
        ToolTip1.SetToolTip(AraBtn, " Listede arananacak kelimeyi yazıp tıklayın")
        ToolTip1.SetToolTip(ChkListView, " Liste Görünümünü değiştir")

ChkListView_CheckedChanged(sender, e)

Form2.LinkLabel1.Text = "Bilgisayar Dünyası"
        Form2.LinkLabel1.Links.Add(0, Form2.LinkLabel1.Text.Length, "http://eraslancemil.blogspot.com/2012/06/indir.html")
        Form2.LblVer.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
    End Sub

#End Region

#Region " LİSTEYİ XMLfile OLARAK YÜKLEME VE KAYDETME..."

#Region " LİSTEYİ YÜKLE..."

Private Sub ListeYukle()

Try
            LW1.Items.Clear()
            If Dsy_mi_Dzn_mi = False Then
                yol = My.Application.Info.DirectoryPath & My.Settings.XmlFileName
            Else
                yol = OpenFileDialog1.FileName
            End If

Dsy_mi_Dzn_mi = False

Dim XMLoku As New XmlTextReader(yol) '(My.Application.Info.DirectoryPath & "\" & My.Settings.XmlFileName)

XMLoku.MoveToContent()

Dim ElementName As String = ""
            Dim NextItem As Boolean = True
            Dim objListViewItem As ListViewItem = Nothing
          
            Do While XMLoku.Read
                If NextItem Then
                    objListViewItem = New ListViewItem
                    NextItem = False
                End If
                Select Case XMLoku.NodeType
                    Case XmlNodeType.Element
                        ElementName = XMLoku.Name
                    Case XmlNodeType.Text
                        If ElementName = "ParçaAdı" Then 'Sözcükte boşlUk olmayacak
                            objListViewItem.Text = XMLoku.Value
                        End If
                        If ElementName = "Yol" Then
                            'Ikon Al
                            Dim dosyalar As New List(Of String)()
                            dosyalar.Add(XMLoku.Value)
                            DosyalariYukle(dosyalar.ToArray())

NextItem = True
                            altDzn.Clear()
                        End If
                End Select
            Loop
            XMLoku.Close()

If Form2.RNDSatırSec.Checked = False Then
                eleman = LW1.Items(0)
                eleman.Selected = True
            Else
                Call SatirSec()
            End If

Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Public Sub IkonAl(path As String)

Dim ico = Me.Icon

If OpenFileDialog1.FileName <> Nothing Then

Dim ss As String = System.IO.File.Exists(path)

If ss Then
                IkonList.Images.Add(path, Icon.ExtractAssociatedIcon(path))
            Else
                IkonList.Images.Add(Nothing, ico)

End If
        Else
            IkonList.Images.Add(Nothing, ico)

End If

LW1.SmallImageList = IkonList

For i = 0 To LW1.Items.Count - 1
            LW1.Items(i).ImageIndex = i
        Next

End Sub
#End Region

#Region " LİSTEYİ KAYDET..."

Public Sub Listeyikaydet()
        Try
            Dim XMLyaz As New XmlTextWriter(yol, System.Text.Encoding.UTF8)

With XMLyaz
                .Formatting = Formatting.Indented
                .WriteStartDocument()
                .WriteStartElement("ParçaAdı") 'Sözcükte boşluk olmayacak
                Dim ListViewNesnesi As New ListViewItem
                For Each ListViewNesnesi In LW1.Items
                    .WriteStartElement("ParçaAdı") 'Sözcükte boşluk olmayacak
                    .WriteElementString("ParçaAdı", ListViewNesnesi.Text) 'Sözcükte boşluk olmayacak
                    .WriteElementString("Yol", ListViewNesnesi.SubItems(1).Text)
                    .WriteEndElement()
                Next
                .WriteEndElement()
                .WriteEndDocument()
                .Flush()
                .Close()
            End With
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(My.Settings.XmlFileName) 'ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
    End Sub

Public Sub FarklıSakla()
        Try
            Dim results As DialogResult
            SaveFileDialog1.Title = "Favori Dosyanı Farklı Sakla"
            SaveFileDialog1.Filter = "Favoriler Dosyası (*.xml)|*.xml"
            SaveFileDialog1.InitialDirectory = Application.StartupPath
            SaveFileDialog1.FileName = yol
            results = SaveFileDialog1.ShowDialog()
            If results = Windows.Forms.DialogResult.OK Then
                yol = SaveFileDialog1.FileName
                Call Listeyikaydet()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
    End Sub

#End Region

#Region " CONTEXT MENU OLAYLARI..."

Private Sub DsyDznAc_Click(sender As System.Object, e As System.EventArgs) Handles DsyDznAc.Click

Dim str As String = LW1.Items(LW1.FocusedItem.Index).SubItems(1).Text
        Dim yer As Integer
        yer = str.LastIndexOf("\")
        Dim dsyy As String
        dsyy = Mid(LW1.Items(LW1.FocusedItem.Index).SubItems(1).Text, 1, yer + 1)

System.Diagnostics.Process.Start("Explorer", dsyy)
    End Sub

Private Sub UygulamayiCalistirMn_Click(sender As System.Object, e As System.EventArgs) Handles UygulamayiCalistirMn.Click
        LW1_DoubleClick(sender, e)
    End Sub

Private Sub SatirSilMn_Click(sender As System.Object, e As System.EventArgs) Handles SatirSilMn.Click
        Call ListedenSatırSil()
        Form2.KapanırkenLstSaklaChk.Checked = True
    End Sub

#End Region

#Region " LISTVEW OLAYLARI..."

Private Sub LW1_DoubleClick(sender As Object, e As System.EventArgs) Handles LW1.DoubleClick
        Try
            'Me.LblIndex.Text = LW1.FocusedItem.Index

System.Diagnostics.Process.Start(LblYol.Text)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try

End Sub

Private Sub LW1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles LW1.SelectedIndexChanged
        On Error Resume Next
        Dim sayi As Integer = LW1.Items.Count
        Dim eleman As ListViewItem
        For i As Integer = 0 To sayi - 1
            eleman = LW1.Items(i)
            If eleman.Selected Then
                'SEÇİLENİN  İNDEXİNİ VE ADINI DA GÖSTER
                LblYol.Text = LW1.Items(i).SubItems(1).Text
                OpenFileDialog1.FileName = LblYol.Text
                ColumnHeader1.Text = "Adı              " & "( " & sayi & "  Kayıt Var )"
                ColumnHeader2.Text = "Yol              " & "( " & i + 1 & ".Satır seçili )"
                'Ikon al
                IkonPic.Image = Drawing.Icon.ExtractAssociatedIcon(Me.OpenFileDialog1.FileName).ToBitmap
                LblIndex.Visible = False

End If
        Next
    End Sub

#End Region

#Region " DRAGDROP OLAYLARI...."

Private Sub LW1_DragDrop1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles LW1.DragDrop
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        SilBtn.PerformClick() 'sil

Dim folders As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())

For Each folder As String In folders
            Try

DosyalariYukle(Directory.GetFiles(folder, "*.exe", SearchOption.AllDirectories))

Catch ex As Exception

End Try
        Next

End Sub

Private Function GetIcon(ByVal strFileName As String, ByVal imglName As ImageList) As Integer
        GetIcon = Nothing
        Try
            imglName.ColorDepth = ColorDepth.Depth32Bit
            Dim MyIcon As Icon = Icon.ExtractAssociatedIcon(strFileName)
            imglName.Images.Add(MyIcon)
            Return intIndex

Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        '// İmagelist ekledikten sonra Listwiew özelliklerinden (SmallImageList = SmallIcoIm)  olarak seçin.
    End Function

Private Sub LW1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles LW1.DragEnter
        e.Effect = e.AllowedEffect
    End Sub

#End Region

#Region " BUTON OLAYLARI...."

#Region " ChkListView BUTONU OLAYLARI...."
    Private Sub ChkListView_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkListView.CheckedChanged
        If ChkListView.Checked = True Then
            ChkListView.Image = ImageLstView.Images("Ayrıntılar.png")
            LW1.View = View.Details

Else
            LW1.View = View.List
            ChkListView.Image = ImageLstView.Images("Liste.png")

End If
        SaveSetting(Application.ProductName, Application.ProductName, "ListView", Me.ChkListView.Checked)

End Sub

Private Sub ChkListView_Click(sender As System.Object, e As System.EventArgs) Handles ChkListView.Click
        If ChkListView.Checked = True Then
            ChkListView.Image = ImageLstView.Images("Ayrıntılar.png")
        Else
            ChkListView.Image = ImageLstView.Images("Liste.png")
        End If
    End Sub
#End Region

#Region " ALT KLASÖRLERİ EKLE BUTONU..."

Private Sub DosyalariYukle(dosyalar As String())

Dim x As FileInfo
        Dim uzantisizUygulamaAdi As String

For Each dosya In dosyalar
            x = New FileInfo(dosya)
            uzantisizUygulamaAdi = x.Name.Replace(x.Extension, "")
            If UCase("uninstall") = UCase(uzantisizUygulamaAdi) Or UCase("uninstal") = UCase(uzantisizUygulamaAdi) Or UCase("unins") = Mid(UCase(uzantisizUygulamaAdi), 1, 5) Then GoTo pas

Dim u = LW1.Items.Add(uzantisizUygulamaAdi, GetIcon(x.FullName, SmallIcoIm))

intIndex = intIndex + 1
            u.SubItems.Add(x.FullName)
pas:
        Next
    End Sub

Private Sub KlasörEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles KlasörEkleBtn.Click
        SilBtn.PerformClick() 'sil
        'checkboxla kontrol koy
        KlasorGosterFBD.SelectedPath = Form2.AltKalsorYoluTxt.Text

If KlasorGosterFBD.ShowDialog() = Windows.Forms.DialogResult.OK Then

Windows.Forms.Cursor.Current = Cursors.AppStarting

Dim dosyalar As New List(Of String)()
            Dim di As System.IO.DirectoryInfo = New DirectoryInfo(KlasorGosterFBD.SelectedPath)

For Each fi As FileInfo In di.GetFiles("*.exe", SearchOption.AllDirectories)

dosyalar.Add(fi.FullName)
            Next
            DosyalariYukle(dosyalar.ToArray())
        End If
    End Sub

#End Region

#Region " ÇOKLU DOSYA EKLE BUTONU...."

Private Sub DosyaEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles DosyaEkleBtn.Click
        Me.OpenFileDialog1.Title = "EXE Çoklu Dosyası seçin"
        OpenFileDialog1.Filter = "EXE Dosyası (*.exe)|*.exe"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Multiselect = True
        OpenFileDialog1.InitialDirectory = Form2.DsySeçKlasorYoluTxt.Text

If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then

Dim sayı As Integer = Me.OpenFileDialog1.FileNames.Length - 1
            For i As Integer = 0 To sayı
                Dim dosyalar As New List(Of String)()
                dosyalar.Add(Me.OpenFileDialog1.FileNames((i)))
                DosyalariYukle(dosyalar.ToArray())
            Next
        End If
    End Sub
#End Region

#Region " FAVORİLER LİSTESİNDEN EKLE BUTONU..."

Private Sub EXEListEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles EXEListEkleBtn.Click

Dim results As DialogResult
        OpenFileDialog1.Title = "EXE Listesi Ekle"
        OpenFileDialog1.Filter = "Favori EXE Dosyaları (*.xml)|*.xml"

OpenFileDialog1.InitialDirectory = Application.StartupPath

results = OpenFileDialog1.ShowDialog()

If results = Windows.Forms.DialogResult.OK Then
            Dsy_mi_Dzn_mi = True
            yol = OpenFileDialog1.FileName
            Call ListeYukle()
        End If

End Sub

Private Sub SatirSec()
        On Error Resume Next
        Dim ListeElemanSayisi As Integer = LW1.Items.Count
        Dim eleman As ListViewItem
        Dim rastgeleSec As New Random()
        SecilenSatir = rastgeleSec.Next(LW1.Items.Count - 1)
        eleman = LW1.Items(SecilenSatir)
        eleman.Selected = True

'seçilen satırın ekranda görünmesi için KAYDIR
        Dim a As ListViewItem
        a = LW1.Items(SecilenSatir)
        LW1.TopItem = a
        'seçilen satırı göster
        LblYol.Text = LW1.Items(SecilenSatir).SubItems(1).Text
        LW1.Focus()

End Sub
#End Region

#Region " OK BUTONLARI VE OLAYLAR..."

Private Sub YukarıBtn_Click(sender As System.Object, e As System.EventArgs) Handles YukarıBtn.Click
        Try
            Dim Taşınan As New ListViewItem
            Dim TaşındığıIndex As Integer
            'Sütündan sıralama yapıldıktan sonra Oklarla Satır Taşımak için gerekli
            CheckBox1.Checked = True

If (LW1.Items.Count > 1) Then
                Taşınan = LW1.FocusedItem
                TaşındığıIndex = Taşınan.Index
                If TaşındığıIndex <> 0 Then

LW1.Items.Item(TaşındığıIndex) = LW1.Items.Item(TaşındığıIndex - 1).Clone()

LW1.Items.Item(TaşındığıIndex - 1) = Taşınan
                    LW1.Items(TaşındığıIndex).BackColor = Color.White
                    LW1.Items.Item(TaşındığıIndex - 1).Focused = True
                    LW1.FocusedItem.Selected = True
                    Me.LblIndex.Text = LW1.FocusedItem.Index
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub AşağıBtn_Click(sender As System.Object, e As System.EventArgs) Handles AşağıBtn.Click
        Try
            If (LW1.Items.Count > 1) Then
                Dim Taşınan As New ListViewItem
                Dim TaşındığıIndex As Integer

'Sütündan sıralama yapıldıktan sonra Oklarla Satır Taşımak için gerekli
                CheckBox1.Checked = True

Taşınan = LW1.FocusedItem
                TaşındığıIndex = Taşınan.Index
                If TaşındığıIndex <> LW1.Items.Count - 1 Then
                    LW1.Items.Item(TaşındığıIndex) = LW1.Items.Item(TaşındığıIndex + 1).Clone()
                    LW1.Items.Item(TaşındığıIndex + 1) = Taşınan
                    LW1.Items(TaşındığıIndex).BackColor = Color.White
                    LW1.Items.Item(TaşındığıIndex + 1).Focused = True
                    LW1.FocusedItem.Selected = True
                    Me.LblIndex.Text = LW1.FocusedItem.Index
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        'Sütündan sıralama yapıldıktan sonra Oklarla Satır Taşımak için gerekli
        If CheckBox1.Checked = True Then
            LW1.ListViewItemSorter = New ListViewComparer(5, SortOrder.Descending)
            LW1.Sort()
        End If
    End Sub
#End Region

#Region " LİSTE AÇ BUTONU...."

Private Sub FarkliSaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles FarkliSaklaBtn.Click
        My.Settings.XmlFileName = OpenFileDialog1.FileName
        Call FarklıSakla()
    End Sub
#End Region

#Region " LİSTE SAKLA BUTONU...."

Private Sub ListeySaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeySaklaBtn.Click
        Call Listeyikaydet()
    End Sub

#End Region

#Region " LİSTE SİL BUTONU...."

Private Sub SilBtn_Click(sender As System.Object, e As System.EventArgs) Handles SilBtn.Click

On Error Resume Next

Dim i As Integer
        For i = LW1.Items.Count - 1 To 0 Step -1
            LW1.Items.RemoveAt(i)
        Next

altDzn.Clear() 'Alt dizin sayısını sıfırla
        IkonPic.Image = Nothing 'seçilen indexin durumbarındaki resim siliniyor
        LblYol.Text = ""
        ColumnHeader1.Text = "Dosya Adı"
        ColumnHeader2.Text = "Dosya Yolu"

End Sub

#End Region

#Region " ESC İLE KAPATMA, DELETE İLE SATIR SİLME...."

Private Sub LW1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles LW1.KeyDown
        If e.KeyCode = Keys.Delete Then
            Call ListedenSatırSil()
            Form2.KapanırkenLstSaklaChk.Checked = True
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

Public Sub ListedenSatırSil()
        On Error Resume Next
        Dim indeksler As ListView.SelectedIndexCollection = LW1.SelectedIndices
        Dim index As Integer

LblYol.Text = Nothing

For Each index In indeksler
            LW1.Items.RemoveAt(index)
        Next

If index = 0 Then index = 0

index = index - 1

If index = -1 Then index = 0

ColumnHeader1.Text = "Adı :  " & "(" & index & "  Kayıt sayısı)"
        ColumnHeader2.Text = "Yol  " & "(" & index & " .Satır seçili)"

eleman = LW1.Items(index)
        eleman.Selected = True
        LW1.Focus()
        ListeySaklaBtn.Enabled = True
    End Sub
#End Region

#Region " AYARLAR BUTONU...."
 
    Private Sub AyarlarBtn_Click(sender As System.Object, e As System.EventArgs) Handles AyarlarBtn.Click
        On Error Resume Next
        Form2.Top = Me.Top
        Form2.Left = Me.Left + Me.Width - Form2.Width
        Form2.TabControl1.SelectedIndex = 0
        Form2.ShowDialog()

End Sub

Private Sub AyarlarBtn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AyarlarBtn.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then

Form2.Top = Me.Top
            Form2.Left = Me.Left + Me.Width - Form2.Width
            Form2.TabControl1.SelectedIndex = 1
            Form2.ShowDialog()

End If
    End Sub
#End Region

#Region " ARAMA TUŞU ( ListView' içinde)..."

Private Sub AraBtn_Click(sender As System.Object, e As System.EventArgs) Handles AraBtn.Click
        On Error Resume Next
        'Liste(görünümü) 'Arama uygulama, Mavi renk kullanarak
        'Değişken bildirimi ve arka plan beyaz tüm renkleri sıfırla

If ArananTxt.Text = "" Then Exit Sub

Dim i, isub As Integer
        Dim s As String
        For i = 0 To LW1.Items.Count - 1
            LW1.Items(i).BackColor = Color.White
        Next

'Bulursa, OrangeRed renk ile göster
        'Öğe görünümünde değilse, listview bir topitem yapmak için kaydır
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        For isub = 0 To 3
            For i = 0 To LW1.Items.Count - 1
                s = LW1.Items(i).SubItems(isub).ToString().ToLower()

If ArananTxt.Text <> "" Then
                    If s.Contains(ArananTxt.Text.ToLower()) = True Then
                        LW1.Items(i).ForeColor = Color.White
                        LW1.Items(i).BackColor = Color.OrangeRed
                        Dim a As ListViewItem
                        a = LW1.Items(i)
                        LW1.TopItem = a
                        LW1.Focus()
                    End If
                End If
            Next
        Next
    End Sub

Private Sub ArananTxt_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim i As Integer

For i = 0 To LW1.Items.Count - 1
                LW1.Items(i).BackColor = Color.White
                LW1.Items(i).ForeColor = Color.Black
            Next
        End If
        ArananTxt.Text = Nothing
    End Sub

Private Sub LW1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles LW1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim i As Integer

For i = 0 To LW1.Items.Count - 1
                LW1.Items(i).BackColor = Color.White
                LW1.Items(i).ForeColor = Color.Black
            Next
        End If
        ArananTxt.Text = Nothing
    End Sub
#End Region

#Region " KOLONDAN LİSTEYİ SIRALAMA OLAYLARI..."

#Region " LW1 KARŞILAŞTIRICI-COMPARER..."
    Public Class ListViewComparer 'ListView karşılaştırıcı
        Implements IComparer
        'Karşılaştırıcı değişkenleri

Private KolonNo As Integer
        Private KolonDüzenle As SortOrder

Public Sub New(ByVal column_number As Integer, ByVal Liste_Sirala As SortOrder)
            KolonNo = column_number
            KolonDüzenle = Liste_Sirala
        End Sub

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
            'Uygun sütundaki Nesnelerin x ve y öğelerini karşılaştır
            Dim item_x As ListViewItem = DirectCast(x, ListViewItem)
            Dim item_y As ListViewItem = DirectCast(y, ListViewItem)

'Alt değerleri
            Dim string_x As String
            If item_x.SubItems.Count <= KolonNo Then
                string_x = ""
            Else
                string_x = item_x.SubItems(KolonNo).Text
            End If

Dim string_y As String
            If item_y.SubItems.Count <= KolonNo Then
                string_y = ""
            Else
                string_y = item_y.SubItems(KolonNo).Text
            End If
            ' karşılaştır
            If KolonDüzenle = SortOrder.Ascending Then
                Return String.Compare(string_x, string_y)
            Else
                Return String.Compare(string_y, string_x)
            End If
        End Function
    End Class
#End Region

#Region " KOLON TIKLAMA OLAYI..."

Private KolonSırala As ColumnHeader

Private Sub LW1_ColumnClick(sender As System.Object, e As System.Windows.Forms.ColumnClickEventArgs) Handles LW1.ColumnClick

'Sıralama düzeni için bir sütuna tıkladığında, ilgili sütunun sıralandığı "A>Z" veya "Z>A" ile gösterilir

Dim Yeniden_KolonSırala As ColumnHeader = LW1.Columns(e.Column)
        Dim Liste_Sirala As System.Windows.Forms.SortOrder

If KolonSırala Is Nothing Then
            Liste_Sirala = SortOrder.Ascending
        Else
            If Yeniden_KolonSırala.Equals(KolonSırala) Then
                If KolonSırala.Text.StartsWith("A>Z  ") Then
                    Liste_Sirala = SortOrder.Descending
                Else
                    Liste_Sirala = SortOrder.Ascending
                End If
            Else
                Liste_Sirala = SortOrder.Ascending
            End If
            KolonSırala.Text = KolonSırala.Text.Substring(5) 'sıralama string uzunluğu >> "A>Z "
        End If

KolonSırala = Yeniden_KolonSırala

If Liste_Sirala = SortOrder.Ascending Then
            KolonSırala.Text = "A>Z  " & KolonSırala.Text

Else
            KolonSırala.Text = " Z>A " & KolonSırala.Text

End If
        'Sütündan sıralama yapıldıktan sonra Oklarla Satır Taşımak için gerekli
        CheckBox1.Checked = False
        LW1.ListViewItemSorter = New ListViewComparer(e.Column, Liste_Sirala)
        LW1.Sort()

End Sub

#End Region

End Class

FORM2 KODLARI

Public Class Form2

#Region " FORM OLAYLARI...."
    Private Sub Form2_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Application.ProductName, "Alt Klasör başlama yolu", AltKalsorYoluTxt.Text)
        SaveSetting(Application.ProductName, Application.ProductName, "Dosya Klasörü başlama yolu", DsySeçKlasorYoluTxt.Text)
        SaveSetting(Application.ProductName, Application.ProductName, "PlayList Kalsör yolu", FavoriEXESaklamaYoluTxt.Text)
    End Sub

#End Region

#Region " KLASÖR AYARLARI...."

Private Sub PlayListEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles PlayListEkleBtn.Click
        If Me.FavoriEXESaklamaYoluTxt.Text = "" Then
            Form1.KlasorGosterFBD.SelectedPath = Application.StartupPath
        Else
            Form1.KlasorGosterFBD.SelectedPath = Me.FavoriEXESaklamaYoluTxt.Text
        End If

If (Form1.KlasorGosterFBD.ShowDialog() = DialogResult.OK) Then
            FavoriEXESaklamaYoluTxt.Text = Form1.KlasorGosterFBD.SelectedPath
        End If
    End Sub

Private Sub KlasörEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles KlasörEkleBtn.Click
        If Me.AltKalsorYoluTxt.Text = "" Then
            Form1.KlasorGosterFBD.SelectedPath = Form1.KlasorGosterFBD.RootFolder
        Else
            Form1.KlasorGosterFBD.SelectedPath = Me.AltKalsorYoluTxt.Text
        End If

If (Form1.KlasorGosterFBD.ShowDialog() = DialogResult.OK) Then
            AltKalsorYoluTxt.Text = Form1.KlasorGosterFBD.SelectedPath

End If
    End Sub

Private Sub DosyaEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles DosyaEkleBtn.Click
        If Me.DsySeçKlasorYoluTxt.Text = "" Then
            Form1.KlasorGosterFBD.SelectedPath = Form1.KlasorGosterFBD.RootFolder
        Else
            Form1.KlasorGosterFBD.SelectedPath = Me.DsySeçKlasorYoluTxt.Text
        End If

If (Form1.KlasorGosterFBD.ShowDialog() = DialogResult.OK) Then
            DsySeçKlasorYoluTxt.Text = Form1.KlasorGosterFBD.SelectedPath
        End If

End Sub
#End Region

#Region " GENEL AYARLAR...."

Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        If My.Computer.Network.IsAvailable = False Then
            MessageBox.Show("İnternete Bağlı Değil")
            Exit Sub
        End If
        System.Diagnostics.Process.Start(e.Link.LinkData)
    End Sub

Private Sub RNDSatırSec_Click(sender As System.Object, e As System.EventArgs) Handles RNDSatırSec.Click
        If RNDSatırSec.Checked = False Then
            RNDSatırSec.Text = "İlk satırı Seç"
        Else
            RNDSatırSec.Text = "Rastgele satır Seç"

End If
    End Sub

#End Region
End Class

13 Temmuz 2013 Cumartesi

LİSTVİEW İLE FAVORİ EXE LİSTESİ

Hiç yorum yok:

Yorum Gönder