Visual Basic'de Resimli Görev Yöneticisi Yapmak

[SaNcArHaN71]

Visual Basic'de Resimli Görev Yöneticisi Yapmak

Bu dersimizde Windows'un açık olan pencerelerini yöneten program olan Görev Yöneticisi yapmaya çalışacağız.

Bu "Görev Yöneticisi":

Açık olan ve başlığı olan pencereleri ekler,
Eklenen pencerelerin simgesini bulur,
Simgeyi de ListView'e ekler.

Form'a bir tane ListView1 ekleyin göstermesi için.

Kodlarımız:

Code:

Public Class Form1

    Sub yenile() 'Yenile Adında Bir Fonksiyon Oluşturuyoruz
        ListView1.Items.Clear() 'ListView1'in İçini Boşaltır
        Dim resim As New ImageList 'Resimleri Eklemek İçin ImageList Ekleiyoruz
        Dim i As Integer = 0 'i adında Değişken tanımlıyoruz ve 0 Değerini Veriyoruz
        resim.Images.Clear() 'Resimleri Boşaltıyoruz
        For Each p As Process In Process.GetProcesses 'p diye process değişkeni tanımladık ve For Each ile tüm programları Tek Tek Kontrol Ediyor
            Try 'Try deyimi Hatayı Kontrol Eder Eğer Hata Yoksa Try ile Catch Arasını İşler Eğer Hata Varsa Catch ile End Try Arasını Çalıştırır
                If p.MainWindowTitle <> "" Then 'Pencerenin Başlığı Varsa Alttakileri Yap

                    resim.Images.Add(Icon.ExtractAssociatedIcon(p.MainModule.FileName)) 'Resimlere Pencere Simgesini Ekle
                    ListView1.LargeImageList = resim 'Listview1 in Resim Listesini Ayarla
                    ListView1.SmallImageList = resim 'Listview1 in Resim Listesini Ayarla
                    ListView1.SmallImageList = resim 'Listview1 in Resim Listesini Ayarla
                    ListView1.StateImageList = resim 'Listview1 in Resim Listesini Ayarla
                    ListView1.Items.Add(p.MainWindowTitle, i) 'Listview1 in İçine Pencere Başlığını ve Resmini Ekle
                    i += 1 'i yi 1 Arttır
                End If
            Catch ex As Exception

            End Try

        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        yenile()
    End Sub
End Class

Kaynak Dosyayı İndirmek İçin Tıklayın.