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 With fr .MdiParent = Me .Show() End With Else With fr .MdiParent = Me .Show() .Focus() End With End If End Select End Sub 所以大家使用的时候要当心点 分析,就是关闭了实例了一次的窗口后,fr is nothing ,所以fr是不被with所使用的,改了with的使用范围之后就没有错误出现. ---end---
Select Case e.Button.Text
End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
