- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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.
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 SubEnd Class
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 SubEnd Class
