A ještě otázka. Jak ho dostat do popředí místo toho MsgBoxu? Zkoušel jsem tohle ale on nezná mdiChild... Zkoušel jsem taky dát ten DIM nad proceduru, to pak funguje ale jen do doby než zavřu Child. Pak píše něco o tom, že nelze přistoupit k uvolněnému objektu
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
If Me.MdiChildren.FirstOrDefault(Function(mdiChild) TypeOf (mdiChild) Is Form2) Is Nothing Then
Dim mdiChild As New Form2
mdiChild.MdiParent = Me
mdiChild.Show()
Else
mdiChild.BrignToFront()
End If
End Sub
End Class
|