文本框输入文本时，文本消失

Question

基本上，我创建了一个用户表单，我想知道是否可以添加灰色文本。当用户开始输入文本时，该文本会消失：

[图像已过期]

一旦用户开始输入，字体颜色应更改为黑色。

任何帮助都将不胜感激。

- CaptainABC

Answer 1

这样子就可以了吗？

Private Sub UserForm_Initialize()
    TextBox1.ForeColor = &HC0C0C0 '<~~ Grey Color
    TextBox1.Text = "Please Enter Name Here"
    CommandButton1.SetFocus '<~~ This is required so that the focus moves from TB
End Sub

Private Sub TextBox1_Enter()
    With TextBox1
        If .Text = "Please Enter Name Here" Then
            .ForeColor = &H80000008 '<~~ Black Color
            .Text = ""
        End If
    End With
End Sub

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .Text = "Please Enter Name Here"
        End If
    End With
End Sub

屏幕截图（演示）

- Siddharth Rout

---

很高兴能够帮助 :) - Siddharth Rout

你太厉害了，抢在我之前完成了。我几乎也是这么想的。XD - user1759942

@user1759942：糟糕...真诚道歉 :) - Siddharth Rout

只要您将选项卡顺序设置为不从文本框开始，它就能很好地工作！ - seadoggie01