Açık pencereleri listele ve listeden pencereyi aktif yap

[ahmet]

Açılmış program dahilindeki pencereleri okuyor, listeden tıklanılan pencere başlığı olan pencereyi AKTİF yapıyor

1. TEMP isminde form oluşturuldu
2. Timer1 oluşturuldu ve kontrol sıklığı 1000 (1saniye) ayarlandı
3. Listbox1 oluşturuldu

Code: Select all

Public Class temp
    Private Sub temp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Left = 0
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim Form_adi, Form_baslik As String
        With ListBox1
            .Items.Clear()
            For a = 0 To Application.OpenForms.Count - 1
                Form_adi = Application.OpenForms.Item(a).Name
                Form_baslik = Application.OpenForms.Item(a).Text
                .Items.Add(Form_baslik & " - " & Form_adi)
            Next
        End With
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        With ListBox1
            If IsNothing(.SelectedIndex) Or .SelectedIndex < 0 Then Exit Sub
            Application.OpenForms.Item(.SelectedIndex).Select()
        End With
    End Sub
End Class