View PlGroup GUI, MDI-Fenster
| ID | 3 |
|---|---|
| Text | GUI, MDI-Fenster |
| Title | Not set |
PlItems
- If 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
- Dim oForm As Form For Each oForm In Me.MdiChildren If Not TypeName(oForm) = "MDIForm" Then If oForm.Name = "frmHotel" Then ' Es gibt mind. 1 geöffnetes Browser-Fenster ' ... End If End If Next
- Dim oForm As Form For Each oForm In Me.MdiChildren If Not TypeName(oForm) = "MDIForm" Then If oForm.Name = "frmHotel" Then MessageBox.Show(oForm.GetType.ToString + "|" + CType(oForm, frmHotel).hotelid.ToString) End If End If Next