C# KOD ÖRNEKLERİ: Temmuz 2013

28 Temmuz 2013 Pazar

TEXT ŞİFRELEME ÖRNEK KODU

TEXT ŞİFRELEME ÖRNEK KODU

Public Class Form1
    Dim DsySaklaDialog As New SaveFileDialog With {.Filter = "Şifreli Dosyalar|*.giz"}
    Dim ButunTxt, secenek, u As String
    Private DsyAdi As String
    Dim textSonu As New TextBox
    Dim y As Int32
    Dim zx As String

Public TxtOku As IO.StreamReader
    Public Yaz As IO.StreamWriter

Private Sub DosyaAçBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DosyaAçBtn.Click

Dim DsyAcDialog As New OpenFileDialog
        DsyAcDialog.Filter = "Şifreli Dosyalar|*.giz|Text Dosyalar|*.txt"
        DsyAcDialog.InitialDirectory = Application.StartupPath

If DsyAcDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Windows.Forms.Cursor.Current = Cursors.AppStarting
            If DsyAcDialog.FilterIndex = 1 Then
                Me.Text = "Text Şifrelemek ve Açmak" & " - " & IO.Path.GetFileNameWithoutExtension(DsyAcDialog.FileName)
                ButunTxt &= IO.File.ReadAllText(DsyAcDialog.FileName)
                Dim s As String = "abcçdefgğhıijklmnoöpqrsştuüvwxyz"
                For Each st In s
                    ButunTxt = ButunTxt.Replace(st, "")
                Next

ButunTxt = ButunTxt.Replace(":", vbNewLine)

IO.File.WriteAllText("tx.txt", ButunTxt)
                For Each Me.zx In IO.File.ReadAllLines("tx.txt")
                    y = Convert.ToInt32(zx)
                    u &= Convert.ToChar(y)
                Next

TextBox1.Text = u
                ButunTxt = String.Empty
                u = String.Empty
                IO.File.Delete("tx.txt")
            Else

TextBox1.Clear()
                TextBox1.Text = IO.File.ReadAllText(DsyAcDialog.FileName)
                Me.Text = "Text Şifrelemek ve Açmak" & " - " & IO.Path.GetFileNameWithoutExtension(DsyAcDialog.FileName)

End If

End If
    End Sub

Dim say As Int32

Private Sub ŞifreliSaklaBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ŞifreliSaklaBtn.Click

If TextBox1.Text = Nothing Then

Else

DsySaklaDialog.InitialDirectory = Application.StartupPath
            If DsySaklaDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Windows.Forms.Cursor.Current = Cursors.AppStarting

textSonu.Text = TextBox1.Text
                Application.DoEvents()
                For Each t In textSonu.Text
                    say += 1
                    If say = 1 Then

secenek &= Convert.ToInt32(t) & ":abcçdefgğhıijklmnoöpqrsştuüvwxyz"
                    ElseIf say = 2 Then
                        secenek &= Convert.ToInt32(t) & ":zyxwvüutşsrqpöonmlkjiıhğgfedçcba"
                    ElseIf say = 3 Then
                        secenek &= Convert.ToInt32(t) & ":öonmlkjiıhğgfedçcbazyxwvüutşsrqp"
                        say = 0
                    End If
                Next

IO.File.WriteAllText(DsySaklaDialog.FileName, secenek)
                SilBtn.PerformClick()

End If
        End If

End Sub

Private Sub SilBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilBtn.Click
        TextBox1.Text = String.Empty
        ButunTxt = String.Empty
        secenek = String.Empty
        textSonu.Text = String.Empty
    End Sub

Private Sub TxtOlarakSaklaBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtOlarakSaklaBtn.Click
        Try
            With DsySaklaDialog
                .AddExtension = True
                .CheckPathExists = True
                .CreatePrompt = False
                .OverwritePrompt = True
                .ValidateNames = True
                .ShowHelp = True
                .DefaultExt = "txt"
                .FileName = DsyAdi
                .Filter = "Text Dosyaları (*.txt)|*.txt"
                .FilterIndex = 1

If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    My.Computer.FileSystem.WriteAllText(.FileName, TextBox1.Text, False)
                End If

End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

Private Sub ŞifreliMetniAçBtn_Click(sender As System.Object, e As System.EventArgs) Handles ŞifreliMetniAçBtn.Click
        Dim openDLG As New OpenFileDialog
        openDLG.DefaultExt = "giz"
        openDLG.Filter = "Şifreli Dosyalar(*.giz|*.giz"

If openDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
            Windows.Forms.Cursor.Current = Cursors.AppStarting
            Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(openDLG.FileName)
            uzanti = uzanti.ToLower

Select Case uzanti

Case ".giz"
                    TextBox1.Clear()
                    'TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.Default)
                    'TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.Unicode)
                    TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.UTF8)
                    'TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.ASCII)
                    'TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.GetEncoding(1254))

TextBox1.Text = TxtOku.ReadToEnd
                    TxtOku.Close()
                    TxtOku = Nothing
                    TextBox1.Focus()
                  
                Case Else
                    Try
                        System.Diagnostics.Process.Start(openDLG.FileName)
                    Catch ex As Exception
                        MessageBox.Show(uzanti & " 'Uzantılı uygulama Bulunamadı.", " Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
                    Exit Sub
            End Select
        End If
    End Sub

End Class

Kayan Panel Menü Örneği

PROJE KODLARINI

Public Class KayanMenu
    Dim pensure As Integer
    Dim Balon1, Balon2, Balon3, Balon4, Balon5 As Boolean

#Region " FORM OLAYLARI..."

Private Sub KayanMenu_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Application.ProductName, "pencere animasyon süresi", ComboTS.Text.ToString)
    End Sub
    Private Sub KayanMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboTS.Text = GetSetting(Application.ProductName, Application.ProductName, "pencere animasyon süresi", 20)
        pensure = ComboTS.Text.ToString
        Me.Width = 470
        Me.Height = 522

Panel2.Height = 0
        Panel3.Height = 0
        Panel4.Height = 0
        Panel5.Height = 0
        Panel1.Height = 0
        Timer5.Enabled = True
        Call lbl5()

CheckBox1.Checked = GetSetting(Application.ProductName, Application.ProductName, "Bar Yönü", False)
    
    End Sub

#End Region

#Region " LABEL-TİMER OLAYLARI..."

Private Sub lbl1()

