-->

[ADS] Top Ads

Cara Membuat Watermark Yang Benar Pada VB.Net

Cara Membuat Watermark Yang Benar Pada VB.Net

Membuat Watermark Yang Benar Pada VB.Net

Cara Membuat Watermark Yang Benar Pada VB.Net - priacoding. Dalam pembuatan desain aplikasi watermark sangatlah penting supaya hasil tampilan aplikasi lebih modern interface atau user interface (UI). postingan kali ini merupakan lanjutan dari postingan pria coding yang sebelumnya yang membahas cara membuat tampilan login yang modern interface.
Oke langsung saja kita masuk ke tutorial nya...

1. Buat satu buah module
klik kanan pada project → add → Module. Seperti gambar..
Koneksi Database Ms. Access

2. Langsung saja pastekan coding dibawah pada Module

Module 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
End Module

Penjelasan :
Pada coding

Sub SetWatermark(ByVal Ctl As TextBox, ByVal Txt As String)
        SendMessageString(Ctl.Handle, EM_SETCUEBANNER, 1, Txt)
    End Sub
Merupakan validasi watermark untuk Textbox.
Sedangkan coding

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
Merupakan validasi watermark untuk Combobox.

3. Untuk membuat watermarknya pada Textbox, pada form load login silahkan pastekan conding dibawah

SetWatermark(TextBox1, "Username")
        SetWatermark(TextBox2, "Password")

4. Silahkan jalankan aplikasi, maka akan menghasilkan.
Membuat Watermark Yang Benar Pada VB.Net

Untuk penjelasan lebih lanjut silahkan lihat video berikut.
Klik Dibawah

Unduh Sourcecode
Pass: priacoding.com


Note
Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini disharing kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih..

Post a Comment

[ADS] Bottom Ads