VBA常用代码解析(第四十一讲).docx
VBA常用代码解析(第四十一讲)148在用户窗体上添加菜单在VBA中,用户窗体上是没有菜单的,为了使用方便,我们可以使用APl函数在用户窗体上添加菜单,示例代码如下:PrivateDeclareFunctionFindWindowLib,ser32,Alias,FindWindowA'(ByVaIIpCIassNameAsString,ByVaIIpWindowNameAsString)AsLongPrivateDeclareFunctionSetMenuLib,ser32,(ByVaIhwdAsLong,ByVaIhMeuAsLong)AsLongPrivateDeclareFunctionCreateMenuLib,ser32,()AsLongPrivateDeclareFunctionAppendMenuLib,ser32,Alias,AppendMenuA'(ByVaIhMeuAsLong,ByVaIwFlagsAsLong,ByVaIWlDNewItemAsLong,ByVaIIpNewItemAsAny)AsLongPrivateDeclareFunctionDestroyMenuLib,ser32"(ByVaIhMeuAsLong)AsLongPrivateDeclareFunctionCreatePopupMenuLib,ser32,()AsLongPrivateDeclareFunctionSetWindowLongLib,user32,Alias,SetWindowLongA'(ByVaIhwdAsLong,ByVaIlndexAs1.ong,ByVaIdwNewLogAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib,ser32,Alias,GetWindowLongA'(ByVaIhwdAsLong,ByVaInlndexAsLong)AsLongPrivateConstGWL_WNDPROC=(-4)PrivateConstMF_STRING=&H0&PrivateConstMF_POPUP=&H10&PrivateConstMF_SEPARATOR=&H800&DimMenuWndAsLong,DumpAsLong,PopupMenuIDAsLong,PopupMenuWndAsLong,MenuIDAsLongPrivateSubUserFormJnitiaIizeOIfVal(AppIication.Version)hwd=FindWindowCThunderXFrame',Me.Caption)Elsehwnd=FindWindowCThunderDFrame',Me.Captio)EndlfMenuWnd=CreateMenuQPopupMenuID=CreatePoppMeu()Dump=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(PoppMenID,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)jMF_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。DestroyMenuMenuWndDestroyMenupopupMenuIDDestroyMenupopupMenuWndSetWindowLonghwnd,GWL_WNDPROC,PreWinProcEndSub代码解析:第1行到第13行代码,APl函数声明。第14行到第41代码,用户窗体的InitiaIiZe事件过程,在窗体显示时使用API函数在窗体上添加菜单。其中第22行代码添加第一个“系统设置”菜单,第23、24、25行代码在“系统设置”菜单中添加三个子菜单,第26行代码往下继续添加其他菜单。第40行代码,为窗体中添加的菜单指定所执行的过程名称为“MsgProcess”函数过程。第42行到第47行代码,用户窗体的Terminate事件过程,将所有引用对象的变量设置成Nothing,从而删除对象的所有引用。为了能够使用窗体中添加的菜单,需要在模块中写入下面的代码:PublicPreWinProcAsLong,hwdAsLongPublicDeclareFunctionCheckMenuRadioItemLib,user32,(ByVaIhMeAsLong,ByVaI1AsLong,ByVaI2AsLong,ByVaI3AsLong,ByVaI4AsLong)AsLongPublicDeclareFunctionCheckMenuItemLib,user32,(ByVaIhMeuAsLong,ByVaIWlDCheckItemAsLong,ByVaIwCheckAsLong)AsLongPublicDeclareFunctionEnabIeMenuItemLib,user32'(ByVaIhMeuAsLong,ByVaIWlDEnabIeItemAsLong,ByVaIwEableAsLong)AsLongPublicConstMF_UNCHECKED=&H0&PublicConstMF.CHECKED=&H8&PublicConstMF_DISABLED=&H2&PublicConstMF_GRAYED=&H1&PublicConstMF_ENABLED=&H0&PrivateDeclareFunctionCallWindowProcLib,ser32,Alias,CallWindowProcA'(ByVaIIpPrevWndFuncAsLong,ByVaIhwndAsLong,ByVaIMsgAsLong,ByVaIwParamAsLong,ByVaIIParamAsLong)AsLongPrivateDeclareFunctionGetMenuLib,user32,(ByValhwndAsLong)AsLongPrivateDeclareFunctionGetSubMenuLib,user32,(ByVaIhMeAsLong,ByVaIPosAsLong)AsLongPrivateConstMF_BYCOMMAND=&H0&PublicFunctionMsgProcess(ByValhwndAsLong,ByVaIMsgAsLong,ByVaIwParamAsLong,ByVaIIParamAs1.ong)AsLongDimSUbMenLhWndAsLongSeIectCasewParamCase 100“保存” "按钮!'“备份” “按钮!'“录入” “按钮!MSgBOX你选择的是”Case 101MSgBOX你选择的是”Case 102UnloadUserFormlCase 110MSgBOX你选择的是”MSgBOX你选择的是”“审核”“按钮!'Case 111MSgBOX你选择的是”“按钮!'Case 112MSgBOX你选择的是”“结账”“按钮!'Case 113MSgBOX你选择的是”“资产负债表” “按钮!'Case 114MSgBOX你选择的是”“损益表" “按钮!'CaseElseMsgProcess=CallWidowProc(PreWiProc,hwd,Msg,wParam,IParam)EndSeIectEndFunction代码解析:第1行到第13行代码,APl函数声明。第14行到第36行代码,MSgPrOCeSS函数过程,根据参数WParam的值为窗体中的菜单指定所执行的操作,为了演示方便只使用MsgBox函数显示一个消息框,在实际应用中可以为菜单写入代码或指定过程名称。运行窗体后在窗体上添加菜单。149在用户窗体上添加工具栏在A148中我们在用户窗体上使用API函数添加了菜单,还可以在用户窗体上继续添加工具栏用以显示一列下拉菜单的位图按钮,单击一个工具栏按钮等于选择一个菜单命令,以提供对常用功能和命令的快速访问。在用户窗体上添加工具栏可以使用Toolbar控件,在设计模式下右键单击“工具箱”,在显示的右键菜单中选择“附加控件”,在显示的对话框中选择"MicrosoftToolbarControl,veisio6.0控件,在用户窗体上添加一个Toolbar控件。因为需要在Toolbar控件按钮中使用图标,所以还需要在用户窗体中添加一个ImageList控件保存所需要的图像文件,在ImageList控件的属性页中插入6张图片。用户窗体上添加了Toolbar控件后还需要设置其属性和添加按钮控件,可以在Toolbar控件的属性页中进行设置和添加,如所图示。还可以在代码运行时对其进行设置和添加按钮,双击用户窗体写入下面的代码:PrivateSubUSerFOrmnitialize()使用API函数添加菜单代码略,详见附件DimarrAsVariantDimiAsBytearr=Array('录入'审核记账'结账负债表,损益表')WithTooIbarl,ImageList=ImageListl.Appearance=ccFlat.BorderStyIe=ccNoe,TextAIignment=tbrTextAlignBottomWith.Buttons,Add(l,uu).Style=tbrPlaceholderF