Açık pencereleri listele ve listeden pencereyi aktif yap
Posted: Sun Jan 30, 2022 8:01 am
Açılmış program dahilindeki pencereleri okuyor, listeden tıklanılan pencere başlığı olan pencereyi AKTİF yapıyor
- TEMP isminde form oluşturuldu
- Timer1 oluşturuldu ve kontrol sıklığı 1000 (1saniye) ayarlandı
- 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