以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中的文本框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72417)

--  作者:seal51
--  发布时间:2015/7/30 0:01:00
--  [求助]窗口中的文本框
窗口中的文本框如果内容为空, 则可以编辑, 如果有内容,则不可编辑, 如何实现?
--  作者:blackwolf
--  发布时间:2015/7/30 0:25:00
--  
文本框的 textchanged 事件中添加
If e.Form.Controls("TextBox1").Value Is Nothing  Then
e.Form.Controls("TextBox1").ReadOnly=BooleanEnum.True
Else 
e.Form.Controls("TextBox1").ReadOnly=BooleanEnum.False
End If
[此贴子已经被作者于2015/7/30 0:43:34编辑过]

--  作者:seal51
--  发布时间:2015/7/30 10:21:00
--  

谢谢楼上的老师!


--  作者:seal51
--  发布时间:2015/7/30 10:21:00
--  
如何有内容双击就没有反应呢?
--  作者:大红袍
--  发布时间:2015/7/30 10:26:00
--  

Enter事件

 

 

If e.sender.Text Is Nothing  Then
    e.sender.ReadOnly = BooleanEnum.True
Else
    e.sender.ReadOnly = BooleanEnum.False
End If
[此贴子已经被作者于2015/7/30 10:26:09编辑过]