以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口控件有条件隐藏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54078)
--  作者：北冰洋
--  发布时间：2014/7/21 15:12:00
--  [求助]窗口控件有条件隐藏
求助：  就是一个窗口有三个控件 a b c ，怎么实现当 a 中有数据时，b c 自动隐藏，b 中有数据时，a c 自动隐藏，c中有数据时，a b 隐藏。。。
求代码。。谢谢。。
--  作者：有点甜
--  发布时间：2014/7/21 15:15:00
--  

 比如编写 控件a的TextChanged事件

 

e.Form.Controls("TextBox2").Visible = (e.sender.Text = "")
e.Form.Controls("TextBox3").Visible = (e.sender.Text = "")

[此贴子已经被作者于2014-7-21 15:15:16编辑过]
--  作者：Bin
--  发布时间：2014/7/21 15:15:00
--  
在A Textchanged事件中写入代码

if e.sender.text > "" then
     e.form.controls("B").Visilbe=false
     e.form.controls("C").Visilbe=false
else
     e.form.controls("B").Visilbe=True
     e.form.controls("C").Visilbe=True
end if

依此类推
--  作者：Bin
--  发布时间：2014/7/21 15:16:00
--  
以下是引用有点甜在2014-7-21 15:15:00的发言：

 比如编写 控件a的TextChanged事件

 

e.Form.Controls("TextBox2").Visible = (e.sender.Text = "")
e.Form.Controls("TextBox3").Visible = (e.sender.Text = "")

[此贴子已经被作者于2014-7-21 15:15:16编辑过]

好图片点击可在新窗口打开查看
--  作者：北冰洋
--  发布时间：2014/7/22 20:17:00
--  
谢谢。这个搞定了，可是控件虽然隐藏了，可还是能打印的出来，怎么能在以上条件下让隐藏的控件不被打印出来啊？
--  作者：有点甜
--  发布时间：2014/7/22 20:31:00
--  
以下是引用北冰洋在2014-7-22 20:17:00的发言：
谢谢。这个搞定了，可是控件虽然隐藏了，可还是能打印的出来，怎么能在以上条件下让隐藏的控件不被打印出来啊？

 

Dim flag As Boolean = (e.sender.Text = "")
e.Form.Controls("TextBox2").Visible = flag
e.Form.Controls("TextBox3").Visible = flag
e.Form.Controls("TextBox2").Printable = flag
e.Form.Controls("TextBox3").Printable = flag
--  作者：北冰洋
--  发布时间：2014/7/22 21:38:00
--  
搞定 谢谢。。