VBA 动态添加控件

Question

在窗体中动态添加commandbutton1
UserForm1.Controls.Add("forms.CommandButton.1", "CommandButton" & 4 + Fix((ccount - 13) / 4), True)
1、如果我把forms.CommandButton.1改成VB.commandbutton就会出错
请问这是为什么？
2、如果我把forms.CommandButton.1背后的.1去掉，也会出错，请问这个1代表什么呢？
3、我给新增的控件动态写入代码，发现代码没反应。然后用msgbox typename(动态添加的控件)，发现是空值，而msgbox typename(手动添加的控件)，就会显示控件类型。请问为什么动态添加的控件typename是空值，该如何解决呢？

急求高手！
添加控件以及为新增的控件增加代码，都能实现。就是那个新增的代码不起作用。原因是控件名称的问题。userform1里动态添加的控件名称要加 controls("控件名") 才可以。也就是说Private Sub OptionButton" & i & "_Click()" 这里的 OptionButton" & i & 指的并不是新增的这个控件，新增的控件为 Private Sub controls(OptionButton" & i & ")_Click()" (我这样写法是错误的，但意思你应该明白)。我现在苦恼的也就是不知道该如何写这个private 才能表示这个新增的控件

Answer 1

vb和vba还是有区别的，尽管他们的语法大致相同。

1应该是控件编号，如果是手动画控件，第一个的编号默认为1

至于为添加的控件添加代码，百度有很多

’将程式码复制到Module中,然後执行 GetOption程序
Sub GetOption()
Dim TempForm 'As VBComponent
Dim NewOptionButton As MSForms.OptionButton
Dim LeftPos As Integer
Dim X As Integer, i As Integer, TopPos As Integer
' 隐藏VBE视窗预防萤幕更新
Application.VBE.MainWindow.Visible = False
' 动态新增UserForm
Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(3)
' 新增 OptionButtons
LeftPos = 4
k = 1
TopPos = 5
For i = 1 To 3
LeftPos = 4
For j = 1 To 10
'动态新增OptionButton控件
Set NewOptionButton = _
TempForm.Designer.Controls.Add("forms.OptionButton.1")
With NewOptionButton
.Width = 60
.Caption = k & "℃"
.Height = 15
.Left = LeftPos
.Top = TopPos
.Tag = k & "℃"
.AutoSize = True
End With
LeftPos = LeftPos + 30
k = k + 1
Next j
TopPos = i * 20 + 5
Next i
'【写入Click 事件】
For i = 1 To 30
With TempForm.CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()"
.InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag"
.InsertLines X + 3, "End Sub"
End With
Next i
With TempForm
.Properties("Caption") = "温度选项"
.Properties("Width") = LeftPos + 20
.Properties("Height") = TopPos + 20
.Properties("Left") = 160
.Properties("Top") = 150
End With
'显示窗体
VBA.UserForms.Add(TempForm.Name).Show
'关闭後一橱窗体
ActiveWorkbook.VBProject.VBComponents.Remove VBComponent:=TempForm
End Sub

追问

你好，请看下我的补充，再次请教了！

追答

excel vba帮助里面找到了，搜索关键字“OLE 程序标识符”

OLE 程序标识符：可使用 OLE 程序标识符（有时称作 ProgID）创建自动化对象。
若要创建下表列出的 ActiveX 控件，请使用相应的 OLE 程序标识符。

例如

复选框
Forms.CheckBox.1

组合框
Forms.ComboBox.1

命令按钮
Forms.CommandButton.1

其它标识符略

我不知道你运行了上面的代码没，下面这行就是写入相应控件事件代码的
.InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()"
如果你将“显示窗体”以后几行代码去掉，可以在运行后看到自动添加的窗体和控件，并且控件代码都写好了，点击控件使单元格cells（8,8）值发生变化。

追问

我知道如何新增代码，运行后看代码窗口，也确实新增了那些代码。问题是这些代码不起作用，原因就是我上面补充的。创建的控件名称实际上不是optionbutton1(假设i=1) 而是controls("optionbutton1"),所以Private Sub OptionButton" & i & "_Click()"就没用了