Menampilkan Text pada VB 6

Dalam pembahasan kali ini kita akan mengulas bagaimana cara menampilkan text dari textfield ke label dan merubah warna serta fontstyle yang kita gunakan. Caranya sangat mudah sekali, untuk lebih jelasnya mari kita ikuti langkah langkah berikut ini :

langkah 1 : buat dulu form seperti pada gambar di bawah

Langkah 2 : ganti semua caption maupun text dari masing-masing tombol pada properties Sehingga tampilan form menjadi seperti dibawah ini :

Contoh :

Kemudian ganti  juga(Name) dari tiap tiap tombol :

1. Text1    :  txt_input
2. Command1 : cmd_OK
3. Label2   : lb_output
4. Option1 : op_Red
5. Option2 : op_Blue
6. Option3 : op_Black
7. Check1 : ck_Bold
8. Check2 : ck_Italic
9. Check3 : ck_Underline

Langkah 3 : masukkan kode-kode program pada masing-masing tombol yang aka kita beri perintah, yaitu dengan mengklik dua kali pada tombol yang akan kita beri perintah kemudian tullskan kode-kode tersebut diantara public sub _() dan end sub.

ketikkan kode di bawah ini pada:

1. Tombol OK : lb_output.Caption = txt_input.Text
2. Option Red   : lb_output.ForeColor = vbRed
3. Option Blue  : lb_output.ForeColor = vbBlue
4. Option Black : lb_output.ForeColor = vbBlack
5. Chek Bold :
   If lb_output.FontBold = False Then
   lb_output.FontBold = True
   Else
   lb_output.FontBold = False
   End If
6. Chek Italic :
   If lb_output.FontItalic = False Then
   lb_output.FontItalic = True
   Else
   lb_output.FontItalic = False
   End If
7. Chek Underline :
   If lb_output.FontUnderline = False Then
   lb_output.FontUnderline = True
   Else
   lb_output.FontUnderline = False
   End If
8. Langkah terakhir adalah mengetest program yang kita buat:

mudah kan….!! mungkin cukup sekian dulu dari saya, selamat mencoba dan semoga bermanfaat …

klik Disini untuk download file diatas