[vb.net] on multiple forms programming of MDI Forms

Programming---MDI Forms and multiple form programming---Purpose: to implement an instance of multiple forms with toolbar in the MDI window, and to display the form as a general code in vb.net
Private Sub Toolbar1_buttonclick () Sub Toolbar1_buttonclick (ByVal sender as System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbar1.buttonclick
Select Case E.button.text
Case "OK" ' OK ' is toolbarbutton.text
Dim FR as New frmname
Fr. MdiParent = Me ' Me is MDIForm
Fr. Show ()
End Select
End Sub


Http://www.chinaaspx.com/club/topic_5_7796.htm

For reference, draw the following code


Private Shared fr as New frmname
Private Sub Toolbar1_buttonclick () Sub Toolbar1_buttonclick (ByVal sender as System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbar1.buttonclick
Select Case E.button.text
Case "OK" ' OK ' is toolbarbutton.text
If fr is nothing Or fr. Isdisposed Then
FR = New Frmname
Fr. MdiParent = Me
Fr. Show ()
Else
Fr. MdiParent = Me
Fr. Show ()
Fr. Focus ()
End If
End Select
End Sub
This is an instance of the form ~---end---