- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么 没有 效果？？ 条件 关闭按键 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29653)
-- 发布时间：2013/3/11 12:51:00
-- 为什么 没有 效果？？ 条件 关闭按键
Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If gx.Checked = True Then
e.Form.Controls("删除添加").Enabled = False
Else
e.Form.Controls("删除添加").Enabled = True
End If
需要实现的效果是： 复选框， 勾选时， 删除添加 无用， 不勾选时。有用
将 上面的 代码 ， 放在 主窗口 AFTERLOAD 的事件
此主题相关图片如下：qq截图20130311124823.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2013-3-12 2:29:56编辑过]
-- 发布时间：2013/3/11 13:40:00
--
求解！！
-- 发布时间：2013/3/11 14:14:00
--
删除原来的代码，修改删除添加按钮的代码：
If e.Form.Controls("CheckBox1").Checked = False Then
\'原来的代码
End if
[此贴子已经被作者于2013-3-11 14:14:21编辑过]
-- 发布时间：2013/3/11 14:16:00
--
我试试。
-- 发布时间：2013/3/12 2:30:00
--
还是有点 不明白。 案例以上上传 ， 请指定，谢谢
-- 发布时间：2013/3/12 7:47:00
--
Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")
e.Form.Controls("删除添加").Enabled = gx.Checked
放在复选框的
CheckedChanged
Checked属性发生变化后执行。
e参数属性：
Sender：返回触发事件的控件
Form: 返回控件所在的窗口
执行.
[此贴子已经被作者于2013-3-12 7:48:22编辑过]
-- 发布时间：2013/3/12 8:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2013/3/12 14:23:00
--
代码都试了， 进入 窗口后， 不能 立即执行。
进入窗口， 删除按键， 始终 在 可用状态， 要反复勾选， 没能达到 理想效果！
理想效果是： 进入窗口，默认是勾选， 按键不可用，灰色不能点击！！
若取消勾选后，按键恢复正常！