- OptionExplicit
- PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
- Dimf1AsForm
- SelectCaseButton.Index
- Case1
- Setf1=NewForm1
- 'Form1.Show
- 'unloadotherForm1.hWnd
- Case2
- Setf1=NewForm2
- 'Form2.Show
- 'unloadotherForm2.hWnd
- EndSelect
- f1.Show
- unloadotherf1.hWnd
- EndSub
- PrivateSubunloadother(htAsLong)
- DimfAsForm
- ForEachfInForms
- Iff.hWnd<>htAndf.hWnd<>MDIForm1.hWndThenUnloadf
- Next
- EndSub
VB 关闭其它窗口
最新推荐文章于 2016-07-29 16:14:14 发布