Frame, Check Box, Option Button (Style Text) Di Visual Basic

Hai Sobat Routeros Mikrotik, kali ini aku akan membahas mengenai kegunaan dan cara menggunakan Frame, Check Box, dan Option Button di Visual Basic, Frame yaitu sebuah bingkai, namun dalam visual basic frame dapat kita gunakan untuk mengelompokan sebuah tool box sehingga anda dapat dengan gampang mengatur toolbox lainya, sedangkan Check Box yaitu sebuah toolbox untuk menandai sesuatu, dan Option Button, tool box untuk menentukan suatu hal, perbedaan Check dan Option, Check dapat kita gunakan (memilih) lebih dari satu toolbox, sedanglan Option hanya dapat satu saja. untuk lebih jelasnya aku akan menciptakan sebuah aktivitas dasar dengan Kriteria :

- Mengubah Font Size

- Mengubah Warna Font

- Membuat Bingkai

Berikut Tutorialnya :

1. Pertama, jalankan terlebih dahulu Visual Basic, kemudian pilih Project Standar EXE

2. Ke dua, tambahkan 2 label (L). 1 text box (T), 2 Command button (C), dan 1 frame, kemudian klik frame yang telah di buat, dan tambahkan 2 Check Box (CB), 2 Option Button (OB), aturlah ukurnya sehingga menyerupai ini :

3. Ubahlah Captionya, sehingga menyerupai ini :
alasannya ini yaitu tutorial aktivitas dasar vb yang ke 3, aku menganggap anda sudah dapat untuk mengubah caption, kalau belum silahkan lihat tutorial sebelumnya

namun untuk label 2, ubahlah backgorundya menjadi putih, dan fon sizenya di perbesar (24), caranya di sajian properties label2, cari "Backcolor" kemudian ganti warnanya menjadi putih, dan untuk font size, cari "Font" di sajian properties label 2 kemudian klik" ..."

dan ubahlah sizenya sesuai keinginan, namun disini aku menuliskan 24

4. Waktunya Script, klik 2 kali form object, kemudian tambahkan script berikut :

Private Sub Check1_click()

Label2.FontBold = Check1.Value 'Ketika check1 (Bold) di tandai maka caption label2 akan Bold

End Sub

Private Sub Check2_click()

Label2.FontItalic = Check2.Value 'Ketika check1 (Italic) di tandai maka caption label2 akan Italic

End Sub

Private Sub Command1_click()

Label2.Caption = Text1.Text 'Caption label2 akan sama dgn text1, saat command1 (OK) di klik

End Sub

Private Sub Command2_click()

End 'Program akan berhenti saat command2 (Selesai) di klik

End Sub

Private Sub Option1_click()

Label2.ForeColor = vbRed 'Caption label2 akan berwarna Merah, saat Option1 (RED) ditandai

End Sub

Private Sub Option2_click()

Label2.ForeColor = vbBlue 'Caption label2 akan berwarna Biru, saat Option2 (Blue) ditandai

End Sub

Private Sub Check1_click() Label2.FontBold = Check1.Value 'Ketika check1 (Bold) di tandai maka caption label2 akan Bold End Sub Private Sub Check1_click() Label2.FontItalic = Check2.Value 'Ketika check1 (Italic) di tandai maka caption label2 akan Italic End Sub Private Sub Command1_click() Label2.Caption = Text1.Text 'Caption label2 akan sama dgn text1, saat command1 (OK) di klik End Sub Private Sub Command2_click() End 'Program akan berhenti saat command2 (Selesai) di klik End Sub Private Sub Option1_click() Label2.ForeColor = vbRed 'Caption label2 akan berwarna Merah, saat Option1 (RED) ditandai End Sub Private Sub Option2_click() Label2.ForeColor = vbBlue 'Caption label2 akan berwarna Biru, saat Option2 (Blue) ditandai End Sub

5. Waktunya Eksekusi, Tekan F5

Masukan terlebih dahulu, nama / sebuah kata di text box, kemudian klik OK, dan coba tandai salah satu dari Option dan Check Box, berikut gambaranya :

Add caption

Check Box 1 (Bold)	Check Box 2 (Bold)
Option Box 1 (Red)	Option Box 2 (Blue)

Gabungan (Bold, Italic, Blue)

Itulah Tutorial mengenai aktivitas dasar yang aku namai Style Text
Sekian tutorial kali ini, terus kunjungi Routeros Mikrotik, untuk tutorial tutorial menarik lainya
Terimakasih dan selamat Mencoba