Private Sub Command1_Click() MsgBox UserControl.Parent.Name & vbCrLf & _ (TypeOf UserControl.Parent Is MDIForm) End Sub
If Me.Parent IsNot Nothing AndAlso _ TypeOf Me.Parent Is Form Then Dim Parent As Form = DirectCast(Me.Parent, System.Windows.Forms.Form) If Parent.IsMdiContainer Then '[...] End If End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question