用班长的这个方法有没办法在全局变量里面定义所有名称为“项目名称”的控件,都显示水印呢?
全局代码如下:
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.textbox,str As String)
SendMessage(wTextBox.BaseControl.Handle, EM_SETCUEBANNER, IntPtr.Zero, System.Text.Encoding.Unicode.GetBytes(str))
End Sub
窗口加载后代码如下:
SetWatermark(e.Form.Controls("项目名称"),"请输入项目名称")