做了一个VB文本框。想实现以下功能。

Question

焦点在文本框上，并且当单击此时会接收新的输入，同时清空原来的字。
当不单击直接输入时也会清空默认的字。并且接收新的字。
就是类似第一次上QQ，你登录时，QQ号的地方写着，请输入QQ号，你单击这字就会不见了，等你输入号码，这功能我已在TEXT的click事件中实现。txtuserlogin.text=""就行了。可是要实现用户一输入就删了默认的字。这要怎么实现呢？请高手做答。在线等!

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Text1.Tag <> "***" Then
        Text1.Text = ""
        Text1.Tag = "***"
    End If
End SubPrivate Sub Text1_LostFocus()
    Text1.Tag = ""
End Sub

Answer 2

Private Sub Text1_SetFocus()
    if Text1.text = "默认的字" then Text1.text = ""
End Sub
text1获取焦点问题

Answer 3

对不起，上面写错了，应该是这个
Private Sub Text1_GotFocus()
    if Text1.text = "默认的字" then Text1.text = ""
End Sub
text1获取焦点问题

Answer 4

这个方法不太可行。就是说事实上焦点在form装载后就已经在这个文本上了！

Answer 5

具体解释一下好嘛，不明白用意。TAG属性的用途是什么？汗了。我再查一下。

Answer 6

tag是控件附带的一个属性，没有具体用途，由程序员自由发挥
一般的控件都带这个属性
基本上，相当于一个String型全局变量
不用tag属性，另外单独定义一个全局变量也可以dim sss as stringPrivate Sub Text1_KeyPress(KeyAscii As Integer) 
    If sss<> "***" Then 
        Text1.Text = "" 
        sss = "***" 
    End If 
End Sub Private Sub Text1_LostFocus() 
    sss = "" 
End Sub 

Answer 7

谢谢yacong大哥，问题搞定，自己又学会了一招，刚学编程，思路不算开扩，请以后多多指教。可以的话，留个联系方式。