|
‘Main Form
Private Sub MainForm_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
Dim form1 = New Form1()
form1.TopLevel = false
form1.MdiParent = Me
form1.Show()
End Sub
‘Form1 which has SfDataGrid
Private Sub sfDataGrid_CellDoubleClick(ByVal sender As Object, ByVal e As CellClickEventArgs)
e.Cancel = True
Dim form = New Form()
form.TopLevel = false
me.Controls.Add(form)
form.BringToFront()
form.Show()
End Sub |
|
Protected Overrides Sub OnShown(ByVal e As EventArgs)
Dim parent = TryCast(Me.MdiParent, Form)
If parent IsNot Nothing Then
For Each child In parent.MdiChildren
If child IsNot Me Then
child.Enabled = False
End If
Next child
End If
MyBase.OnShown(e)
End Sub
Protected Overrides Sub OnClosed(ByVal e As EventArgs)
Dim parent = TryCast(Me.MdiParent, Form)
If parent IsNot Nothing Then
For Each child In parent.MdiChildren
If child IsNot Me Then
child.Enabled = True
End If
Next child
End If
MyBase.OnClosed(e)
End Sub |