[求助]文本框水印如何应用到下拉框？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本框水印如何应用到下拉框？

共有3587人关注过本帖树形打印复制链接主题：[求助]文本框水印如何应用到下拉框？

zto001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00

[求助]文本框水印如何应用到下拉框？ 发帖心情

Post By：2020/9/17 11:10:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153214&page=0&move=pre

[求助]文本框水印如何应用到下拉框？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/17 11:29:00 [只看该作者]

[此贴子已经被作者于2020/9/18 8:45:26编辑过]

z769036165

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00

Post By：2020/9/18 8:34:00 [只看该作者]

全局代码

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As Byte()) As Integer

Public Const EM_SETCUEBANNER As Integer = &H1501

Public Sub SetWatermark(wTextBox As winform.ComboBox,str As String)

SendMessage(wTextBox.BaseControl.Handle, EM_SETCUEBANNER, IntPtr.Zero, System.Text.Encoding.Unicode.GetBytes(str))

End Sub

窗口代码

SetWatermark(e.Form.Controls("ComboBox1"),"请输入账号")

SetWatermark(e.Form.Controls("ComboBox2"),"请输入密码")

或者参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=33830&skin=0

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/18 8:45:00 [只看该作者]

重新测试了一下，是可以的，之前测试错了，以为不行

这样改改，可以同时适合其它输入控件

全局代码

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As Byte()) As Integer

Public Const EM_SETCUEBANNER As Integer = &H1501

Public Sub SetWatermark(wTextBox As object,str As String)

SendMessage(wTextBox.Handle, EM_SETCUEBANNER, IntPtr.Zero, System.Text.Encoding.Unicode.GetBytes(str))

End Sub

窗口代码

SetWatermark(e.Form.Controls("ComboBox1").BaseControl,"请输入账号")

SetWatermark(e.Form.Controls("textBox1").BaseControl,"请输入密码")

SetWatermark(e.Form.Controls("CheckedComboBox1").basecontrol,"请输入密码")

SetWatermark(e.Form.Controls("DropBox1").basecontrol,"请输入密码")

SetWatermark(e.Form.Controls("NumericComboBox1").basecontrol,"请输入密码")

下一主题 >> << 上一主题

主题：[求助]文本框水印如何应用到下拉框？