Mengubah Warna Textbox Saat Diinput

Salah satu cara membuat tampilan form isian kita jadi lebih menarik adalah dengan mengubah warna latar (backcolor)nya ketika kursor berada di textbox tersebut (ketika textbox akan diisi). Dengan begitu si user lebih tau dimana letak dia akan mengetik saat itu. Penasaran ? caranya adalah sebagai berikut :

Persiapan :

• Tambahkan 2 buah textbox di form.


• Set propertinya sebagai berikut : kosongkan textbox tersebut dengan mengosongi property ‘Text’ (semula bertuliskan Text1, Text2).

setelah itu tuliskan code dibawah ini :

Private Sub Form_Load()
Text1.Text = ""
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
End Sub

Private Sub Text1_GotFocus()
Text1.BackColor = vbYellow
End Sub

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

Sangat sederhana bukan??? Intinya adalah pada saat kursor berada di textbox (_GotFocus()) ubah warna seperti semula (putih) dan pada saat kursor meninggalkan textbox (_LostFocus()) ubah warna menjadi kuning atau warna lainnya. Untuk lebih jelasnya silakan Download file projectnya secara lengkap disini

Posted in: source code vb