我读到某个地方,一旦在UserForm上选择了一个选项按钮(或单选按钮),就不会注册单击事件。这是真的?
如果是这样,除了使用复选框之外,还有什么方法可以解决这个问题呢?
谢谢!
更新:根据user3561813的建议,我使用以下代码尝试了MouseUp事件:
Private Sub myOptionButton_MouseUp()
MyUserForm.Show
End Sub
我收到了这个编译错误:"程序声明与具有相同名称的事件或程序的描述不匹配"
更新2:此代码无法取消选择已选择的单选按钮:
Private Sub myOptionButton_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If myOptionButton.Value = True Then
myOptionButton.Value = False
Else
myOptionButton.Value = True
End If
End Sub
奇怪的是,如果我单步执行代码,它就可以工作了。但是,如果我只是通过它,它不会。
答案 0 :(得分:1)
您可以使用MouseUp
事件来运行您喜欢的任何代码。