Menambahkan WaterMark Pada TextBox – Kode VB Net

Watermark adalah teks yang muncul ketika suatu Kontrol TextBox sedang kosong atau tidak diisi. Watermark biasanya digunakan untuk memberikan informasi tambahan terhadap kegunaan sebuah Kontrol tersebut. Berikut contoh pembuatannya :

• Buat Project baru dengan 1 Form dan 1 Module
• Tambahkan Kontrol ke Form1 : 3 TextBox (TextBox1 s/d TextBox3), 1 ComboBox (ComboBox1)
• Tulis kode ini di event Form1_Load :

SetWatermark(TextBox1, "Isikan Nama")
SetWatermark(TextBox2, "Isikan Alamat")
SetWatermark(TextBox3, "Isikan Telepon")
SetWatermark(ComboBox1, "Pilih Kota")

• Tulis kode ini di Module1 :

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

Jalankan Project, lalu coba lihat hasilnya.