首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问怎么终止Optionbutton的选中事件

2013-07-08 
请教如何终止Optionbutton的选中事件?希望达到的效果:点击选项之一时,提醒用户选这个选项的风险,如果用户

请教如何终止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

热点排行