Membuat Warna Textbox Berubah Dikala Di Isi

Text Box merupakan sebuah tool box yang dipakai untuk form pengisian sebuah data, namun tahukah anda, saat anda mengisi sebuah textbox, maka background text box tersebut akan berubah warna, dan warnanya pun dapat kita atur sendiri sesuai impian kita.

Di tutorial visual basic kali ini kita akan berguru cara menciptakan background texbox berubah warna saat di isi, dan kembali normal saat tidak di isi, kunci melaksanakan trik ini ada pada script Got Focus dan Lost Focus, oke ayo kita mulai tutorialnya :

1. Seperti biasa pertama jalankan Visual Basic dengan project standar EXE
2. Tambahkan 4 Text Box, untuk propertienya kosongkan saja textboxnya

3. Lalu tuliskan script berikut :

Private Sub Form_Load()
'Membuat Textbox dalam keadaan kosong
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'Membuat background text box menjadi putih saat aktivitas di jalankan
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
Text3.BackColor = vbWhite
Text4.BackColor = vbWhite
End Sub

'Membuat warna background text box menjadi warna kuning saat di isi
Private Sub Text1_GotFocus()
Text1.BackColor = vbYellow
End Sub

'Membuat warna background text box menjadi warna putih saat tidak di isi
Private Sub Text1_LostFocus()
Text1.BackColor = vbWhite
End Sub

Private Sub text2_GotFocus()
Text2.BackColor = vbYellow
End Sub

Private Sub text2_LostFocus()
Text2.BackColor = vbWhite
End Sub

Private Sub text3_GotFocus()
Text3.BackColor = vbYellow
End Sub

Private Sub text3_LostFocus()
Text3.BackColor = vbWhite
End Sub

Private Sub text4_GotFocus()
Text4.BackColor = vbYellow
End Sub

Private Sub text4_LostFocus()
Text4.BackColor = vbWhite
End Sub

4. Jalankan Program

Ketika aktivitas di jalankan semua textbox dalam keadaan kosong, dan juga backgorund text box yakni putih (vbwhite), saat textbox di isi atau kursor berada di text box (Got Focus), maka otomatis warna dari backgorund text box akan berkembang menjadi warna kuning (vbyellow), dan saat text box tidak di isi atau kursor mouse tida berada di tex box (Lost Focus), maka background warna text box akan berkembang menjadi normal / putih (vbwhite).

anda dapat merubah warnanya dengan warna yang anda sukai,

Sekian tutorial kali ini biar bermnafaat