Timer1.Enabled = True
        If Balon1 = False Then
            Balon2 = False
            Balon3 = False
            Balon4 = False
            Balon4 = False
            Balon1 = True
        Else
            Balon1 = False
        End If
    End Sub

Private Sub lbl2()

Timer2.Enabled = True
        If Balon2 = False Then
            Balon1 = False
            Balon3 = False
            Balon4 = False
            Balon5 = False
            Balon2 = True
        Else
            Balon2 = False
        End If
    End Sub

Private Sub lbl3()

Timer3.Enabled = True
        If Balon3 = False Then
            Balon1 = False
            Balon2 = False
            Balon4 = False
            Balon5 = False
            Balon3 = True
        Else
            Balon3 = False
        End If
    End Sub

Private Sub lbl4()

Timer4.Enabled = True
        If Balon4 = False Then
            Balon1 = False
            Balon2 = False
            Balon3 = False
            Balon5 = False
            Balon4 = True

Else
            Balon4 = False
        End If
    End Sub
    Private Sub lbl5()

Timer5.Enabled = True

If Balon5 = False Then
            Balon1 = False
            Balon2 = False
            Balon3 = False
            Balon4 = False
            Balon5 = True
        Else
            Balon5 = False
        End If
    End Sub
#End Region

#Region " TIMER OLAYLARI..."

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Panel2.Height = 0 And Panel3.Height = 0 And Panel4.Height = 0 Then
            If Balon1 = True Then
                If Panel5.Height > 0 Then Panel5.Height = 0 'panel5 açıksa kapat
                If Panel1.Height < 290 Then
                    Panel1.Height = Panel1.Height + pensure
                End If
            Else
                If Panel1.Height > 0 Then
                    Panel1.Height = Panel1.Height - pensure

End If
            End If
        End If
    End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Panel1.Height = 0 And Panel3.Height = 0 And Panel4.Height = 0 And Panel5.Height = 0 Then
            If Balon2 = True Then
                If Panel2.Height < 290 Then
                    Panel2.Height = Panel2.Height + pensure
                End If
            Else
                If Panel2.Height > 0 Then
                    Panel2.Height = Panel2.Height - pensure
                End If
            End If
        End If
    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If Panel1.Height = 0 And Panel2.Height = 0 And Panel4.Height = 0 And Panel5.Height = 0 Then
            If Balon3 = True Then
                If Panel3.Height < 290 Then
                    Panel3.Height = Panel3.Height + pensure
                End If
            Else
                If Panel3.Height > 0 Then
                    Panel3.Height = Panel3.Height - pensure
                End If
            End If
        End If
    End Sub
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If Panel1.Height = 0 And Panel2.Height = 0 And Panel3.Height = 0 And Panel5.Height = 0 Then
            If Balon4 = True Then
                If Panel4.Height < 290 Then
                    Panel4.Height = Panel4.Height + pensure
                End If
            Else
                If Panel4.Height > 0 Then
                    Panel4.Height = Panel4.Height - pensure
                End If
            End If
        End If
    End Sub

Private Sub Timer5_Tick(sender As System.Object, e As System.EventArgs) Handles Timer5.Tick

If Panel1.Height = 0 And Panel2.Height = 0 And Panel3.Height = 0 And Panel4.Height = 0 Then
            If Balon5 = True Then
                If Panel5.Height < 290 Then
                    Panel5.Height = Panel5.Height + pensure
                End If
            Else
                If Panel5.Height > 0 Then
                    Panel5.Height = Panel5.Height - pensure
                    If Panel5.Height = 290 Then Panel5.Height = 0
                End If
            End If
        End If
        'Me.Text = Panel5.Height

End Sub
#End Region

#Region " LİNKLABEL TIKLAMA OLAYLARI..."
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Call lbl1()
    End Sub
    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Call lbl2()
    End Sub
    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Call lbl3()
    End Sub
    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Call lbl4()
    End Sub

Private Sub LinkLabel5_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
        Call lbl5()
    End Sub
  
#End Region

#Region " MENÜ MOUSE_ENTER OLAYLARI..."
      Private Sub TsAnaMn_MouseEnter(sender As System.Object, e As System.EventArgs) Handles TsAnaMn.MouseEnter
        Call lbl1()
    End Sub

Private Sub TsIkon_MouseEnter(sender As System.Object, e As System.EventArgs) Handles TsIkon.MouseEnter
        Call lbl2()
    End Sub

Private Sub TsRadiButton_MouseEnter(sender As System.Object, e As System.EventArgs) Handles TsRadiButton.MouseEnter
        Call lbl3()
    End Sub

Private Sub TsSeçenekler_MouseEnter(sender As System.Object, e As System.EventArgs) Handles TsSeçenekler.MouseEnter
        Call lbl4()
    End Sub

Private Sub TsHkk_MouseEnter(sender As System.Object, e As System.EventArgs) Handles TsHkk.MouseEnter
        Call lbl5()
    End Sub

Private Sub ComboTS_TextChanged(sender As System.Object, e As System.EventArgs) Handles ComboTS.TextChanged
        pensure = ComboTS.Text.ToString
    End Sub
#End Region

#Region " MENÜ İÇİNDEN TIKLAMA OLAYLARI..."

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form
        frm.Show()
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
        Button1.PerformClick()
    End Sub

#End Region

Private Sub CevirBtn_Click(sender As System.Object, e As System.EventArgs) Handles CevirBtn.Click
        If CheckBox1.Checked = False Then CheckBox1.Checked = True Else CheckBox1.Checked = False
    End Sub

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            tsUstToolTipBar.Dock = DockStyle.Top
            CevirBtn.Image = YanIm.Image
            Me.Width = 470
            Me.Height = 526
            FlowLayoutPanel1.Top = 38
            tsUstToolTipBar.Height = 32
        Else
            CevirBtn.Image = UstimPic.Image
            FlowLayoutPanel1.Top = 7
            FlowLayoutPanel1.BringToFront()
            tsUstToolTipBar.Dock = DockStyle.Right

tsUstToolTipBar.Width = 38
            Me.Width = 470 + 42
            Me.Height = 522 - 30
            FlowLayoutPanel1.Height = Me.Height
        End If
        SaveSetting(Application.ProductName, Application.ProductName, "Bar Yönü", CheckBox1.Checked)

End Sub
End Class

23 Temmuz 2013 Salı

BAŞLAT MENÜSÜ BENZERİ BİR PROJE

Son Güncelleme 28.11.2015

