Cara membuat group box, Checkbox, Radiobutton dengan Vb 6 - Tutorial vb berikut ini adalah belajar cara membuat GroupBox, CheckBox dan RadioButton yang terdapat pada Visual Basic 6.0, pada kasus ini saya ambil contoh untuk merubah style font dalam program vb6.
Sedikit penjelasan tentang Group box , Checkbox, RadioButton (Option):
- Check Box adalah sebuah kontrol pemilihan yang fungsinya hampir sama dengan Radio Button (Option), hanya saja bedanya pada check box ini adanya kotak dan tanda Cek (V) pada item yang terpilih.
- Radio Button (Option) adalah sebuah kontrol dimana user dapat memilih salah satu dari beberapa pilihan-pilihan yang ada. Pilihan ini sipatnya tunggal, artinya user tidak dapat memilih lebih dari satu.
Kita langsung saja langsung bagaimana cara membuat Group box, Check box, Option radio button dengan Visual Basic.
1. Tahap pertama buat dahulu sebuah Form Kosong nya dengan desain form
sebagai berikut :
GroupBox, CheckBox, RadioButton |
2. Atur properti dari desain form di atas, seperti contoh di atas,
3. Masukan source code ke dalam form tersebut
Itulah Cara membuat group box, Checkbox, Radiobutton dengan Vb 6 pada materi belajar visual basic ini.Font Style RegulerPrivate Sub reguler_Click()Label1.FontItalic = FalseLabel1.FontBold = FalseLabel2.FontItalic = FalseLabel2.FontBold = FalseEnd SubFont Style BoldPrivate Sub bold_Click()Label1.FontBold = TrueLabel2.FontBold = TrueEnd SubFont Style ItalicPrivate Sub italic_Click()Label1.FontItalic = TrueLabel2.FontItalic = TrueEnd SubFont Style Bold ItalicPrivate Sub bold_italic_Click()Label1.FontItalic = TrueLabel2.FontItalic = TrueLabel1.FontBold = TrueLabel2.FontBold = TrueEnd SubStrikeout / Di coretPrivate Sub Check1_Click()Label1.FontStrikethru = TrueLabel2.FontStrikethru = TrueEnd SubStrikeout / Di coretPrivate Sub tanpacoret_Click()Label1.FontStrikethru = FalseLabel2.FontStrikethru = FalseEnd SubFont color BiruPrivate Sub Biru_Click()
Label1.ForeColor = vbBlue
Label2.ForeColor = vbBlue
End SubFont color HijauPrivate Sub Hijau_Click()
Label1.ForeColor = vbGreen
Label2.ForeColor = vbGreen
End SubFont Color MerahPrivate Sub Merah_Click()
Label1.ForeColor = vbRed
Label2.ForeColor = vbRed
End SubFont Color KuningPrivate Sub Kuning_Click()
Label1.ForeColor = vbYellow
Label2.ForeColor = vbYellow
End Sub