Dim btnObj As Control Set btnObj = Me.Controls.Add("VB.CommandButton", CtrlName) With btnObj .Caption = "1234" .Top = 200 .Left = 100 .Height = 100 .Width = 200 .Visible = True End With
谢谢,我试了,我是这样写的 Set btnObj = Me.Controls.Add("VB.CommandButton") 为什么报错啊,要引入什么库么? 另外,CtrlName应该是什么类型的? 事件怎么添加? 谢谢啦。
Set btnObj = Me.Controls.Add("VB.CommandButton", CtrlName)
With btnObj
.Caption = "1234"
.Top = 200
.Left = 100
.Height = 100
.Width = 200
.Visible = True
End With
Set btnObj = Me.Controls.Add("VB.CommandButton")
为什么报错啊,要引入什么库么?
另外,CtrlName应该是什么类型的?
事件怎么添加?
谢谢啦。