使用动态添加到userform

Question

我使用以下代码将CheckBox1添加到UserForm：

Private Sub UserForm_Initialize()
    Dim opt As Variant
    Set opt = UserForm1.Controls.Add("Forms.checkbox.1", "CheckBox1", True)
End Sub

现在当我点击CommandButton时，我想检查CheckBox1是否已选中：

Private Sub CommandButton1_Click()
    If CheckBox1.Value = False Then
        MsgBox "F"
    End If
End Sub

但是这段代码不起作用;我认为因为复选框是动态添加的 这只是解决问题的代码的简化。

Answer 1

这就是你的想法：

gcc -shared -o main.dll main.o -lopengl32 -lglut32

然而，根据您的经验和希望编写更好的代码，您可能决定在使用Forms时遵循一些MVC模式。阅读这些以获得更多有关它的想法：

• https://codereview.stackexchange.com/questions/154401/handling-dialog-closure-in-a-vba-user-form

• http://www.vitoshacademy.com/vba-the-perfect-userform-in-vba/（免责声明 - 这是我的博客）

• https://rubberduckvba.wordpress.com/2017/10/25/userform1-show/

Answer 2

需要如下

Private Sub CommandButton1_Click()
If Me.Controls("Checkbox1").Value = False Then
MsgBox "F"
End If
End Sub