欢迎来到优知文库! | 帮助中心 分享价值,成长自我!
优知文库
全部分类
  • 幼儿/小学教育>
  • 中学教育>
  • 高等教育>
  • 研究生考试>
  • 外语学习>
  • 资格/认证考试>
  • 论文>
  • IT计算机>
  • 法律/法学>
  • 建筑/环境>
  • 通信/电子>
  • 医学/心理学>
  • ImageVerifierCode 换一换
    首页 优知文库 > 资源分类 > DOCX文档下载
    分享到微信 分享到微博 分享到QQ空间

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

    • 资源ID:1168849       资源大小:39.20KB        全文页数:11页
    • 资源格式: DOCX        下载积分:5金币
    快捷下载 游客一键下载
    账号登录下载
    微信登录下载
    三方登录下载: QQ登录
    二维码
    扫码关注公众号登录
    下载资源需要5金币
    邮箱/手机:
    温馨提示:
    快捷下载时,如果您不填写信息,系统将为您自动创建临时账号,适用于临时下载。
    如果您填写信息,用户名和密码都是您填写的【邮箱或者手机号】(系统自动生成),方便查询和重复下载。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP,免费下载
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    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

    注意事项

    本文(VBA常用代码解析(第四十一讲).docx)为本站会员(王**)主动上传,优知文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知优知文库(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    copyright@ 2008-2023 yzwku网站版权所有

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

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

    收起
    展开