请教如何终止Optionbutton的选中事件?
希望达到的效果:
点击选项之一时,提醒用户选这个选项的风险,如果用户统计则继续选中它,如果不同意则不选择用,维持原选项。
[解决办法]
这也不算什么技术问题吧.
假设你用的是控件数组.
那么在点击动作的时候(无论点了哪一个),都会触发相同的事件, 你只要判断当前点击的是否你需要提示的哪一个, 如果是的,那么就弹一个提醒窗. 根据用户返回的点击选择来判断到底是选中现在要点击的这个还是回到之前选中的哪一个.
[解决办法]
Option Explicit
Dim LastOption As Integer
Private Sub Form_Load()
Option1(0).Value = True
End Sub
Private Sub Option1_Click(Index As Integer)
If Index = 1 Then
If vbCancel = MsgBox("Dangerous! Are you sure?", vbOKCancel, "Warning") Then
Option1(LastOption).Value = True
Option1(LastOption).SetFocus
Exit Sub
End If
End If
LastOption = Index
End Sub