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


  共有2252人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望: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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/17 11:29:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
z769036165
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:752 积分:5363 威望: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"),"请输入密码")





 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望: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,"请输入密码")

 回到顶部