Görev Yönetisi Program Yapımı ( Resimli ) VB

ads

ads

Bu ders te   Bilgisayarınızda ki açık dosyaları gösteren basit bir  görev yöneticisi programının yapımını anlatacağım..

Gerekli aralarımız;

Form1'e bir adet ListView ekleyiniz.

ListViewin'in  buradaki görevi dosyaları göstermek için kullanacağız  yandaki örnek resimdeki görüldüğü gibi, Hemen kodlamaya geçelim..



Form'a  çift  tıklayın ve aşağıdaki kodları  yazın...

Public Class Form1

    Sub yenile() 'Yenile isminde bir fonksiyon oluşturuyoruz
        ListView1.Items.Clear() 'ListView1'in içeriğini temizler
        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

ads