主题：关于文本框里的提示！

我看到很多网站 用于搜索的 输入栏 经常有那种灰色提醒的字  如果点击这个输入栏 这灰色的字体就会消失  请问能设置嘛？

貌似有点不习惯 我借鉴你的后 刚又用了另一个方法！

 

就是初始值 写了   提示语

Enter中写入e.sender.value = Nothing

 

但是这个字体还是黑色的

 

能不能通过 代码实现这个字体是灰色的 以便区别！

这个 我没表达清楚！

 

我的意思是   这个文本框 未选择之前 里面显示灰色的 字体提示

 

而选择后  字体就是默认的黑色

 

离开后 又恢复成灰色的提示

 

如何实现？

现在 我是这样实现的！ 但是有个小问题

 

这个文本框是用于筛选的  要求的功能在5楼

 

我现在 此文本框初始值设置了 编号,底盘号,车牌号,型号  灰色

 

textchanged 设置了

Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As Table = Tables("客户档案")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = "底盘号 Like " & txt & " Or 编号 Like " & txt & " Or 车牌号 Like " & txt & " Or 型号 Like " & txt
End If

 

enter事件

e.sender.value = Nothing
e.sender.ForeColor=Color.Black

 

 

leave事件

e.sender.ForeColor=Color.Gray
e.sender.value = "编号,底盘号,车牌号,型号"

 

关键就是 leave的时候   e.sender.value = "编号,底盘号,车牌号,型号"  不能触发 textchanged 事件 

 

该如何设置呢~~

我想实现  

离开后 又恢复成灰色的提示  灰色的提示为  编号,底盘号,车牌号,型号

 

现在leave事件的代码是

e.sender.value = "编号,底盘号,车牌号,型号"

e.sender.ForeColor=Color.Gray

也就是说  离开后 文本框就又会自动搜索  编号，底盘号，车牌号，型号  

我想离开后  不自动搜索  保持灰色的提示就行了

我还是上传附件吧

出现的问题如下：

如果我 筛选完毕 离开此文本框 点击其它文本框

 则整个表 和 窗口数据变为空 怀疑是 又自动搜索了 编号，底盘号，车牌号，型号 一遍

 

如果此时关闭窗口 则又跳出错误框 显示的是窗口，客户档案信息，beforeclose的错误

里面代码是

If Tables("客户档案").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    e.Cancel = True
End If

 

 

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

点击浏览该文件:内控系统12.rar

还是有点问题  离开筛选文本框后 筛选文本框 没有相应的灰色提示

 

                  第二 关键是没法离开文本框了 貌似 不能点击其它文本框  一点就刷新筛选   你最好把代码放进去试下  

 

想了半天 也没想出怎么解决~