Menggunakan Option Dan Check Box Di Visual Basic


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
Desain Aplikasi Pengubah Teks
2. Kemudian ubah properties dari tools yang telah dibuat seperti dibawah ini
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

4. Jalankan aplikasi yang telah dibuat dengan menekan F5
Tampilan Ketika Aplikasi Dijalankan
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 :

Belum ada Komentar untuk "Menggunakan Option Dan Check Box Di Visual Basic"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel