Program pada vb 6.0 dengan Event Change

Event Change adalah kejadian yang menyatakan objek tertentu sedang berubah nilainya.

Setfocus berfungsi untuk memindahkan mouse pointer ke objek yang dituju

Cara kerja dari program ini adalah pada saat Text1 diisi dengan kalimat, maka label1 dan label2 akan menampilkan isi text tersebut masing masing huruf kecil dan huruf kapital.Jika tombol clear (Command1) ditekan, isi text dibersihkan dan jika tombol end (Command2) ditekan, maka akan keluar dari program.

Buatlah form dengan lay out sbb :

Caranya :

1.       Buat project baru.

2.       Atur property untuk control-kontrolnya sbb:

Kontrol	Propety	Nilai
Form1	Caption	Change event
Command1	Caption	Clear
Command2	Caption	End

       Klik ganda control Command1, lalu ketikkan coding berikut :

Private Sub Command1_Click()

Text1.Text = " "

Text1.SetFocus

End Sub

4.       Klik ganda control Command2, lalu ketikkan coding berikut :

Private Sub Command2_Click()

End

End Sub

5.       Klik ganda pada text1,lalu ketikkan coding berikut :

Private Sub Text1_Change()

Label1.Caption = LCase(Text1.Text)

Label2.Caption = UCase(Text1.Text)

End Sub

6.       Jalankan program tersebut gengan menekan F5