Cara Merubah Background TextBox Ketika Kehilangan dan Mendapatkan Focus di Bisual Basic 6.0

Pada artikel kali ini saya akan memberikan sebuah trik sederhana yaitu bagaimana merubah background Textbox menjadi berwarna ketika kehilangan dan mendapatkan fokus.

TextBox adalah termasuk elemen yang sangat penting dalam pembuatan aplikasi dimana Textbox ini berfungsi untuk memasukan teks atau angka pada saat program berjalan.

Dengan adanya Texbox ini kita denga mudah memasukan data inputan dari suatu form yang nantinya dapat kita simpan, misalnya pada saat kita mengisi formulir online.

Ketika kita sedang mengisi formulir secara onlie pernahkah Anda melihat sebuah Textbox berubah warna ketika kita ingin mengetik, misalnya berubah menjadi warna abu-abu peristiwa ini disebut Got Focus dan ketika berpindah ke textbox selanjutnya warna textbox kembali normal karena sudah diisi peristiwa ini disebut kehilangan focus atau disebut juga Lost_Focus. Get_Focus dan Lost_Focus merupakan sebuah event dimana ketika kehilangan focus kita bisa membangkitkan textbox lain, missal textbox menjadi tidak aktif ketika kita pindah ke texbox lainya, textbox berubah warna, menampilkan messagebox dll

Pada postingan kali saya akan membuat texbox berubah warna ketika mendapatkan dan kehilangan focus. 

Dalam contoh artikel ini saya memberi warna hijau ketika kursor berada txtbox atau mendapatkan focus dan warna putih ketika kursor berpindah ke textbox lainya yang tadinya berwarna hijau menjadi putih kembali.Bagaimana cara membuat ikuti langkah-lngkah dibawah ini :

Membuat Textbox berubah warna ketika mendapatkan dan kehilangan focus

Buatlah form seperti gambar dibawah ini yang terdiri dari 4 TextBox

Lalu keti kode dibawah ini pada tiap TextBox :

Untuk Text1 ketik kodenya sebagai berikut :

Private Sub Text1_GotFocus()

Text1.BackColor = vbGreen

End Sub

Private Sub Text1_LostFocus()

Text1.BackColor = vbWhite

End Sub

Untuk Text2 kode sebagai berikut :

Private Sub Text2_GotFocus()

Text2.BackColor = vbGreen

End Sub

Private Sub Text2_LostFocus()

Text2.BackColor = vbWhite

End Sub

Ketik kode berikut untuk Text3

Private Sub Text3_GotFocus()

Text3.BackColor = vbGreen

End Sub

Private Sub Text3_LostFocus()

Text3.BackColor = vbWhite

End Sub

Dan yang terakhir pada Text4 ketik kodenya dibawah ini :

Private Sub Text4_GotFocus()

Text4.BackColor = vbGreen

End Sub

Private Sub Text4_LostFocus()

Text4.BackColor = vbWhite

End Sub

Setelah semua Textbox terisi kode, jangan lupa ke empat Textbox tersebut di kosongkan dengan kode dibawah ini :

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Sekarang jalankan program dan silahkan isi texbox kosong lalu pindahkan ke texbox yang kedua dan seterusnya, perhatikan apa yang terjadi?

Efek Lost dan Got Focus

Demikianlah trik dari saya tentang Cara Merubah Background TextBox Ketika Kehilangan dan Mendapatkan Focus di Bisual Basic 6.0. Semoga artikel ini bermanfaat buat kita semua.Amin

Related Post: Label/Text