如何在form上動態生成button?

orcale 2003-12-22 09:39:46
我要更根據不同條件在form上生成多個button.然後執行對應button的onclick
請大家提供思路?:)
...全文
5 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chao778899 2003-12-22
up--: SoHo_Andy(冰) ( )
回复
golden24kcn 2003-12-22
一般只能用控件数组吧,这一点就不如delphi,它对于态生成的控件可以直接指定各个事件.
回复
SoHo_Andy 2003-12-22
这样即可
Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告