以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7158)
--  作者：blackzhu
--  发布时间：2010/5/21 9:24:00
--  按钮事件
   我曾经在论坛下载过一个示例,但是找不到了.是这样的,一个窗口中有一文本框和一个按钮,打开时按钮上的标题是灰色的,而且是不能使用的.要在文本框中输入数据后,按钮就会自己解除锁定,按钮标题自然恢复.
[此贴子已经被作者于2010-5-21 9:59:00编辑过]
--  作者：贺老六
--  发布时间：2010/5/21 9:26:00
--  

在文本框的TextChanged设置代码，如果有内容，设置button的Enable属性为True，反之则设置为false

另帖子标题不要简单的“按钮”两个字，应该简单描述问题或问题类型

[此贴子已经被作者于2010-5-21 9:26:06编辑过]
--  作者：blackzhu
--  发布时间：2010/5/21 10:19:00
--  
Enabled的属性我试了,但是不能变灰色呀.
--  作者：狐狸爸爸
--  发布时间：2010/5/21 10:21:00
--  
Enabled属性设置为False，不可能不变为灰的
--  作者：blackzhu
--  发布时间：2010/5/21 10:24:00
--  

可以了

 
--  作者：blackzhu
--  发布时间：2010/5/21 11:01:00
--  

Dim lbl As WinForm.TextBox
lbl = e.Form.Controls("TextBox1")
Dim lbl1 As WinForm.Button
lbl1 = e.Form.Controls("Button2")
If lbl.Value Is Nothing  Then
    lbl1.Enabled = True
Else
    lbl1.Enabled = False
end if

 

  为什么我清空文本框的数据后,按钮标题不会立即变成灰色?
--  作者：狐狸爸爸
--  发布时间：2010/5/21 11:05:00
--  

设置在TextBox1的TextChanged事件中:

 

e.Form.Controls("Button2").Enabled = (e.Sender.Text > "")
--  作者：blackzhu
--  发布时间：2010/5/21 11:21:00
--  
简单明了.明白了.
--  作者：blackzhu
--  发布时间：2010/5/22 10:59:00
--  
我想问一下,在按钮中如何判断表名.
--  作者：czy
--  发布时间：2010/5/22 12:28:00
--  

 

MessageBox.Show(CurrentTable.Name)就是焦点所在的表。