VB.NET中如何为文本框设置灰色默认输入示例并在用户开始输入时自动消失

在VB.NET里给文本框添加灰色默认提示文本（输入时自动消失），有两种常用方案，取决于你使用的.NET版本：

方案1：使用内置的PlaceholderText属性（推荐，适用于新版本） #

如果你的项目基于 .NET Framework 4.7.2+、.NET Core 3.0+ 或者 .NET 5+ 的WinForms框架，直接用TextBox自带的PlaceholderText属性就能搞定，不需要写额外的事件代码：

方法A：通过设计器设置 #

1. 选中你的TextBox控件
2. 在属性窗口里找到PlaceholderText，输入你的提示内容（比如"请输入用户名"）
3. 运行程序，文本框会自动显示灰色的提示文本，用户点击输入时自动消失，失去焦点且内容为空时又会重新显示。

方法B：通过代码设置 #

在窗体的Load事件或者初始化代码里添加：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox1.PlaceholderText = "请输入用户名"
End Sub

方案2：手动通过事件实现（兼容旧版本） #

如果你的项目用的是更早的.NET Framework版本（比如4.7.1及以下），没有PlaceholderText属性，那就需要通过Enter和Leave事件手动实现：

步骤1：初始化提示文本 #

首先在窗体加载时设置文本框的初始状态：

' 定义一个常量存储提示文本，方便维护
Private ReadOnly PlaceholderContent As String = "请输入用户名"

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox1.Text = PlaceholderContent
    TextBox1.ForeColor = Color.Gray ' 设置为灰色
End Sub

步骤2：处理输入进入事件（Enter） #

当用户点击或切换到文本框时，清空提示文本并恢复正常字体颜色：

Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
    ' 判断当前内容是提示文本且颜色为灰色，才清空
    If TextBox1.Text = PlaceholderContent AndAlso TextBox1.ForeColor = Color.Gray Then
        TextBox1.Text = ""
        TextBox1.ForeColor = Color.Black
    End If
End Sub

步骤3：处理输入离开事件（Leave） #

当用户离开文本框且内容为空时，重新显示提示文本：

Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
    ' 如果文本框为空，恢复提示文本和灰色
    If String.IsNullOrWhiteSpace(TextBox1.Text) Then
        TextBox1.Text = PlaceholderContent
        TextBox1.ForeColor = Color.Gray
    End If
End Sub

额外提示 #

• 用变量存储提示文本比硬编码更灵活，后期修改只需要改一处
• 如果担心用户输入的内容和提示文本完全一致，可以再加个布尔变量标记是否是提示状态，不过一般场景下不需要这么复杂

内容的提问来源于stack exchange，提问作者Waddah Shamroukh