| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求窗口复选框满足条件勾选码 (http://www.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 |