全局代码
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"),"请输入密码")
加好友 
发短信
Post By：2020/9/18 8:34:00 [显示全部帖子]
