Langkah-langkahnya :
1. Buat project baru dengan memilih standard EXE
lalu klik open
2. Tambahkan komponen-komponen Label, OptionButton, dan Command. Agar seperti gambar dibawah ini :
2. Tambahkan komponen-komponen Label, OptionButton, dan Command. Agar seperti gambar dibawah ini :
Bila menggunakan tampilan di dalam frame, maka frame harus
dibuat terlebih dahulu baru komponen-komponen di dalamnya. Atur property setiap
komponen seperti berikut:
object
|
property
|
nilai
|
Form 1
|
Name
Caption
|
TUGAS
TUGAS PERTAMA
|
Label 1
|
Caption
Font
|
Pilih Warna :
Font : Viner Hand ITC
Font Style : Bold
Size : 14
|
Option 1
|
Caption
Font
|
Biru
Font : Arial
Font Style : Bold
Size : 11
Pallete - Biru
|
Option 2
|
Caption
Font
Fore Color
|
Hijau
Font : Arial
Font Style : Bold
Size : 11
Pallete - Hijau
|
Command 1
|
Caption
|
&OK
|
Label 2
|
Caption
Font
|
Tampil Warna :
Font : Viner Hand ITC
Font Style : Bold
Size : 14
|
Label 3
|
Background Color
|
Pallete - Putih
|
Command 2
|
Caption
|
E&XIT
|
Dari pengaturan ini akan dihasilkan tampilan program aplikasi
seperti pada gambar di bawah ini :
Click
pada command1, tambahkan kode program sehingga menjadi:
Private Sub CmdOK_Click()
If Option1.Value = True Then
Label2.BackColor = vbBlue
ElseIf Option2.Value = True Then
Label2.BackColor = vbGreen
End If
End Sub
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.BackColor = vbWhite
End Sub
Click
pada Option2, tambahkan kode program sehingga menjadi:
Private Sub Option2_Click()
Label2.BackColor = vbWhite
End Sub
Setelah
melewati beberapa tahap diatas akan menghasilkan gambar seperti berikut ini :
Tutorial By Moch.Arfan Rifai









wihh oke nih bang arfan. :D
BalasHapuslumayan bisa belajar vb 6.0 lagi. :)
#FORZA MILAN. *eh. hahaha
wehehe alhamdulillah ada tutor2 di pc kalo gak disebar sayang :p
BalasHapus#FORZA MILAN, MILAN CAMPIONE! *tp tahun depan hahaha