乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 65|回复: 4

[VBA][请教]如何用代码创建窗体,并在窗体中添加按钮等控件?

[复制链接]

5

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
31
发表于 2006-9-13 11:45:00 | 显示全部楼层 |阅读模式
请问如何用代码创建窗体,并在窗体中添加按钮等控件??
回复

使用道具 举报

0

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
2
发表于 2006-9-21 10:49:00 | 显示全部楼层
我也再找啊
希望高手赐教
回复

使用道具 举报

8

主题

31

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2006-9-28 14:04:00 | 显示全部楼层
有难度
回复

使用道具 举报

5

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
31
发表于 2006-10-20 22:21:00 | 显示全部楼层
或者怎样在已有的窗体中 用代码创建控件 ?有什么方法吗,各位?
回复

使用道具 举报

5

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 2006-10-21 08:37:00 | 显示全部楼层
VBA帮助里就有例子:
Dim Mycmd As Control
Private Sub CommandButton1_Click()
    Set Mycmd = Controls.Add("Forms.CommandButton.1", "CommandButton3", Visible)
    Mycmd.Left = 18
    Mycmd.top = 150
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "非常有趣。" & Mycmd.Name
   
End Sub
Private Sub UserForm_AddControl(ByVal Control As MSForms.Control)
    Label1.Caption = "控件已被添加。"
End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 21:23 , Processed in 1.013076 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表