Membuat Project Mengatur Property

Buat project baru dengan StandardEXE untuk mencoba bermain dengan property dan event lebih jauh lagi. Tambahkan komponen-komponen Label, Text, Frame, OptionButton, CheckBox dan Command. Atur tampilannya seperti gambar 2.7 berikut:

Gambar 2.7. Contoh tampilan awal latihan 2.2

Bila menggunakan tampilan di dalam frame, maka frame harus dibuat terlebih dahulu baru komponen-komponen di dalamnya. Atur property setiap komponen seperti tabel 2.2. berikut:

       Tabel 2.2 Pengaturan property latihan 2.2

Dari pengaturan ini akan dihasilkan tampilan program aplikasi seperti pada gambar 2.8 di bawah ini.

Gambar 2.8. Tampilan untuk latihan 2.2

Click pada command1, tambahkan kode program sehingga menjadi:

                                                    Private Sub Command1_Click()

                                                    Label2.Caption = Text1.Text

                                                    End Sub

Click pada command2, tambahkan kode program sehingga menjadi:

                                                    Private Sub Command2_Click()

                                                    End

                                                    End Sub

Click pada Option1, tambahkan kode program sehingga menjadi:

                                                    Private Sub Option1_Click()

                                                    Label2.ForeColor = vbRed

                                                    End Sub

Label2.ForeColor adalah properti untuk mengganti warna teks pada label2, dan vbRed adalah warna merah yang sudah disediakan oleh Visual Basic, untuk warna yang lain seperti biru menggunakan vbBlue.

Click pada Option2, tambahkan kode program sehingga menjadi:

                                                   Private Sub Option2_Click()

                                                   Label2.ForeColor = vbBlue

                                                   End Sub

Click pada check1, tambahkan kode program sehingga menjadi:

                                                   Private Sub Check1_Click()

                                                   Label2.FontItalic = Check1.Value

                                                   End Sub

Click pada check2, tambahkan kode program sehingga menjadi:

                                                   Private Sub Check2_Click()

                                                   Label2.FontBold = Check2.Value

                                                   End Sub

Label2.FontItalic adalah property untuk mengatur apakah teks pada label2 dibuat miring atau tidak, bila nilainya True maka teks menjadi miring. Label2.FontBold adalah property untuk mengatur apakah teks pada label2 dibuat tebal atau tidak, bila nilainya True maka teks menjadi tebal.

Simpan project dengan nama projectLatihan22. Dan jalankan program, masukkan nama Achmad Basuki, atur teksnya menjadi merah dan miring seperti gambar 2.9.

Gambar 2.9. Hasil dari latihan 2.2