请求高手要这个代码 - 编程论坛

#2

t112012-04-02 13:23

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

#3

踏神2012-04-02 13:50

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

#4

风吹过b2012-04-03 11:25

'------------------------
'以下代码，要求窗体默认焦点不在 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

#5

wxflw2012-04-03 13:42

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

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

#6

t112012-04-03 19:46

回复 4楼风吹过b

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

#7

wxflw2012-04-04 08:11

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

#8

风吹过b2012-04-04 08:53

以下是引用t11在2012-4-3 19:46:11的发言：

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

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

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

#9

ynlon2012-04-27 11:00

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

#10

wube2012-04-27 12:02

程序代码：

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

#11

ytsm05262012-04-30 14:17

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