以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求窗口复选框满足条件勾选码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120082)
--  作者：fytea
--  发布时间：2018/6/6 17:14:00
--  求窗口复选框满足条件勾选码

窗口TextBox不为空时,CheckBox=true,否则=false

并且true时标题CheckBox1为绿色,否则为红色
--  作者：有点甜
--  发布时间：2018/6/6 17:17:00
--  

文本框textchanged事件

 

If e.sender.text = "" Then

    e.form.controls("CheckBox1").Checked = False

Else

    e.form.controls("CheckBox1").Checked = True

End If

 

复选框checkedChanged事件

 

If e.sender.Checked Then

    e.sender.backcolor = color.Green

Else

    e.sender.backcolor = color.Red

End If