求这种文本框的设置代码。
就是当点击时就会隐藏框内的文字，输入了文字状态时点击不会清除框的文字

就是QQ登陆框的文本框这种！

有没有人会？？？？？？？

If Text1.Text = "Text1" Then
Text1.Text = ""
End If
我试过 可行

'------------------------
'以下代码，要求 窗体默认焦点不在 combo1 上时，测试通过。
'------------------------

Option Explicit

Private Const TUser = "请输入帐号"          '提示内容

Private Sub Combo1_Change()
'内容修改时，判断内容

If Combo1.Text = TUser Then         '如果是提示内容
    Combo1.ForeColor = 8421504      '则灰色
Else
    Combo1.ForeColor = 0            '否则黑色
End If

End Sub

Private Sub Combo1_GotFocus()
'得到焦点时，判断是否清除内容
If Combo1.Text = TUser Then
    Combo1.Text = ""
End If

End Sub

Private Sub Combo1_LostFocus()
'丢失焦点时，判断一下，是否应该显示提示
If Combo1.Text = "" Then
    Combo1.Text = TUser
End If

End Sub

Private Sub Form_Load()

'初始化,直接给提示
Combo1.Text = TUser

End Sub

直接判断if text1.text="请输入帐号"then  
        text1.text=""
        '再加一句改变颜色的句子
        失去焦点时可以判断
        if text1.text=""then  
        text1.text="请输入帐号"
密码输入也是如此

[ 本帖最后由 wxflw 于 2012-4-3 13:47 编辑 ]

试过了，输入后改变焦点后内容还在。就是清除combo1的内容时，没内容的情况下，点击文本框那个”输xxx“的文字恢复了。但点击窗体和窗体外的地方不恢复。怎么解决？

试试我这个方法判断文本框的内容，在获得焦点和失去焦点的事件中，代码在上面，自己改一下！

你测试时，要在 窗体上再放一个可以 得到焦点的 控件， 如一个按钮什么。
如果你焦点不转移的话，那个地方自然不会恢复。

你点击窗体和窗体外时，窗体的焦点还是在 这个控件上的。如果你还有第二个 输入框，当你点击第二个输入框时，这个 combo1 里的内容就应该可以看到变化了。

Private Sub Text1_Click()
If Text1.Text = "请输入帐号" Then
    Text1.Text = ""
    Text1.ForeColor = &H0&
End If
End Sub

Private Sub Text1_LostFocus()
    Text1.Text = "请输入帐号"
    Text1.ForeColor = &H808080
End Sub

Private Sub Text2_Click()
If Text2.Text = "请输入密码" Then
    Text2.Text = ""
    Text2.ForeColor = &H0&
End If
End Sub

Private Sub Text2_LostFocus()
    Text2.Text = "请输入密码"
    Text2.ForeColor = &H808080
End Sub

Option Explicit

Const AccountString = "Enter account"

Private Sub Form_Load()
    textAccount.ForeColor = &HC0C0C0
    textAccount.Text = AccountString
End Sub

Private Sub textAccount_Click()
    textAccount.Text = ""
    textAccount.ForeColor = &H80000012
End Sub

Private Sub textAccount_LostFocus()
    If textAccount.Text = "" Then
        textAccount.Text = AccountString
        textAccount.ForeColor = &HC0C0C0
    End If
End Sub