Feedback

VB - MDI Child Form nur einmal öffnen

Veröffentlicht von am 17.07.2009
(1 Bewertungen)
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
Abgelegt unter MDIChild, öffnen, MDI, Children, Form.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!