请教如何终止Optionbutton的选中事件？

[比特灵]

希望达到的效果：
点击选项之一时，提醒用户选这个选项的风险，如果用户统计则继续选中它，如果不同意则不选择用，维持原选项。

[比特灵]

[熊孩子开学喽]

这也不算什么技术问题吧. 假设你用的是控件数组. 那么在点击动作的时候(无论点了哪一个),都会触发相同的事件, 你只要判断当前点击的是否你需要提示的哪一个, 如果是的,那么就弹一个提醒窗. 根据用户返回的点击选择来判断到底是选中现在要点击的这个还是回到之前选中的哪一个.

[比特灵]

回到之前选中的那一个，还会触发之前那个个选项的点击事件。 我本想只阻止当前用户的选择的选项，相当于鼠标没有点击一样。

[比特灵]

我现在就是用LS的方法，但是.value=true又会重新触发_click方法，还要处理。

[比特灵]

好像只能如此了，结了吧；多谢各位。

[比特灵]

Private Sub Option1_Click(Index As Integer) if 用户确认操作=false then Option1(上一个).value=true'这个动作还会触发Click事件 end if end sub

[of123]

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