| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码反应问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121365) |
| -- 作者：aza520 -- 发布时间：2018/7/4 16:51:00 -- 代码反应问题 设了以下代码，当我选择"CheckBox16"为True时，"TextBox11"不能编辑，但当我重新选择"CheckBox16"为False时，"TextBox11"没能返回到可编辑状态，仍然不能编辑。重新进入设计窗口保存后，又回到正常状态。请问老师是什么原因？ 数量对比表_TextBox11_Enter
If
e.Form.Controls("CheckBox16").Checked = True Then
e.Form.Controls("TextBox11").Enabled = False Else
e.Form.Controls("TextBox11").Enabled = True End If |
| -- 作者：aza520 -- 发布时间：2018/7/4 17:11:00 -- 把TextBox11的Enter事件换成如下代码，为啥不起作用 Dim ctl As WinForm.Control = e.Sender If e.Form.Controls("CheckBox16").Checked = True Then ctl.ReadOnly = BooleanEnum.False \'允许编辑 Else ctl.ReadOnly = BooleanEnum.True \'禁止编辑 End If
|
| -- 作者：有点甜 -- 发布时间：2018/7/4 22:23:00 -- CheckBox16 的checkedchanged也要写代码，如
If e.Form.Controls("CheckBox16").Checked = True Then e.Form.Controls("TextBox11").Enabled = False Else e.Form.Controls("TextBox11").Enabled = True End If |