问个高难的:怎样动态创建控件,如按扭控件?

正能量程序 2004-04-29 04:41:31
如题!
...全文
30 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cyb1017 2004-04-29
同意
  • 打赏
  • 举报
回复
goodname008 2004-04-29
' 举个例子,动态添加按钮。

Option Explicit
Dim WithEvents cmdOK As CommandButton

Private Sub Form_Load()
Set cmdOK = Controls.Add("VB.CommandButton", "cmdOK", Me)
With cmdOK
.Left = 100
.Top = 100
.Width = 2000
.Height = 1000
.Caption = "确定"
.Visible = True
End With
End Sub

Private Sub cmdOK_Click()
MsgBox "您单击了确定!"
End Sub
  • 打赏
  • 举报
回复
victorycyz 2004-04-29

试用controls.add方法。
  • 打赏
  • 举报
回复
相关推荐
发帖
控件
加入

1430

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2004-04-29 04:41
社区公告
暂无公告