VB 关闭其它窗口

最新推荐文章于 2016-07-29 16:14:14 发布

最新推荐文章于 2016-07-29 16:14:14 发布 · 312 阅读

文章标签：

#VB #F#

本文介绍了一个使用VBA实现窗体切换的简单示例。通过定义不同按钮的点击事件，可以实现在多个窗体之间的切换。示例中包含了卸载其他打开窗体的逻辑，确保每次只显示一个窗体。

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