Dieser Code prüft das vorhanden sein eines MDIChild über alle MDIChild''s hinweg, wenn noch keins mit dem Namen existiert wird eins erstellt. Der nächste Öffnen-Versuch geht dann ins Leere und aktiviert das schon geöffnete MDIChild-Fenster.
Den Code einfach im Button/Menü kopieren und Form anpassen.
Dim kForm As Form
Dim kformExistiert As Boolean = False
For Each kForm In Me.MdiChildren
If Not TypeName(kForm) = "MDIForm" Then
If kForm.Name = "frmKunden" Then
'' Es gibt mind. 1 geöffnetes Browser-Fenster
kForm.Activate()
kformExistiert = True
End If
End If
Next
If Not kformExistiert Then
kForm = New frmKunden
kForm.MdiParent = Me
kForm.Show()
End If
Kommentare zum Snippet