Question

VBA 窗体中动态添加的控件

发现一个问题:
动态添加的控件例如 Commandbutton1 要写成userform1.controls("Commandbutton1")，才行，比如msgbox typename(Commandbutton1)就没反应，因为这个按钮并不是动态添加的那个按钮。
要写成msgbox typename(userform1.controls("Commandbutton1"))才会显示Commandbutton
但是在给Commandbutton1定义事件时，
Private Sub userform1.controls("commandbutton1")_click()又提示语法错误，请问改如何改？

Answer 1

Java可以根据需要用代码画控件, VBA的控件不能动态添加, 只能事先准备好, 隐藏, 需要时候显示即可

Answer 2

你也太不着调了吧？
在controls.add的时候返回该控件的引用，定义控件变量接收它了
dim WithEvents command2 as Commandbutton '在声明区定义控件变量加WithEvents关键字，这样在右边下拉列表中会列出该控件变量的事件表

set command2=controls.add(.....)

Answer 3

实例代码：
//在picture1上面添加一个commandbutton
Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1 //动态添加控件
With Form1.cmdOk
.Visible = True
.Width = 500
.Caption = "确认(&Y)"
End With
End Sub