Membuat Warna TextBox Berubah Ketika Di Isi

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

Di tutorial visual basic kali ini kita akan belajar cara membuat background texbox berubah warna ketika di isi, dan kembali normal ketika tidak di isi, kunci melakukan trik ini ada pada script Got Focus dan Lost Focus, baiklah 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 ketika program di jalankan
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
Text3.BackColor = vbWhite
Text4.BackColor = vbWhite
End Sub

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

'Membuat warna background text box menjadi warna putih ketika 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 program di jalankan semua textbox dalam keadaan kosong, dan juga backgorund text box adalah putih (vbwhite), ketika textbox di isi atau kursor berada di text box (Got Focus), maka otomatis warna dari backgorund text box akan berubah menjadi warna kuning (vbyellow), dan ketika text box tidak di isi atau kursor mouse tida berada di tex box (Lost Focus), maka background warna text box akan berubah menjadi normal / putih (vbwhite).

anda bisa merubah warnanya dengan warna yang anda sukai,

Sekian tutorial kali ini semoga bermnafaat