Windows'un başlat menüsüne benzer, sabit olmayan bir Proje örneği..

Proje içinde:

Form Sürükleme, Form Köşelerini oval Yapma, Kullanıcı, Masaüstü,Bilgisayar, Belgeler, Aygıt ve yazıcılar..vb. klasörlerine ulaşma, Listview 'de arama, Seçilen satırı Enter veya tıklama ile çalıştırma., seçilen linkteki dosyanın klasörünü açtırma, ListView' de satır ve listeyi silme, .Xml formatlı kaydetme, ve okutma, Dosya sürükleyerek liste oluşturma, Detaylı ve liste halinde gösterme, Registerden ve Kaydedilen dosyadan geri yükleme, Dizinden seçilenleri kaydetme ve tekrar çağırma, Çağrılan dosyaları ikonları ile gösterme gibi daha pek çok kodun bulunduğu bir proje...

Forumlarda bu kodları tek tek aramak yerine burada bulabilirsiniz.

Bu proje eğitim amaçlı tasarlanmış olup, Masa üstünden çok sık kullandığınız programları listeler oluşturarak çabuk ve hızlıca ulaşmaktır. VB.NET öğrenmek isteyenler ve bu konuda yeni olanlar için bir kaynak olması için yapılmıştır...

Imports System.IO
Imports Microsoft.Win32
Imports System.Xml

Public Class Form1

#Region " DEĞİŞKENLER..."

Public eleman As ListViewItem
    Public intIndex As Integer = 0
    Public SecilenSatir As Integer = 0
    Public Dsy_mi_Dzn_mi As Boolean
    Public Dsy_Farkli_Sakla As Boolean = True
    Public VarsayilanYol As String = Application.StartupPath & "\FavExeListesi.xml"
    Public UserId As String = Environment.UserName.ToString
#End Region

#Region " DRAGDROP OLAYLARI...."

Private Sub ListView1_DragDrop1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        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 Sub ListView1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        e.Effect = e.AllowedEffect
    End Sub

#End Region

#Region " FORM KÖŞELERİNİ OVAL YAPMAK.."

'KÖŞELERİNİ OVAL YAPMAK
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Integer) As Integer
    Private Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer

Private Sub Mesaj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetWindowRgn(Me.Handle, CreateRoundRectRgn(0, 0, Me.Width, Me.Height, 22, 22), True)
        SetWindowRgn(Panel1.Handle, CreateRoundRectRgn(0, 0, Panel1.Width, Panel1.Height, 22, 22), True)
        SetWindowRgn(ListView1.Handle, CreateRoundRectRgn(0, 0, ListView1.Width, ListView1.Height, 22, 22), True)
        SetWindowRgn(Panel2.Handle, CreateRoundRectRgn(0, 0, Panel2.Width, Panel2.Height, 22, 22), True)
    End Sub

Private Function Control() As Color
        Throw New NotImplementedException
    End Function
#End Region

#Region " FORM KENAR ÇİZGİSİ EKLEMEK..."
    'Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    '    Dim g As Graphics = Panel1.CreateGraphics
    '    Dim cizgi As New Pen(Color.Gray, 4) 'Color.Black,Color.Blue, 'Color.red
    '    Dim dikdortgen As Rectangle = Panel1.ClientRectangle
    '    dikdortgen.Inflate(-1, -0)
    '    g.DrawRectangle(cizgi, dikdortgen)
    '    g.Dispose()
    'End Sub

#End Region

#Region " FORM SÜRÜKLEMEK.."

Const xy As Integer = &HA1
    Const xj As Integer = 2

Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, LinkPic.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then

Panel1.Capture = False  'Panelden tut sürükle
            LinkPic.Capture = False
            Dim msg As Message = Message.Create(Me.Handle, xy, New IntPtr(xj), IntPtr.Zero)
            Me.DefWndProc(msg)
        End If
    End Sub

#End Region

#Region " FORM OLAYLARI.."

Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        SaveSetting(Application.ProductName, Application.ProductName, "üst", Me.Top)
        SaveSetting(Application.ProductName, Application.ProductName, "sol", Me.Left)
        Call Listeyikaydet()
    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)
        ToolTip1.SetToolTip(TumProgramBtn, " Klasörden Dosya Yükleme ")
        ToolTip1.SetToolTip(RegdenYukleBtn, " Registerden dosyaları yükler ")
        ToolTip1.SetToolTip(EXEListEkleBtn, " Saklanmış Liste Yüklenir ")
        ToolTip1.SetToolTip(FarkliSaklaBtn, " Liste Farklı bir isimle Saklanır ")
        ToolTip1.SetToolTip(SilBtn, " Liste Silinir ")
        ToolTip1.SetToolTip(ChkListView, " Listeyi Ayrıntılı ve Liste halinde izleme ")
        ToolTip1.SetToolTip(ArananTxt, " Aranacak Dosya adında en az iki harf girilir ve bulunur ")
        ToolTip1.SetToolTip(KapatPopUpMn, " PopUp Menü ile Bilgisayar kapatma menüsü açılır ")
        ToolTip1.SetToolTip(MnResmiPic, " Kullanıcı hesapları ")
      
        KullAdiBtn.Text = (Environment.UserName.ToString) 'kullanıcı adını al

Call KullaniciResmi() 'administratör resmini al

If Dsy_Farkli_Sakla = True Then
            Call RegdenYukleBtn.PerformClick()
            Exit Sub
        Else
            KlasorGosterFBD.SelectedPath = GetSetting(Application.ProductName, Application.ProductName, "yol", "C:\Program Files")
            DsyAdiCol.Text = KlasorGosterFBD.SelectedPath
        End If

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 Sub

