HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
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.
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.
Kod:
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
