《VBA常用代码解析(第四十一讲).docx》由会员分享，可在线阅读，更多相关《VBA常用代码解析(第四十一讲).docx（11页珍藏版）》请在课桌文档上搜索。
1、VBA常用代码解析（第四十一讲）148在用户窗体上添加菜单在VBA中，用户窗体上是没有菜单的，为了使用方便，我们可以使用APl函数在用户窗体上添加菜单，示例代码如下：PrivateDeclareFunctionFindWindowLib,ser32,Alias,FindWindowA(ByVaIIpCIassNameAsString,ByVaIIpWindowNameAsString)AsLongPrivateDeclareFunctionSetMenuLib,ser32,(ByVaIhwdAsLong,ByVaIhMeuAsLong)AsLongPrivateDeclareFunctionC
2、reateMenuLib,ser32,()AsLongPrivateDeclareFunctionAppendMenuLib,ser32,Alias,AppendMenuA(ByVaIhMeuAsLong,ByVaIwFlagsAsLong,ByVaIWlDNewItemAsLong,ByVaIIpNewItemAsAny)AsLongPrivateDeclareFunctionDestroyMenuLib,ser32(ByVaIhMeuAsLong)AsLongPrivateDeclareFunctionCreatePopupMenuLib,ser32,()AsLongPrivateDecl
3、areFunctionSetWindowLongLib,user32,Alias,SetWindowLongA(ByVaIhwdAsLong,ByVaIlndexAs1.ong,ByVaIdwNewLogAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib,ser32,Alias,GetWindowLongA(ByVaIhwdAsLong,ByVaInlndexAsLong)AsLongPrivateConstGWL_WNDPROC=(-4)PrivateConstMF_STRING=&H0&PrivateConstMF_POPUP=&H10&
4、PrivateConstMF_SEPARATOR=&H800&DimMenuWndAsLong,DumpAsLong,PopupMenuIDAsLong,PopupMenuWndAsLong,MenuIDAsLongPrivateSubUserFormJnitiaIizeOIfVal(AppIication.Version)hwd=FindWindowCThunderXFrame,Me.Caption)Elsehwnd=FindWindowCThunderDFrame,Me.Captio)EndlfMenuWnd=CreateMenuQPopupMenuID=CreatePoppMeu()Du
5、mp=AppedMe(MenWd,MF_STRING+MF.POPUP,PoPUPMenUID,系统设置(&X)Dump=AppedMe(PopupMeulDjMF_STRING,100,保存(&S),)Dump=APPendMenU(POPUPMenUID,MF_STRING,101,备份(&E)Dump=APPendMenU(POPUPMenUID,MF_STRING,102,退出(&X)PopupMenuID=CreatePoppMeu()Dump=AppendMe(MeWnd,MF_STRING+MF_POPUP,POPUPMenUlD会计凭证(&P)Dump=AppendMe(Pop
6、pMenID,MF_STRING,110,录入(&L)Dump=AppendMe(PoppMenID,MF_STRING,111,审核(&C)PopupMenuID=CreatePoppMeu()Dump=AppendMe(MeWdjMF_STRING+MF_POPUP,POPUPMenUlD会计账簿(&Z)Dump=APPendMenU(POPUPMenUID,MF_STRING,112,记账(&T)Dump=AppendMe(PopupMeulDjMF_STRING,113,结账(&J)PopupMenuID=CreatePoppMeu()Dump=AppendMenu(MenuWnc)j
7、MF_STRING+MF.POPUP,POPUPMenUID会计报表(&B)Dump=AppedMeu(PoppMenID,MF_STRING,114,资产负债表(&F)Dump=AppendMe(PoppMenID,MF_STRING,115,损益表(&Y)Dump=SetMeu(hwd,MenuWnd)PreWinProc=GetWindowLog(hwd,GWL_WNDPROC)SetWidowLonghwnd,GWLWNDPRe)C,AddressOfMsgProcessEndSubPrivateSubUSerFormTerminate。DestroyMenuMenuWndDestro
8、yMenupopupMenuIDDestroyMenupopupMenuWndSetWindowLonghwnd,GWL_WNDPROC,PreWinProcEndSub代码解析：第1行到第13行代码，APl函数声明。第14行到第41代码,用户窗体的InitiaIiZe事件过程,在窗体显示时使用API函数在窗体上添加菜单。其中第22行代码添加第一个“系统设置”菜单，第23、24、25行代码在“系统设置”菜单中添加三个子菜单，第26行代码往下继续添加其他菜单。第40行代码，为窗体中添加的菜单指定所执行的过程名称为“MsgProcess”函数过程。第42行到第47行代码，用户窗体的Terminat
9、e事件过程，将所有引用对象的变量设置成Nothing,从而删除对象的所有引用。为了能够使用窗体中添加的菜单，需要在模块中写入下面的代码：PublicPreWinProcAsLong,hwdAsLongPublicDeclareFunctionCheckMenuRadioItemLib,user32,(ByVaIhMeAsLong,ByVaI1AsLong,ByVaI2AsLong,ByVaI3AsLong,ByVaI4AsLong)AsLongPublicDeclareFunctionCheckMenuItemLib,user32,(ByVaIhMeuAsLong,ByVaIWlDCheckI
10、temAsLong,ByVaIwCheckAsLong)AsLongPublicDeclareFunctionEnabIeMenuItemLib,user32(ByVaIhMeuAsLong,ByVaIWlDEnabIeItemAsLong,ByVaIwEableAsLong)AsLongPublicConstMF_UNCHECKED=&H0&PublicConstMF.CHECKED=&H8&PublicConstMF_DISABLED=&H2&PublicConstMF_GRAYED=&H1&PublicConstMF_ENABLED=&H0&PrivateDeclareFunctionC
11、allWindowProcLib,ser32,Alias,CallWindowProcA(ByVaIIpPrevWndFuncAsLong,ByVaIhwndAsLong,ByVaIMsgAsLong,ByVaIwParamAsLong,ByVaIIParamAsLong)AsLongPrivateDeclareFunctionGetMenuLib,user32,(ByValhwndAsLong)AsLongPrivateDeclareFunctionGetSubMenuLib,user32,(ByVaIhMeAsLong,ByVaIPosAsLong)AsLongPrivateConstMF
12、_BYCOMMAND=&H0&PublicFunctionMsgProcess(ByValhwndAsLong,ByVaIMsgAsLong,ByVaIwParamAsLong,ByVaIIParamAs1.ong)AsLongDimSUbMenLhWndAsLongSeIectCasewParamCase 100“保存” 按钮!“备份” “按钮!“录入” “按钮!MSgBOX你选择的是”Case 101MSgBOX你选择的是”Case 102UnloadUserFormlCase 110MSgBOX你选择的是”MSgBOX你选择的是”“审核”“按钮!Case 111MSgBOX你选择的是”“
13、按钮!Case 112MSgBOX你选择的是”“结账”“按钮!Case 113MSgBOX你选择的是”“资产负债表” “按钮!Case 114MSgBOX你选择的是”“损益表 “按钮!CaseElseMsgProcess=CallWidowProc(PreWiProc,hwd,Msg,wParam,IParam)EndSeIectEndFunction代码解析：第1行到第13行代码，APl函数声明。第14行到第36行代码，MSgPrOCeSS函数过程，根据参数WParam的值为窗体中的菜单指定所执行的操作，为了演示方便只使用MsgBox函数显示一个消息框，在实际应用中可以为菜单写入代码或指定过
14、程名称。运行窗体后在窗体上添加菜单。149在用户窗体上添加工具栏在A148中我们在用户窗体上使用API函数添加了菜单，还可以在用户窗体上继续添加工具栏用以显示一列下拉菜单的位图按钮，单击一个工具栏按钮等于选择一个菜单命令，以提供对常用功能和命令的快速访问。在用户窗体上添加工具栏可以使用Toolbar控件，在设计模式下右键单击“工具箱”，在显示的右键菜单中选择“附加控件”，在显示的对话框中选择MicrosoftToolbarControl,veisio6.0控件,在用户窗体上添加一个Toolbar控件。因为需要在Toolbar控件按钮中使用图标，所以还需要在用户窗体中添加一个ImageList控
15、件保存所需要的图像文件，在ImageList控件的属性页中插入6张图片。用户窗体上添加了Toolbar控件后还需要设置其属性和添加按钮控件，可以在Toolbar控件的属性页中进行设置和添加，如所图示。还可以在代码运行时对其进行设置和添加按钮，双击用户窗体写入下面的代码：PrivateSubUSerFOrmnitialize()使用API函数添加菜单代码略，详见附件DimarrAsVariantDimiAsBytearr=Array(录入审核记账结账负债表,损益表)WithTooIbarl,ImageList=ImageListl.Appearance=ccFlat.BorderStyIe=cc
16、Noe,TextAIignment=tbrTextAlignBottomWith.Buttons,Add(l,uu).Style=tbrPlaceholderFori=OToUBoud(arr),Add(i+2,i+l).Caption=arr(i)NextEndWithEndWithEndSub代码解析：第5行代码数组arr用来保存按钮的标题文字。第7行代码建立Toolbar控件和ImageList控件的关联。第8行代码设置Toolbar控件的外观效果，Appearance属性获得或设置控件的外观效果，设置值如表格所示。第9行代码设置Toolbar控件的边界样式，BorderStyIe属性获
17、得或设置边界样式，设置值如表格所示。第10行代码设置按钮文本显示在按钮图像下方，TextAIignment属性获得或设置一个值，决定按钮文本显示在按钮图像下方还是右侧，设置值如表格所示。第11行到第15行代码在Toolbar控件中添加按钮，添加按钮需要在Buttons的集合对象中使用Add方法，语法如下：object.Buttons.Add(idex,key,caption,style,image)参数object是必需的，代表Toolbar对象。参数index是可选的，指定新增按钮的索引值，该索引值决定了按钮在Toe)Ibar控件中的位置。如果省略index参数新增按钮添加到Butons集合
18、的最后。参数key是可选的，指定新增按钮的关键字。参数CaPtion是可选的，指定新增按钮的标题文本。参数StyIe是可选的，指定新增按钮的StyIe属性，设置值如表格所示。参数image是可选的，指定新增按钮载入的图像，图像必须是与该Toolbar控件相关联的ImageList控件图像库中的一个。image参数可以是一个整数，对应ImageLiSt图像库中某个图片的IndeX值也可以是一个字符串，对应图片的关键字KeyO第12行代码代码首先在Toolbar控件中添加占位按钮，设置其StyIe属性为tbrPlaceholder,添加的就是占位按钮，在Toc)Ibar控件中是不显示的，仅仅起到占
19、位的作用。第14行代码在占位按钮后继续添加6个按钮，设置其标题文本和图像在ImageList控件中的编号。为了响应Toolbar控件，双击Toolbar控件写入下面的代码：PrivateSubToolbarl-BttoClick(ByValButtonAsMSComctlLib.Butto)SeIectCaseButtonJndexCase 2MSgBOX录入Case 3MSgBOX审核，Case 4MSgBoX记账Case 5MSgBoX结账，Case 6MSgBoX,资产负债表Case 7MSgBOX损益表，EndSeIectEndSub代码解析：Toolbar控件的ButtonCIick事件，在单击Toolbar控件的按钮时发生，参数BUtton代表单击的按钮。为了演示方便，根据其Index属性值使用消息框显示按钮标题文本，在实际应用中可以为菜单写入代码或指定过程名称。