Public Sub KullaniciResmi()
        MnResmiPic.Visible = False
        transparanPic.Visible = True
        transparanPic.Left = 310
        transparanPic.Top = 0
        transparanPic.BackgroundImage = Bitmap.FromFile(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\temp\" & Environment.UserName & ".bmp")

End Sub

Public Sub RegisterdenYukle()
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        Try
            LinkPic.BringToFront()
            DsyAdiCol.Text = "     HKLM Alt anahtarlarından Alınan "
            Dim RegAnahtari, AltAnahtar As Microsoft.Win32.RegistryKey
            Dim regDsyadi, regDsyYolu As String
            Dim RegAnahtarAltYolu As String = "Software\Microsoft\Windows\CurrentVersion\Uninstall"

RegAnahtari = My.Computer.Registry.LocalMachine.OpenSubKey(RegAnahtarAltYolu)

Dim RegAltAnahtarlar() As String = RegAnahtari.GetSubKeyNames
            Dim Icerik As Boolean

For Each AltKey As String In RegAltAnahtarlar

AltAnahtar = RegAnahtari.OpenSubKey(AltKey)
                regDsyadi = AltAnahtar.GetValue("DisplayName", "")

If regDsyadi <> "" Then
                    Icerik = True
                    If regDsyadi.IndexOf("Hotfix") <> -1 Then Icerik = False
                    If regDsyadi.IndexOf("Security Update") <> -1 Then Icerik = False
                    If regDsyadi.IndexOf("Update for") <> -1 Then Icerik = False

If Icerik = True Then
                        regDsyYolu = AltAnahtar.GetValue("DisplayIcon")
                        If regDsyYolu <> Nothing Then
                            Dim ss As String = System.IO.File.Exists(regDsyYolu)
                            If ss Then
                                'uninstal türü programlar eklenmesin
                                If UCase("UNWISE.exe") = UCase(regDsyadi) Or _
                                    UCase("uninstall.exe") = UCase(regDsyadi) Or _
                                    UCase("uninstal.exe") = UCase(regDsyadi) Or _
                                    UCase("unins") = Mid(UCase(regDsyadi), 1, 5) Then GoTo pas

Dim dosyalar As New List(Of String)()
                                dosyalar.Add(regDsyYolu)
                                DosyalariYukle(dosyalar.ToArray())
                            End If
                        End If
                    End If
                End If

pas:
            Next
         
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & "Nesne başvurusu bir nesnenin örneğine ayarlanamadı")
        End Try
    End Sub

#End Region

#Region " MENÜ UYARI OLAYLARI.."

Private Sub KullAdiBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles KullAdiBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        transparanPic.BringToFront()
        MnResmiPic.Image = MnPicImg.Images("KullanıcıKLS.png")
        KullAdiBtn.FlatStyle = FlatStyle.Flat
        KullAdiBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub KullAdiBtn_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KullAdiBtn.MouseLeave
        KullAdiBtn.FlatStyle = FlatStyle.Popup
    End Sub
    Private Sub BelgelerBtn_MouseHover(sender As Object, e As System.EventArgs) Handles BelgelerBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("Belgeler.png")
        BelgelerBtn.FlatStyle = FlatStyle.Flat
        BelgelerBtn.Image = ImButton.Images("Buton_Boş.png")

End Sub

Private Sub BelgelerBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles BelgelerBtn.MouseLeave
        'MnResmiPic.Visible = False
        BelgelerBtn.FlatStyle = FlatStyle.Popup
    End Sub

Private Sub ResimLerBtn_MouseHover(sender As Object, e As System.EventArgs) Handles ResimLerBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("Resimler.png")
        ResimLerBtn.FlatStyle = FlatStyle.Flat
        ResimLerBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub ResimLerBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles ResimLerBtn.MouseLeave
        'MnResmiPic.Visible = False
        ResimLerBtn.FlatStyle = FlatStyle.Popup
    End Sub

Private Sub MuzikBtn_MouseHover(sender As Object, e As System.EventArgs) Handles MuzikBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("Müzik.png")
        MuzikBtn.FlatStyle = FlatStyle.Flat
        MuzikBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub MuzikBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles MuzikBtn.MouseLeave
        'MnResmiPic.Visible = False
        MuzikBtn.FlatStyle = FlatStyle.Popup
    End Sub
    Private Sub BilgisayarBtn_MouseHover(sender As Object, e As System.EventArgs) Handles BilgisayarBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.BringToFront()
        MnResmiPic.Image = MnPicImg.Images("Bilgisayar.png")
        BilgisayarBtn.FlatStyle = FlatStyle.Flat
        BilgisayarBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub BilgisayarBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles BilgisayarBtn.MouseLeave
        'MnResmiPic.Visible = False
        BilgisayarBtn.FlatStyle = FlatStyle.Popup
    End Sub

Private Sub AygitVeYaziciBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles AygitVeYaziciBtn.MouseLeave
        'MnResmiPic.Visible = False
        AygitVeYaziciBtn.FlatStyle = FlatStyle.Popup
    End Sub
    Private Sub AygitVeYaziciBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles AygitVeYaziciBtn.MouseHover
        'AygıtveYazıcı.png
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("AygıtveYazıcı.png")
        AygitVeYaziciBtn.FlatStyle = FlatStyle.Flat
        AygitVeYaziciBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub DenetimMasBtn_MouseHover(sender As Object, e As System.EventArgs) Handles DenetimMasBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("Denetim masası.png")
        DenetimMasBtn.FlatStyle = FlatStyle.Flat
        DenetimMasBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub DenetimMasBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles DenetimMasBtn.MouseLeave
        'MnResmiPic.Visible = False
        DenetimMasBtn.FlatStyle = FlatStyle.Popup
    End Sub

Private Sub YardımBtn_MouseHover(sender As Object, e As System.EventArgs) Handles YardımBtn.MouseHover
        MnResmiPic.Visible = True
        transparanPic.Visible = False
        MnResmiPic.Image = MnPicImg.Images("YardımIco.Ico")
        YardımBtn.FlatStyle = FlatStyle.Flat
        YardımBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub YardımBtn_MouseLeave(sender As Object, e As System.EventArgs) Handles YardımBtn.MouseLeave
        'MnResmiPic.Visible = False
        YardımBtn.FlatStyle = FlatStyle.Popup

End Sub

Private Sub KapatBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles KapatBtn.MouseHover

Call KullaniciResmi()
        transparanPic.BringToFront()
        KapatBtn.FlatStyle = FlatStyle.Popup
        KapatBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

#End Region

#Region " MENÜ TIKLAMA OLAYLARI.."

Private Sub DenetimMasBtn_Click(sender As System.Object, e As System.EventArgs) Handles DenetimMasBtn.Click
        System.Diagnostics.Process.Start("control.exe")
    End Sub

Private Sub ResimLerBtn_Click(sender As System.Object, e As System.EventArgs) Handles ResimLerBtn.Click
        Process.Start("explorer.exe", My.Computer.FileSystem.SpecialDirectories.MyPictures)
    End Sub

