Aktives MDIChild und dessen Elemente

ID3
Link ReferenceNot set
Link CreditsNot set
Link Technical DocumentationNot set
PlCodelangVB.NET
PlGroupGUI, MDI-Fenster
PlItemTitleAktives MDIChild und dessen Elemente
CodeIf Me.ActiveMdiChild IsNot Nothing Then
Dim frm As SubForm = CType(Me.ActiveMdiChild, SubForm)
frm.textBox1.Text = "......."
End If


' Beispiel:

If Me.ActiveMdiChild IsNot Nothing Then
If Me.ActiveMdiChild.Name="frmHotel" Then
Dim frm As frmHotel = CType(Me.ActiveMdiChild, frmHotel)
MessageBox.Show(frm.hotelid)
End If
End If
Result Example