主题：[求助]文本框提示内容的隐藏显示

这种效果如何做？

比如缺省看到的有提示内容，鼠标在文本框点击一下，提示内容消失，然后可以直接输入自己想输入的内容。完了之后文本框再次显示提示内容。

请问该怎么写呢？

Enter

If e.Sender.Text = "请输入邮件号" Then
    e.Sender.ForeColor = Color.Black
    e.Sender.Text = ""
End If

Leave

If e.Sender.Text = "" Then
    e.Sender.Text = "请输入邮件号"
    e.Sender.ForeColor = Color.gray
Else
    e.Sender.ForeColor = Color.Black
End If

If e.Sender.Text = "请输入临时版本编号" Then
    e.Sender.ForeColor = Color.Black
    e.Sender.Text = ""
End If

If e.Sender.Text = "" Then
    e.Sender.Text = "请输入临时版本编号"
    e.Sender.ForeColor = Color.gray
Else
    e.Sender.ForeColor = Color.Black
End If

好像没生效。是怎么回事呢？

是啊。一个enter，一个leave。

是文本框的enter和leave事件吧。

在临时版本跟踪表，请看一下临时版本编号查询文本框。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统26.rar