重新测试了一下，是可以的，之前测试错了，以为不行
这样改改，可以同时适合其它输入控件
全局代码
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,"请输入密码")
加好友 
发短信
Post By：2020/9/17 11:29:00 [显示全部帖子]
