动态创建button

Question

dim WithEvents cmdbutton As CommandButton
Private Sub Form_Load()
Set cmdbutton = Me.Controls.Add("vb.commandbutton", "buttonx")
With cmdbutton
.Visible = True
.Left = 0
.Top = 0
.Width = 1000
.Height = 1000
.Caption = .Name
End With
End Sub
以后我要引用这个按钮是不是cmdbutton.name,buttonx.name.这两个都一样？

Answer 1

不能直接用buttonx.name，可以用 Me.Controls("buttonx").name

Answer 2

buttonx只是在创建控件时指定的名字，并不包含对已创建控件的引用。而cmdbutton则引用了控件，所以可以用cmdbutton来访问。