Cara Menambahkan Watermark Pada TextBox Visual Basic

Cara Menambahkan Watermark Pada TextBox Visual Basic

Cara Menambahkan Watermark Pada TextBox Visual Basic � Pada properties yang dimiliki TextBox di visual basic tidak ada fitur untuk menambahkan watermark. Apa itu watermark? Watermark adalah teks yang muncul ketika suatu kontrol textbox sedang dalam keadaan kosong atau tidak terisi.

Watermark biasanya digunakan untuk memberikan informasi tambahan terhadap kegunaan sebuah kontrol misalnya TextBox dan ComboBox.

Berikut ini cara membuat Watermark pada TextBox Visual Basic:

1. Buatlah sebuah Module dengan nama ModuleWatermark. Copy paste code di bawah ini di dalam module.

Private Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer
Private Declare Auto Function SendMessageString Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
 
Const GW_CHILD = 5
Const EM_SETCUEBANNER = &H1501
 
Sub SetWatermark(ByVal Ctl As TextBox, ByVal Txt As String)
SendMessageString(Ctl.Handle, EM_SETCUEBANNER, 1, Txt)
End Sub
 
Sub SetWatermark(ByVal Ctl As ComboBox, ByVal Txt As String)
Dim i As Integer
i = GetWindow(Ctl.Handle, GW_CHILD)
 
SendMessageString(i, EM_SETCUEBANNER, 1, Txt)
End Sub

2. Kemudian pada event Load form ketikkan code di bawah ini.

SetWatermark (TextBox1, �Masukkan nama�)

Untuk lebih jelasnya silahkan lihat video tutorial yang telah saya buat di bawah ini.

Bagi sobat yang masih bingung dengan cara pembuatan watermark pada textbox di vb.net silahkan tanyakan pada kolom komentar di bawah ini.

visit link download