以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  chekbox选中前进行验证  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79454)
--  作者：文道古月
--  发布时间：2016/1/1 0:07:00
--  chekbox选中前进行验证

大师：如果想在chekbox的选中前进行验证，比如设密码，代码该写在哪？

 

或者有其他控件可用？

[此贴子已经被作者于2016/1/1 0:18:43编辑过]
--  作者：文道古月
--  发布时间：2016/1/1 0:34:00
--  

在CheckedChanged事件中写代码：

 

虽然能达到效果，但是密码弹窗如果手动取消或关闭，还是无法阻止选中；验证错误后，点击确定按钮，希望再次返回到验证窗口

 

有什么方法判断得到用户点击了密码弹窗的哪个选项？

 

Dim ccb As WinForm.CheckBox = e.Form.Controls("模式CheckBox1")
If ccb.Checked = True Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "369" Then
            ccb.Checked = True
        Else ccb.Checked = False
            MessageBox.show("密码错误,请重新输入!") 
        End If
    End If
End If
--  作者：zcgmxf
--  发布时间：2016/1/1 10:03:00
--  
http://www.foxtable.com/help/topics/0326.htm
--  作者：文道古月
--  发布时间：2016/1/1 14:35:00
--  

谢谢，不过

 

我想最想判定的是这个窗口的按钮 inputPassWord

[此贴子已经被作者于2016/1/1 14:35:30编辑过]
--  作者：大红袍
--  发布时间：2016/1/3 23:04:00
--  
Dim ccb As WinForm.CheckBox = e.Form.Controls("模式CheckBox1")
If ccb.Checked = True Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "369" Then
            ccb.Checked = True
        Else
            ccb.Checked = False
            MessageBox.show("密码错误,请重新输入!")
        End If
    Else
        ccb.Checked = False
    End If
End If