如何运用VBA在VBE界面中插入窗体并制作多个按钮

作者：绿色风分类：时间：2022-08-17 浏览：140

楼主 xmyjk	Q:如何运用VBA在VBE界面中插入窗体并制作多个按钮 A: Sub test() Dim frm As VBIDE.VBComponent, frmdsg As UserForm, i& Set frm = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm) '创建一个窗体 With frm .Properties("Width") = 200 '设施宽度 .Properties("Height") = 200 '设置高度 End With For i = 1 To 2 Set frmdsg = frm.Designer '获取窗体的设计栏目 With frmdsg With .Controls.Add("Forms.CommandButton.1", "按钮" & i) '添加按钮 .Caption = "按钮" & i '设置名称 .Height = 30 '设置高度 .Width = 60 '设置宽度 .Top = frmdsg.InsideHeight - 160 + (i - 1) * 80 '设置距窗体顶端位置 .Left = frmdsg.InsideWidth - 180 '设置距窗体左端位置 End With End With Next End Sub 窗体设计.zip
2楼い卋玑┾宝珼	小千看到这个答复，都要感动死了
3楼 0Mouse	一直没想过Userform也是一种数据类型！收藏学习，并留作永久回忆！
4楼 ★star_lee	收了哈，谢谢楼主
5楼 chenlifeng	在VB中，frmdsg As UserForm 出错，说用户类型未定义。我百度了下，没有找到如何引用它哈
6楼 jianzhanchou	不错
7楼芐雨	写得好
8楼老糊涂	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表