VBA常用代码解析(第四十一讲).docx

上传人:p** 文档编号:925943 上传时间:2024-04-12 格式:DOCX 页数:11 大小:39.20KB
下载 相关 举报
VBA常用代码解析(第四十一讲).docx_第1页
第1页 / 共11页
VBA常用代码解析(第四十一讲).docx_第2页
第2页 / 共11页
VBA常用代码解析(第四十一讲).docx_第3页
第3页 / 共11页
VBA常用代码解析(第四十一讲).docx_第4页
第4页 / 共11页
VBA常用代码解析(第四十一讲).docx_第5页
第5页 / 共11页
VBA常用代码解析(第四十一讲).docx_第6页
第6页 / 共11页
VBA常用代码解析(第四十一讲).docx_第7页
第7页 / 共11页
VBA常用代码解析(第四十一讲).docx_第8页
第8页 / 共11页
VBA常用代码解析(第四十一讲).docx_第9页
第9页 / 共11页
VBA常用代码解析(第四十一讲).docx_第10页
第10页 / 共11页
亲,该文档总共11页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述

《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=ccNoe,TextAIignment=tbrTextAlignBottomWith.Buttons,Add(l,uu).Style=tbrPlaceholderF

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > IT计算机 > 计算机应用/办公自动化

copyright@ 2008-2023 1wenmi网站版权所有

经营许可证编号:宁ICP备2022001189号-1

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。第壹文秘仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知第壹文秘网,我们立即给予删除!