Menggunakan Option Dan Check Box Di Visual Basic
Wednesday 23 December 2015
Edit
Option adalah salah satu tools pada visual basic yang digunakan untuk memberikan pilihan untuk user. Ketika menggunakan option user hanya diijinkan untuk memilih satu pilihan. Sedangkan Check Box adalah tools yang digunakan untuk memberikan pilihan untuk user. Hampir sama dengan Option, tetapi Check Box mengijinkan user untuk memiliki lebih dari satu pilihan. Baiklah untuk lebih jelasnya mari kita buat saja contohnya, aplikasi pengubah teks
Aplikasi Pengubah Teks Menggunakan Option Dan Check Box
1. Pertama buatlah desain aplikasi seperti dibawah ini |
| Desain Aplikasi Pengubah Teks |
Tools | Nama | Properties |
Label | Label1 | Name : LblTampil Caption : Rudi Rizkiyanto |
Frame | Frame1 | Caption : Font Color |
Frame2 | Caption : Font Style | |
Option | Option1 | Name : OptRed Caption : Red Forecolor : &H000000FF& |
Option2 | Name : OptGreen Caption : Green Forecolor : &H0000FF00& | |
Option3 | Name : OptBlue Caption : Blue Forecolor : &H00FF0000& | |
Option4 | Name : OptYellow Caption : Yellow Forecolor : &H0000FFFF& | |
Check Box | Check1 | Name : ChkBold Caption : Bold Font Style : Bold |
Check2 | Name : ChkItalic Caption : Italic Font Style : Italic | |
Check3 | Name : ChkStrikeOut Caption : StrikeOut Font Style : Strikeout | |
Check4 | Name : ChkUndeline Caption : Underline Font Style : Underline | |
Command Button | Command1 | Name : CmdExit Caption : Exit |
3. Masukan script dibawah ini pada kotak dialog script
Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblTampil.FontBold = True
Else
LblTampil.FontBold = False
End If
End Sub
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
LblTampil.FontItalic = True
Else
LblTampil.FontItalic = False
End If
End Sub
Private Sub ChkStrikeOut_Click()
If ChkStrikeOut.Value = 1 Then
LblTampil.FontStrikethru = True
Else
LblTampil.FontStrikethru = False
End If
End Sub
Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
LblTampil.FontUnderline = True
Else
LblTampil.FontUnderline = False
End If
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub OptBlue_Click()
LblTampil.ForeColor = vbBlue
End Sub
Private Sub OptGreen_Click()
LblTampil.ForeColor = vbGreen
End Sub
Private Sub OptRed_Click()
LblTampil.ForeColor = vbRed
End Sub
Private Sub OptYellow_Click()
LblTampil.ForeColor = vbYellow
End Sub
 |
| Tampilan Ketika Aplikasi Dijalankan |
Jika dilakukan dengan benar maka aplikasi akan berjalan sebagaimana mestinya. Itulah sekilas tentang option dan checkbox serta contoh penggunaanya. Semoga bermanfaat.
Baca Juga :