√ Menciptakan Text Tuliskan Nama Anda Disini Dengan Textbox Userform

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

Untuk apa fungsi default textbox sementara
Entah apa bahasanya yang terang maksud dari artikel ini merupakan goresan pena sementara yang ada pada sebuah textbox yang berfungsi untuk memberitahu kepada user bahwa goresan pena 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 dapat melihat aplikasi yang pernah aku buat yaitu aplikasi PPDB disana terang aku berikan klarifikasi sebuah tanggal yang harus dientrikan pada textbox tanggal yaitu harus berformat dd-mm-yyyy jadi bila salah maka akan menjadi kesalahan yang fatal sebab setiap komputer mempunyai 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 saat Anda mau mengetikkan nama di textbox tersebut maka secara otomatis goresan pena tersebut akan hilang.

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

Baca: Pencarian Textbox Otomatis (Autocomplete Textbox)

Sumber http://www.excel-id.com/