Diskusi tentang Excel

Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm


textbox default dengan excel

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)

Related

TextBox 8476993102315759208

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item