高分求助:如何在vb中动态添加控件,并动态生成被添加控件的事件???

coolroy2000 coolroy2000 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
例如:
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
' .Index = 1
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
动态添加一个CommandButton控件以后,需要:
Private Sub btnObj_Click()
MsgBox "这是动态添加的按钮。"
MsgBox "remove self"
Controls.Remove btnObj
Set NewButton = Nothing
End Sub
这个类似的事件(生成控件以后再生效的)。不能用:
Private WithEvents btnObj as CommandButton
因为事先并不知道要动态生成多少个控件!


给个思路也行~~~~~~~~```
...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
coolroy2000
VB基础类 7,788 成员 197,583 内容