Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm

Telah kita ketahui bersama pembuatan aplikasi yang dibuat oleh seorang programmer baik itu berbasis web maupun desktop tentu jika aplikasi tersebut memiliki sebuah textbox yang memang merupakan textbox isian yang harus diisi oleh user tentunya tidak semua orang mengetahui untuk mengisi apa textbox tersebut. Contoh realnya adalah ketika kita akan mengentrikan sebuah tanggal lahir tentunya ada beberapa format tanggal lahir dari mulai short sampai long format. Misalnya dd-mm-yyyy merupakan format tanggal pendek atau bahkan ada yang menggunakan mm-dd-yyyy.

Untuk apa fungsi default textbox sementara
Entah apa bahasanya yang jelas maksud dari artikel ini merupakan tulisan sementara yang ada pada sebuah textbox yang berfungsi untuk memberitahu kepada user bahwa tulisan yang harus dientrikan atau diketikkan pada textbox yang bersangkutan harus sesuai dengan keterangan yang diberikan oleh programmer tersebut.

Silakan Simak juga:
Belajar Textbox melalui UserForm Lengkap

Contoh jelasnya Anda bisa melihat aplikasi yang pernah saya buat yaitu aplikasi PPDB disana jelas saya berikan penjelasan sebuah tanggal yang harus dientrikan pada textbox tanggal yaitu harus berformat dd-mm-yyyy jadi jika salah maka akan menjadi kesalahan yang fatal karena setiap komputer memiliki perbedaan regional setting masing-masing.
Silakan buat satu buah objek textbox pada userform kemudian tambahkan coding berikut

Berikut Coding untuk Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm

coding Ketika tombol di klik

Private Sub CommandButton1_Click()
UserForm_Initialize
End Sub

Prosedur userform inisialisasi

Private Sub UserForm_Initialize()
With TextBox1
    .ForeColor = &HC0C0C0
    .BackColor = &H80000005
    .Text = "Tulislah Nama Anda"
End With
CommandButton1.SetFocus
End Sub

Prosedur Ketika Textbox di enter

Private Sub TextBox1_Enter()
    With TextBox1
        If .Text = "Tulislah Nama Anda" Then
            .ForeColor = &H80000008
            .BackColor = &H8000000F
            .Text = ""
        End If
    End With
End Sub

Prosedur Ketika Textbox telah di update

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .BackColor = &H8000000F
            .Text = "Tulislah Nama Anda"
        End If
    End With
End Sub

Pada Gambar userform diatas terlihat pada textbox area tertulis "Tuliskan Nama Anda Disini" dengan warna font transfaran namun ketika Anda mau mengetikkan nama di textbox tersebut maka secara otomatis tulisan tersebut akan hilang.

Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm sama dengan memberikan gambaran bahwa text tersebut hanya untuk dientrikan nama saja. Baca materi serupa: Validasi Textbox Hanya Angka

Baca: Pencarian Textbox Otomatis (Autocomplete Textbox)

Tweet