动态添加控件

jimzhoujim

Private Sub CommandButton1_Click()
Dim jim As Control
Set jim = Me.Controls.Add("vb.commandbutton")
End Sub

我想在VBA里面动态添加控件，可是老是提示“无效的类别字符串”，请大家帮我看看，谢谢

王咣生

我在网上查了一下，试验结果：

Private WithEvents btn1 As CommandButton

Private Sub CommandButton1_Click()
    Dim jim As CommandButton
    Set jim = Me.Controls.Add("Forms.CommandButton.1", "btn1")
   
    With jim
        .Left = 20
        .top = 50
       
    End With
   
    Set btn1 = jim
End Sub

Private Sub btn1_Click()
    MsgBox "hi"
End Sub

jimzhoujim

谢谢，我刚才发现是帮助文档里的例子有错误

Set jim = Me.Controls.Add("Forms.CommandButton.1", "btn1")

帮助里是Set jim = Me.Controls.Add("MSForms.CommandButton.1", "btn1")