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

这种效果如何做？

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

请问该怎么写呢？

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

哦。我知道了是咋回事了。

原来一打开临时版本跟踪表，光标自动就在文本框，所以没显示提示。如何不让光标一开始就显示在文本框内？

应该一打开临时版本跟踪表，文本框就显示提示。

这样效果好像是对的。

可是呢。必须通过delete“请输入临时版本编号”才可以输入内容。而不是鼠标直接点击一下就可以输入内容。

可以改吗？

哦。确认一下。

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

click :e.Sender.SelectAll

afterload :增加了e.Form.Controls("请输入临时版本编号").Text = "请输入临时版本编号"

还有再改过其他的地方吗？

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

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

我照着之前的做了一个需求编号的查询显示。问题是，缺省打开临时版本跟踪表，需求编号文本框提示是正确的，

但当点击缺省按钮或者是全部按钮，那么需求编号文本框就不会出现提示了。

这是怎么回事呢？

你点击"缺省"按钮和"全部”按钮试一下了吗？