Mengenal Event dan Property Visual Basic 6.0

Mengenal Event dan Property Visual Basic 6.0

Ketik Visual Basic - Seperti yang telah kita bahas bahwa event adalah kejadian yang dapat dialami oleh object dan property adalah karakteris... 13.54

Ketik Visual Basic - Seperti yang telah kita bahas bahwa event adalah kejadian yang dapat dialami oleh object dan property adalah karakteristik atau sifat yang dimiliki oleh object. Maka untuk dapat mengenal event dan property lebih lanjut maka langkah pertama adalah mengaktifkan VB 6.0 dan membuat sebuah user interface (UI).

Sebelumnya kita harus mengenal lebih lanjut mengenai komponen (kontrol) yang ada pada toolbox dan macam-macam karakteristik pada jendela property.

Toolbox

Jendela Property

Kemudian buat user interface (UI) seperti berikut

User Interface (UI)

Atur property setiap object yang ada pada user interface (UI) melalui jendela property seperti tabel berikut ini:

Object	Property	Value
Form1	Caption	User Interface (UI)
Label1	Caption	Masukkan Nama
Label2	Font Font style Size	Ms Sans Serif Regular 18
Text1	-	-
Frame1	Caption	Font Property
Check1	Caption	Bold
Check2	Caption	Italic
Check3	Caption	Underline
Option1	Caption	Red
Option2	Caption	Green
Option3	Caption	Blue
Command1	Caption	Rubah Property

Untuk membuka jendela kode (tempat untuk menulis kode program) bisa dilakukan dengan melakukan 2 kali klik pada sembarang object sampai muncul seperti gambar berikut ini:

Jendela Kode

Dan tuliskan kode program berikut untuk membuat sebuah aplikasi sederhana yaitu merubah font property sebuah nama.

Kode Program VB 6.0

Private Sub Command1_Click()

    If Check1.Value = vbChecked Then

        Label2.FontBold = True

    End If

    

    If Check2.Value = vbChecked Then

        Label2.FontItalic = True

    End If

    

    If Check3.Value = vbChecked Then

        Label2.FontUnderline = True

    End If

    

    If Option1.Value = True Then

        Label2.ForeColor = vbRed

    End If

    

    If Option2.Value = True Then

        Label2.ForeColor = vbGreen

    End If

    

    If Option3.Value = True Then

        Label2.ForeColor = vbBlue

    End If

End Sub

Private Sub Text1_Change()

    Label2.Caption = Text1.Text

End Sub

Untuk menjalankan aplikasi yang kita buat, tekan tombol F5. Dan hasil dari aplikasi tersebut dapat dilihat pada gambar berikut ini:

Aplikasi Rubah Property

Penjelasan aplikasi rubah property visual basic 6.0

1. Ketika aplikasi dijalankan kita disuruh untuk memasukkan nama (dengan merubah tulisan Text1)
2. Bersamaan itu Label2 berubah menjadi nama yang telah kita masukkan
3. Pilih font property, apakah akan dicetak tebal (bold), miring (italic), atau garis bawah (underline) dan berwarna red (merah), green (hijau), atau blue (biru)
4. Klik tombol Rubah Property, maka tulisan nama akan berubah property-nya sesuai dengan yang kita inginkan

Penjelasan kode pemrograman rubah property visual basic 6.0

Prosedure merubah label2:

Private Sub Text1_Change()

    Label2.Caption = Text1.Text

End Sub

Event yang terjadi adalah perubahan (Change) pada text1 akan merubah property (nama->Caption) Label2 menjadi seperti property (tulisan->Text) Text1. Jadi ketika kita melakukan perubahan text pada Text1 maka property Label2 akan berubah juga.

Misal: diketikkan tulisan ketikvisualbasic pada Text1 maka Label2 akan secara langsung berubah menjadi ketikvisualbasic.

Prosedure merubah font property:

Private Sub Command1_Click()

    If Check1.Value = vbChecked Then

        Label2.FontBold = True

    End If
      

    If Option1.Value = True Then

        Label2.ForeColor = vbRed

    End If

End Sub

Event pada prosedure ini adalah adanya klik (Click) pada tombol Command1 yang akan menyebabkan perubahan font property sesuai dengan yang dipilih, apakah dicetak tebal; miring; atau garis bawah dan berwarna merah; hijau; atau biru. Pilihan ini kita menggunakan statement If .... Then yang akan dibahas pada bab metode kontrol.