以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于同窗口BUTTON可用可不用的问题,求指点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48063)
--  作者：snowlow
--  发布时间：2014/3/22 12:00:00
--  关于同窗口BUTTON可用可不用的问题,求指点
如图,当我点击新增时,要除了保存和取消,其他按钮都不可编辑.这个要怎么写代码比较简便呢?
--  作者：Bin
--  发布时间：2014/3/22 12:04:00
--  
图挂了.


你可以设置其他控件的禁用属性为Flase
--  作者：snowlow
--  发布时间：2014/3/22 12:05:00
--  

[此贴子已经被作者于2014-3-22 12:10:03编辑过]
--  作者：snowlow
--  发布时间：2014/3/22 12:07:00
--  
我不会发图..我总共有:新增,编辑,保存,取消,导出,导入,查找,退出等按钮..我想要除了保存,取消按钮外其他都不能用..如果这样设置的话就要一堆代码了..有没有简便点的呀?Dim bj As WinForm.Button = e.Form.Controls("编辑")
\'Dim sc As WinForm.Button = e.Form.Controls("删除")
\'Dim cz As WinForm.Button = e.Form.Controls("查找")
\'Dim dc As WinForm.Button = e.Form.Controls("导出")
\'Dim dr As WinForm.Button = e.Form.Controls("导入")
\'Dim xz As WinForm.Button = e.Form.Controls("新增")
\'If xz.Focused = True Then
\'sc.Enabled = False
\'cz.Enabled = False
\'dc.Enabled = False
\'dr.Enabled = False
\'bj.Enabled = False
\'Else
\'sc.Enabled = True
\'cz.Enabled = True
\'dc.Enabled = True
\'dr.Enabled = True
\'bj.Enabled = True
\'End If
我现在是这样...感觉太繁琐..
--  作者：snowlow
--  发布时间：2014/3/22 12:09:00
--  

[此贴子已经被作者于2014-3-22 12:10:23编辑过]
--  作者：逛逛
--  发布时间：2014/3/22 13:50:00
--  

你可以增加两个Panel

 

将新增,编辑,导出,导入,查找,退出  放在一个Panel里

 

将保存,取消 放在另一个Panel里

 

这样你只要设置这两个Panel 的可用属性就可以了。
--  作者：lsy
--  发布时间：2014/3/22 15:14:00
--  

新增按钮的Click事件：

For Each c As WinForm.Control In e.Form.Controls
    If c.Gettype.Name = "Button" AndAlso c.Name <> "保存" AndAlso c.Name <> "取消" Then
        c.Enabled = False
    End If
Next

[此贴子已经被作者于2014-3-22 15:15:22编辑过]
--  作者：longtechwj
--  发布时间：2014/3/22 16:25:00
--  
写个自定义函数就可以实现
不必要一个的去设置，然后
传状态是false还是true的
参数，要不然代码量就会变
的比较大
[此贴子已经被作者于2014-3-22 16:25:57编辑过]
--  作者：snowlow
--  发布时间：2014/3/22 16:47:00
--  
谢谢.我尝试一下.