C# KOD ÖRNEKLERİ: BAŞLAT MENÜSÜ BENZERİ BİR PROJE

İkinci el araç alım satımında kullanılan Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

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

Son Güncelleme (Özel Klasörler Eklendi) 24.10.2014 >>>>>>> İNDİR

KOD İNDİR VB.Net ile ilgilenmeyenler için >> SADECE EXE İNDİ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

23 Temmuz 2013 Salı

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

Hiç yorum yok:

Yorum Gönder