hhunderter
Erfahrenes Mitglied
Guten Tag,
im Internet habe ich schon folgenden Code gefunden der meinen ansprüchen entspricht:
nur will ich nicht für jedes MDI-Form diesen Code einsetzen sondern eine Funktion , wie bewerkstellige ich sowas?
im Internet habe ich schon folgenden Code gefunden der meinen ansprüchen entspricht:
Code:
Dim kForm As Form
Dim kformExistiert As Boolean = False
For Each kForm In Me.MdiChildren
If Not TypeName(kForm) = "MDIForm" Then
If kForm.Name = "Prozessschaltbild" Then
'' Es gibt mind. 1 geöffnetes Browser-Fenster
kForm.Activate()
kformExistiert = True
End If
End If
Next
If Not kformExistiert Then
kForm = New Prozessschaltbild
kForm.MdiParent = Me
kForm.Show()
End If
nur will ich nicht für jedes MDI-Form diesen Code einsetzen sondern eine Funktion , wie bewerkstellige ich sowas?