Private Sub MuzikBtn_Click(sender As System.Object, e As System.EventArgs) Handles MuzikBtn.Click
        Process.Start("explorer.exe", My.Computer.FileSystem.SpecialDirectories.MyMusic)
    End Sub

Private Sub BilgisayarBtn_Click(sender As System.Object, e As System.EventArgs) Handles BilgisayarBtn.Click
        System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
    End Sub

Private Sub BelgelerBtn_Click(sender As System.Object, e As System.EventArgs) Handles BelgelerBtn.Click
        Process.Start("explorer.exe", My.Computer.FileSystem.SpecialDirectories.MyDocuments)
        ' ''Belgelerim(klasörüyse)
        'Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Personal))
    End Sub

Private Sub YardımBtn_Click(sender As System.Object, e As System.EventArgs) Handles YardımBtn.Click

Process.Start("WinHlp32.exe")
    End Sub

#End Region

#Region " BİLGİSAYAR KAPATMA OLAYLARI.."

Private Sub BilKapatMn_Click(sender As System.Object, e As System.EventArgs) Handles BilKapatMn.Click
        Dim onay As DialogResult
        onay = MessageBox.Show("Bilgisayar Kapatılsın mı?", " Kapanacak", MessageBoxButtons.YesNo, _
                       MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

If (onay = DialogResult.Yes) Then
            System.Diagnostics.Process.Start("shutdown.exe", "-s -t 0") 'Kapat
        End If

End Sub

Private Sub BilYeniBaslatMn_Click(sender As System.Object, e As System.EventArgs) Handles BilYeniBaslatMn.Click
        'Process.Start("shutdown -r -t 1")
        System.Diagnostics.Process.Start("shutdown.exe", "-r -t 0") '>> Yeniden Başlat

End Sub

Private Sub OturumKapatMn_Click(sender As System.Object, e As System.EventArgs) Handles OturumKapatMn.Click
        'Oturumu kapat -kilit
        Shell("Shutdown -l")
    End Sub

Private Sub UykuModuMn_Click(sender As System.Object, e As System.EventArgs) Handles UykuModuMn.Click

'Uykuya al -askıya al
        Shell("Shutdown -h")
    End Sub

Private Sub KilitleMn_Click(sender As System.Object, e As System.EventArgs) Handles KilitleMn.Click
        'Kilitle - oklar
        Shell("rundll32.exe PowrProf.dll,SetSuspendState")
    End Sub

Private Sub KapatPopUpMn_MouseHover(sender As System.Object, e As System.EventArgs) Handles KapatPopUpMn.MouseHover

KapatPopUpMn.FlatStyle = FlatStyle.Popup

End Sub

Private Sub KapatPopUpMn_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPopUpMn.MouseLeave

KapatPopUpMn.FlatStyle = FlatStyle.Popup

End Sub

Private Sub KapatPopUpMn_Click(sender As System.Object, e As System.EventArgs) Handles KapatPopUpMn.Click
        KapatmaTipiCMS.Show(KapatBtn, 110, -100)
    End Sub

Private Sub KapatBtn_Click(sender As System.Object, e As System.EventArgs) Handles KapatBtn.Click
        Dsy_Farkli_Sakla = False
        Me.Close()

End Sub

#End Region

#Region " LİSTVİEW 'DEN ÇALIŞTIR OLAYLARI.."

Private Sub ListView1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles ListView1.DoubleClick
        Try
            System.Diagnostics.Process.Start(LblSecilenLink.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message & "  " & LblSecilenLink.Text)
        End Try

End Sub
#End Region

#Region " LİSTVİEW ARAMA OLAYLARI.."

Private Sub ArananTxt_Click(sender As System.Object, e As System.EventArgs) Handles ArananTxt.Click
        ArananTxt.Text = ""
    End Sub

Private Sub ArananTxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles ArananTxt.TextChanged
        If Len(ArananTxt.Text) < 2 Then Exit Sub

For Each item As ListViewItem In ListView1.Items
            item.BackColor = Color.White
        Next

Dim findItem As ListViewItem = ListView1.FindItemWithText(ArananTxt.Text)
        If findItem IsNot Nothing Then
            ListView1.MultiSelect = False
            ListView1.TopItem = findItem
            findItem.Selected = True
            findItem.BackColor = Color.Orange
        End If
    End Sub

#End Region

#Region " LİSTVİEW OLAYLARI.."

Private Sub ChkListView_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkListView.CheckedChanged
        If ChkListView.Checked = True Then
            ListView1.View = View.Details
            ChkListView.Image = ImageLstView.Images("Ayrıntılar.png")
        Else
            ListView1.View = View.List
            ChkListView.Image = ImageLstView.Images("Liste.png")
        End If

ListView1.Refresh()
    End Sub

Private Sub ListView1_Click(sender As System.Object, e As System.EventArgs) Handles ListView1.Click
        On Error Resume Next
        Dim secilen As New ListViewItem
        secilen = ListView1.FocusedItem
        For i As Integer = 0 To ListView1.Items.Count - 1
            secilen = ListView1.Items(i)
            If secilen.Selected Then
                LblSecilenLink.Text = ListView1.Items(i).SubItems(1).Text 'link
                LinkPic.Image = Drawing.Icon.ExtractAssociatedIcon(ListView1.Items(i).SubItems(1).Text).ToBitmap

End If
        Next
    End Sub

Private Sub ListView1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
        LinkPic.Visible = True
    End Sub

#End Region

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

Private Sub TumProgramBtn_Click(sender As System.Object, e As System.EventArgs) Handles TumProgramBtn.Click

Try

KlasorGosterFBD.SelectedPath = "C:\Program Files\Er_As"
            SaveSetting(Application.ProductName, Application.ProductName, "yol", KlasorGosterFBD.SelectedPath)
            If KlasorGosterFBD.ShowDialog() = Windows.Forms.DialogResult.OK Then

Windows.Forms.Cursor.Current = Cursors.AppStarting
                Call SilBtn.PerformClick()
                Dim dosyalar As New List(Of String)()

Dim di As System.IO.DirectoryInfo = New DirectoryInfo(KlasorGosterFBD.SelectedPath)
                DsyAdiCol.Text = System.IO.Path.GetFileName(KlasorGosterFBD.SelectedPath) 'sadece Dosya adı
                For Each fi As FileInfo In di.GetFiles("*.exe", SearchOption.AllDirectories)

dosyalar.Add(fi.FullName)
                Next
                DosyalariYukle(dosyalar.ToArray())
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & " Yoluna Erişim Engellendi", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
    End Sub

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("UNWISE") = UCase(uzantisizUygulamaAdi) Or UCase("uninstall") = UCase(uzantisizUygulamaAdi) Or UCase("uninstal") = UCase(uzantisizUygulamaAdi) Or UCase("unins") = Mid(UCase(uzantisizUygulamaAdi), 1, 5) Then GoTo pas

Dim u = ListView1.Items.Add(uzantisizUygulamaAdi, GetIcon(x.FullName, ImageList1))
            intIndex = intIndex + 1
            u.SubItems.Add(x.FullName)

LinkPic.Image = Drawing.Icon.ExtractAssociatedIcon(x.FullName).ToBitmap
            'MessageBox.Show(x.FullName)
pas:
        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

#End Region

#Region " ContextMenuStrip OLAYLARI.."

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 = ListView1.Items.Count - 1 To 0 Step -1
            ListView1.Items.RemoveAt(i)
        Next
        LinkPic.Image = Nothing

End Sub

Private Sub DsyDznAc_Click(sender As System.Object, e As System.EventArgs) Handles DsyDznAc.Click
        Dim str As String = ListView1.Items(ListView1.FocusedItem.Index).SubItems(1).Text
        Dim yer As Integer
        yer = str.LastIndexOf("\")
        Dim dsyy As String
        dsyy = Mid(ListView1.Items(ListView1.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
        ListView1_DoubleClick(sender, e)
    End Sub

Private Sub SatirSilMn_Click(sender As System.Object, e As System.EventArgs) Handles SatirSilMn.Click
        Call ListedenSatırSil()
    End Sub

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

LblSecilenLink.Text = Nothing

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

If index = 0 Then index = 0

index = index - 1

If index = -1 Then index = 0

eleman = ListView1.Items(index)
        eleman.Selected = True
        ListView1.Focus()

End Sub

Private Sub ListView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = Keys.Return Then
            ListView1_DoubleClick(sender, e)
        End If

If e.KeyCode = Keys.Delete Then
            Call ListedenSatırSil()
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        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
        Call SilBtn.PerformClick()
        results = OpenFileDialog1.ShowDialog()

If results = Windows.Forms.DialogResult.OK Then
            Windows.Forms.Cursor.Current = Cursors.AppStarting
            Dsy_mi_Dzn_mi = True
            VarsayilanYol = OpenFileDialog1.FileName
            DsyAdiCol.Text = System.IO.Path.GetFileName(OpenFileDialog1.FileName) 'sadece Dosya adı
            Call ListeYukle()
        End If
    End Sub
#End Region

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

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

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

Private Sub ListeYukle()
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        Try
            ListView1.Items.Clear()
            If Dsy_mi_Dzn_mi = True Then
                VarsayilanYol = OpenFileDialog1.FileName
            End If

Dsy_mi_Dzn_mi = False

Dim XMLoku As New XmlTextReader(VarsayilanYol) '(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)
                            Dim dsyAdi As String = System.IO.Path.GetFileName(XMLoku.Value)

If UCase("UNWISE.exe") = UCase(dsyAdi) Or UCase("uninstall.exe") = UCase(dsyAdi) Or _
                                UCase("uninstal.exe") = UCase(dsyAdi) Or UCase("unins") = Mid(UCase(dsyAdi), 1, 5) Then GoTo pas

Dim uzanti As String = System.IO.Path.GetExtension(XMLoku.Value)
                            uzanti = uzanti.ToUpper()
                            If Not uzanti = ".EXE" Then GoTo pas

Dim u = ListView1.Items.Add(dsyAdi, GetIcon(XMLoku.Value, ImageList1))
                            intIndex = intIndex + 1
                            u.SubItems.Add(XMLoku.Value)

LinkPic.Image = Drawing.Icon.ExtractAssociatedIcon(XMLoku.Value).ToBitmap
                            'MessageBox.Show(XMLoku.Value)
                            NextItem = True
pas:
                        End If
                End Select
            Loop
            XMLoku.Close()

'Call SatirSec()

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

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

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

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
                ImageList1.Images.Add(path, Icon.ExtractAssociatedIcon(path))
            Else
                ImageList1.Images.Add(Nothing, ico)

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

End If

ListView1.SmallImageList = ImageList1

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

End Sub
#End Region

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

Public Sub Listeyikaydet()
        If Dsy_Farkli_Sakla = True Then
            VarsayilanYol = SaveFileDialog1.FileName
        Else
            VarsayilanYol = Application.StartupPath & "\FavExeListesi.xml"
        End If

Try
            Dim XMLyaz As New XmlTextWriter(VarsayilanYol, System.Text.Encoding.UTF8)
            Dsy_Farkli_Sakla = False
            With XMLyaz
                .Formatting = Formatting.Indented
                .WriteStartDocument()
                .WriteStartElement("ParçaAdı") 'Sözcükte boşluk olmayacak
                Dim ListViewNesnesi As New ListViewItem
                For Each ListViewNesnesi In ListView1.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()
        Dsy_Farkli_Sakla = True
        Try
            Dim results As DialogResult
            SaveFileDialog1.Title = "Favori Dosyanı Farklı Sakla"
            SaveFileDialog1.Filter = "Favoriler Dosyası (*.xml)|*.xml"
            SaveFileDialog1.InitialDirectory = Application.StartupPath
            results = SaveFileDialog1.ShowDialog()
            If results = Windows.Forms.DialogResult.OK Then
                VarsayilanYol = 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 " ARAMA TUŞU ( ListView' içinde)..."

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 ListView1.Items.Count - 1
                ListView1.Items(i).BackColor = Color.White
                ListView1.Items(i).ForeColor = Color.Black
            Next
        End If
        ArananTxt.Text = Nothing
    End Sub

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

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

End Sub
#End Region

#Region "  TUŞ TIKLAMA VE UYARILARI.."

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

Private Sub RegdenYukleBtn_Click(sender As System.Object, e As System.EventArgs) Handles RegdenYukleBtn.Click
        Call SilBtn.PerformClick()
        Call RegisterdenYukle()
    End Sub
    Private Sub Panel1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Panel1.MouseLeave

Call KullaniciResmi()
        transparanPic.BringToFront()
        KapatBtn.Image = ImButton.Images("Buton_Boş.png")
    End Sub

Private Sub transparanPic_Click(sender As System.Object, e As System.EventArgs) Handles transparanPic.Click
        Windows.Forms.Cursor.Current = Cursors.AppStarting
        'Dim info As New ProcessStartInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "/system32/control.exe", "userpasswords")
        'Process.Start(info)
        'veya
        Process.Start("control", "userpasswords")
    End Sub

Private Sub AygitVeYaziciBtn_Click(sender As System.Object, e As System.EventArgs) Handles AygitVeYaziciBtn.Click

Process.Start("control", "printers")
        'System.Diagnostics.Process.Start("control", "system")
        'System.Diagnostics.Process.Start("explorer.exe", System.IO.Path.GetDirectoryName(Application.ExecutablePath)) 'Programın olduğu klasörü açar

End Sub

Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        ListView1_Click(sender, e)
    End Sub

Private Sub KullAdiBtn_Click(sender As System.Object, e As System.EventArgs) Handles KullAdiBtn.Click
        ''Kişisel klasöründen kastınız Kullanıcı klasörüyse:
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    End Sub

#End Region

End Class

13 Temmuz 2013 Cumartesi

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

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

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 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

#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

'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

2 Temmuz 2013 Salı

ListView ' de Dosyaları İkonları ile Gösterme

Windows Gezgininden Esinlenerek Çok sık kullanılan (*.Exe) programları listelemek ve Çalıştırmak ile ilgili deneme amaçlı bir proje...
Esas amaç listelenen dosyaları ikonları ile birlikte göstermek.
BURADAKİ Forumda bana yardımcı olan Aydın Akan Beyin de yardımlarıyla örnek olması için siteye eklemeyi uygun buldum. Aynı denemeyi bir medyaPlayer için de kurgulamıştım. Aynı Kalıbı kullanarak örneklemeye çalıştım.

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
    Dim IkonList As New ImageList
#Region " DEĞİŞKEN TANIMLAMA YERİ...."
    Public eleman As ListViewItem
    Public altDzn As New ArrayList 'Alat dizinlerde aramak
    Public PlayListDsyAdı As String
    Private IndexNo As Integer
    Dim SecilenSatir As Integer = 0
#End Region

#Region " FORM OLAYLARI......"

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

Private Sub PlayListtenÇıkTs_Click(sender As System.Object, e As System.EventArgs) Handles PlayListtenÇıkTs.Click
        Me.Close()
    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, "Satır Kaydırırken Renkli", Form2.SatırKaydırRenkliChk.Checked)
        SaveSetting(Application.ProductName, Application.ProductName, "Kapanırken Listeyi sakla", Form2.KanırkenLstSaklaChk.Checked)
        If Form2.KanırkenLstSaklaChk.Checked = True Then
            Call Listeyikaydet()
        End If
    End Sub

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.PlayListSaklamaYolu.Text = GetSetting(Application.ProductName, Application.ProductName, "PlayList Kalsör yolu", KlasorGosterFBD.RootFolder)
        Form2.AçılıştaLstYükleChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Açılışta Liste Yükle", False)
        If Form2.AçılıştaLstYükleChk.Checked = True Then
            Call ListeYukle()
        End If
        Form2.SatırKaydırRenkliChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Satır Kaydırırken Renkli", False)
        Form2.KanırkenLstSaklaChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Kapanırken Listeyi sakla", True)

ToolTip1.SetToolTip(KlasörEkleBtn, " Klasör Seçerek Tüm Alt kalsör dosyası yükler ")
        ToolTip1.SetToolTip(DosyaEkleBtn, " Çoklu Dosya Seçerek Yükler")
        ToolTip1.SetToolTip(PlayListEkleBtn, " PlayList *.mu3 Dosyası Yükler")
        ToolTip1.SetToolTip(AyarlarBtn, " Klasör Ve Genel Ayarlar")
        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(ListeAçBtn, " Varsayılan " & "(" & Application.ProductName & ".Xml" & ")" & " Listeyi Yükler")
        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")

End Sub

#End Region

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

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

Private Sub ListeYukle()

On Error Resume Next
        LW1.Items.Clear()

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

XMLoku.MoveToContent()

Dim ElementName As String = ""
        Dim NextItem As Boolean = True
        Dim objListViewItem As ListViewItem = Nothing

End If
                    If ElementName = "Yol" Then
                        objListViewItem.SubItems.Add(XMLoku.Value)
                        LW1.Items.Add(objListViewItem)
                        Call IkonAl(XMLoku.Value)
                        NextItem = True
                    End If
            End Select
        Loop
        XMLoku.Close()
        Call SatirSec()
    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(OpenFileDialog1.FileName, 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()

Dim XMLyaz As New XmlTextWriter(Application.StartupPath & My.Settings.XmlFileName, 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

End Sub
#End Region

#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

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
                LblParçaAdı.Text = LW1.FocusedItem.Index & " - " & LW1.Items(i).SubItems(0).Text
                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

End If
        Next
    End Sub

#End Region

#Region " BUTON OLAYLARI...."

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

Private Sub KlasörEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles KlasörEkleBtn.Click
        'Public LblBaslamaDizini.Text As New ArrayList ' Form1 içine eklenir

KlasorGosterFBD.SelectedPath = Form2.AltKalsorYoluTxt.Text

If (KlasorGosterFBD.ShowDialog() = DialogResult.OK) Then
            Windows.Forms.Cursor.Current = Cursors.AppStarting
            LblBaslamaDizini.Text = KlasorGosterFBD.SelectedPath

Dim dsyAdi As String
            Dim uzanti As String = "*.exe"  '*.Wav;*.wma"
            adddirectory(LblBaslamaDizini.Text, uzanti)  'adddirectory("D:\MP3\FAVORİLERİM", "*.mp3")

For i = 0 To altDzn.Count - 1
                dsyAdi = System.IO.Path.GetFileName(altDzn(i))
                Dim lvi As New ListViewItem

Me.OpenFileDialog1.FileName = dsyAdi
                If dsyAdi = "Uninstall.exe" Then GoTo pas

lvi.Text = Mid(dsyAdi, 1, Len(dsyAdi) - 4) 'Dosya Adında (.exe) kısmı gösterilmesin
                lvi.SubItems.Add((altDzn(i))) 'dosya yolu
                LW1.Items.Add(lvi)
                Call IkonAl(altDzn(i))
pas:
            Next
        End If

End Sub
     
    Public Sub adddirectory(ByVal subdir1 As String, ByVal subdir2 As String)
        Dim file() As String = System.IO.Directory.GetFiles(subdir1, subdir2)
        For Each files As String In file
            altDzn.Add(files)
        Next
        For Each subdir As String In System.IO.Directory.GetDirectories(subdir1)
            If System.IO.Directory.GetFiles(subdir).Length <> 0 Then
                adddirectory(subdir, subdir2)
            End If
        Next
    End Sub

#End Region

#Region " DOSYA EKLE BUTONU...."

Private Sub DosyaEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles DosyaEkleBtn.Click
        Me.OpenFileDialog1.Title = "MP3 Çoklu Dosyası seçin"
        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 lvi As New ListViewItem
                Dim str As String ', uz As Integer

str = System.IO.Path.GetFileName(Me.OpenFileDialog1.FileNames((i)))
                'Me.OpenFileDialog1.FileName = str & ".exe"
                'Call IkonAl()
                ''uz = Len(str)
                lvi.Text = Mid(str, 1, Len(str) - 4) 'exe kısmını gösterme

lvi.SubItems.Add(Me.OpenFileDialog1.FileNames(i)) 'dosya yolu
                LW1.Items.Add(lvi)

Next
        End If
    End Sub
#End Region

#Region " PLAYLİST SAKLA-EKLE MENÜSÜ VE BUTON...."
    Private Sub PlayListAçTs_Click(sender As System.Object, e As System.EventArgs) Handles PlayListAçTs.Click
        PlayListEkleBtn.PerformClick()
    End Sub

Private Sub PlayListeEkleTs_Click(sender As System.Object, e As System.EventArgs) Handles PlayListeEkleTs.Click
        DosyaEkleBtn.PerformClick()
    End Sub

#Region " PLAYLİSTESİ EKLE..."

Private Sub PlayListEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles PlayListEkleBtn.Click
        Dim results As DialogResult
        OpenFileDialog1.Filter = "Playlist Dosyası | *.mu3"
        OpenFileDialog1.InitialDirectory = Form2.PlayListSaklamaYolu.Text
        results = OpenFileDialog1.ShowDialog()
        If results = Windows.Forms.DialogResult.OK Then
            PlayListDsyAdı = OpenFileDialog1.FileName
            Dim fs As System.IO.StreamReader

If My.Computer.FileSystem.FileExists(PlayListDsyAdı) Then
                fs = My.Computer.FileSystem.OpenTextFileReader(PlayListDsyAdı)
                LW1.Items.Clear()

Dim DsyAdi As String
                Dim Secilenindex As Integer

Do While (fs.Peek <> -1)
                    Dim lvi As New ListViewItem
                    DsyAdi = System.IO.Path.GetFileName(fs.ReadLine)
                    lvi.Text = Mid(DsyAdi, 1, Right - 4) 'dosya Adı
                    lvi.SubItems.Add(fs.ReadLine) 'dosya yolu
                    LW1.Items.Add(lvi)
                Loop
                fs.Close()
                LW1.FocusedItem = LW1.Items.Item(Secilenindex)
                Call SatirSec()
            End If
        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
        LblParçaAdı.Text = SecilenSatir & " - " & LW1.Items(SecilenSatir).SubItems(0).Text
        LblYol.Text = LW1.Items(SecilenSatir).SubItems(1).Text
        LW1.Focus()

End Sub
#End Region

#Region " PLAYLİSTESİ SAKLA..."
    Private Sub PlayListSaklaMn_Click(sender As System.Object, e As System.EventArgs) Handles PlayListSaklaMn.Click
        Dim results As DialogResult
        SaveFileDialog1.Filter = "Playlist Dosyası | *.mu3"
        SaveFileDialog1.InitialDirectory = Form2.PlayListSaklamaYolu.Text
        results = SaveFileDialog1.ShowDialog()
        If results = Windows.Forms.DialogResult.OK Then
            PlayListDsyAdı = SaveFileDialog1.FileName
            PlayListSakla(PlayListDsyAdı)
        End If
    End Sub

Private Sub PlayListSakla(ByVal PlayListDsyAdı As String)
        Dim IndexNo As Integer
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter(PlayListDsyAdı, False)
        If IndexNo <> 0 Then

If LW1.Items.Count > 0 Then
                Try
                    file.WriteLine(LW1.FocusedItem.Index)
                Catch ex As Exception
                    LW1.FocusedItem = LW1.Items.Item(0)
                    file.WriteLine(LW1.FocusedItem.Index)
                End Try
            End If
        End If
        For i = 0 To LW1.Items.Count - 1
            Dim item As New ListViewItem.ListViewSubItem
            If IndexNo = 0 Then
                file.WriteLine(LW1.Items(i).Text() + vbNewLine + LW1.Items(i).SubItems(1).Text())
            Else
                file.WriteLine(LW1.Items(i).Text() + vbNewLine + LW1.Items(i).SubItems(1).Text())
            End If
        Next
        IndexNo = 0
        file.Close()
    End Sub
#End Region

#End Region

#Region " OK TUŞLARI VE OLAYLAR..."

Private Sub YukarıBtn_Click(sender As System.Object, e As System.EventArgs) Handles YukarıBtn.Click
        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()
                If Form2.SatırKaydırRenkliChk.Checked = True Then
                    LW1.Items(TaşındığıIndex).BackColor = Color.Bisque
                End If

LW1.Items.Item(TaşındığıIndex - 1) = Taşınan
                LW1.Items(TaşındığıIndex + 1).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

End Sub

Private Sub AşağıBtn_Click(sender As System.Object, e As System.EventArgs) Handles AşağıBtn.Click
        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

LW1.Items.Item(TaşındığıIndex + 1) = Taşınan
                LW1.Items(TaşındığıIndex - 1).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
    End Sub

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

Private Sub ListeAçBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeAçBtn.Click
        Call ListeYukle()

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
    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()
        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
        LblParçaAdı.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
        Form2.Top = Me.Top
        Form2.Left = Me.Left + Me.Width - Form2.Width
        Form2.ShowDialog()
    End Sub
#End Region

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

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

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

#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

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

#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

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 Sub

#End Region

End Class

FORM 2

Public Class Form2

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

End If
    End Sub

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

End Sub

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", PlayListSaklamaYolu.Text)

End Sub

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

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

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        LinkLabel1.Text = "Bilgisayar Dünyası"
        LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil.blogspot.com/2012/06/indir.html")
        Me.LblVer.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
    End Sub
End Class