主题：为什么 没有 效果？？ 条件 关闭按键

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

 求解！！

删除原来的代码，修改删除添加按钮的代码：

 

If  e.Form.Controls("CheckBox1").Checked  = False Then

   '原来的代码

End if

我试试。  

还是有点 不明白。  案例以上上传  ， 请指定，谢谢

Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")

Checked属性发生变化后执行。

e参数属性：

Sender：返回触发事件的控件
Form:   返回控件所在的窗口 

  执行.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

代码都试了， 进入 窗口后， 不能 立即执行。  

 

进入窗口，  删除按键， 始终 在 可用状态，  要反复勾选， 没能达到 理想效果！

 

理想效果是：  进入窗口，默认是勾选， 按键不可用，灰色不能点击！！

 

                                 若取消勾选后，按键恢复正常！