将焦点返回到文本框中的占位符

Question

我有一个登录表单。我有一张用户名和密码文本框，其中包含登录和关闭按钮。

我想要：

• 文字说"用户名"；在用户名中；密码"；在传球场
• 单击后，文本将消失
• 如果单击并专注于其他内容而不键入任何内容，它将返回占位符

我试过这个：

Private Sub Form_Load()
txt_username.Value = "Username"
txt_password.Value = "Password"
End Sub
Private Sub txt_username_Click()
If txt_username.Value = "Username" Then
txt_username.Value = ""
End If
End Sub
Private Sub txt_username_LostFocus()
If txt_username.Value = "" Then
txt_username.Value = "Username"
End If
End Sub

我的问题是，当进行更改时，即键入某个内容，然后删除它，在执行其他操作后，占位符不会返回。打字破坏了我的密码。

Answer 1

你很接近。尝试使用"；GotFocus"；而不是"；单击"：

Option Explicit
Private Sub Form_Load()
txt_username.Text = "Username"
txt_password.Text = "Password"
End Sub
Private Sub txt_username_GotFocus()
If Trim(txt_username.Text) = "Username" Then
txt_username.Text = ""
End If
End Sub
Private Sub txt_username_LostFocus()
If Trim(txt_username.Text) = "" Then
txt_username.Text = "Username"
End If
End Sub