关于vb文本框的消失和出现

在vb里如何使鼠标在单击一个控件时,文本框消失,再单击另一个控件时,文本框有出现?

vb文本框的消失和出现可以参考下面的两个语句:

1、消失

Private Sub Command1_Click()

tet1.Visible = False

End Sub

2、出现

Private Sub Command2_Click()

tet1.Visible = True

End Sub

扩展资料:

VB参考函数

InputBox 函数: 在对话框中显示提示信息,等待用户输入文本或者单击按钮,并返回文本框的内容。 

InStr 函数: 返回一个字符串在另一个字符串中第一次出现的位置。 

InStrRev 函数: 返回一个字符串在另一个字符串中出现的位置,是从字符串的末尾算起。 

Int 函数 :返回数的整数部分。 

参考资料来源:百度百科-Visual Basic

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2016-02-16
Private Sub Command1_Click()
tet1.Visible = False
End Sub

Private Sub Command2_Click()
tet1.Visible = True
End Sub
解释:第一个语句是说,当你单击控件1时,text1的可视化为假,也就是说,吧text1给隐藏了。就是你要的消失效果!
第二个语句是说,当你单击控件2时,text1的可视化为真。就是把text1的隐藏取消了。就出现了。本回答被提问者采纳
第2个回答  2009-07-26
Private Sub Command1_Click()
Text1.Visbal = False
End Sub

Private Sub Command2_Click()
Text1.Visbal = True
End Sub
第3个回答  2009-07-26
这个代码才对!
Private Sub Command1_Click()
Text1.Visible = False
End Sub

Private Sub Command2_Click()
Text1.Visible = True
End Sub
第4个回答  2009-07-26
用一个按钮就好啦,何必用两个?
Private Sub Command1_Click()
Text1.Visbal = NOT Text1.Visbal
End Sub
相似回答