Contoh Penggunaan Event

SOURCE CODE : Form dan Project
1. Buka VB6 pilih Standard EXE
2. Buat object sbb pada form:

a. Label1, Caption = Isi Angka
b. Label2, Caption = Isian Huruf Besar
c. Label3, Caption = Isian Huruf Kecil
d. Textbox1, Name = txt_angka
e. Textbox2, Name = txt_huruf_besar
f. Textbox3, Name = txt_huruf_kecil

3. Buat prosedur untuk mengosongkan data

Sub kosong_data()
txt_angka.Text = ""
txt_huruf_besar.Text = ""
txt_huruf_kecil.Text = ""
End Sub

4. Mengaktifkan prosedur kosong_data pada form ketika dibuka

Private Sub Form_Load()
kosong_data
End Sub

5. Membuat coding isian angka, huruf besar dan kecil (fungsi dari pembuatan coding ini diperuntukan untuk pembuatan kalkulator, barcode).
'coding validasi untuk mengisi angka saja pada textbox

Private Sub txt_angka_keypress(Keyascii As Integer)
If Keyascii = 8 Then Exit Sub '8 adalah backspace
If Keyascii <> 57 Then '48-56 angka 0-9
Keyascii = 0
End If
End Sub

'coding validasi untuk mengisi huruf besar saja pada textbox
Private Sub txt_huruf_besar_keypress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
End Sub

'coding validasi untuk mengisi huruf kecil saja pada textbox
Private Sub txt_huruf_kecil_keypress(Keyascii As Integer)
Keyascii = Asc(LCase(Chr(Keyascii)))
End Sub

'Keterangan:
'ASC untuk membuat code ascii
'UCase adalah upercase, untuk membuat huruf kapital
'LCase = lowcase, untuk membuat huruf kecil
'chr adalah kebalikan Asc

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 03 April 2009
Semester II STIKOM CKI Wijaya Kusuma