Mengedit Huruf Dengan Vb 6.0


Untuk Membuat Program Ini Dibutuhkan Beberapa Komponen Yaitu:  
Lima Commandbutton 
 Enam Optionbutton Dan
Satu Textbox
Aturlah Form Seperti Di Bawah Ini:
Memuat foto

Lalu Ketiklah Listing Dibawah Ini:
Klik Dua Kali Pada Form ,Pilih General Lalu Copy Paste Code Dibawah Ini
Private Sub Command1_Click()
Label1.FontBold = True
End Sub

Private Sub Command2_Click()
Label1.FontItalic = True
End Sub

Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub

Private Sub Command4_Click()
Label1.FontSize = (Label1.FontSize) + 1
End Sub

Private Sub Command5_Click()
Label1.FontSize = (Label1.FontSize) - 1
End Sub

Private Sub Option1_Click()
Label1.FontBold = True
End Sub

Private Sub Option2_Click()
Label1.FontItalic = True
End Sub

Private Sub Option3_Click()
Label1.FontUnderline = True
End Sub

Private Sub Option4_Click()
Label1.FontBold = False
End Sub

Private Sub Option5_Click()
Label1.FontItalic = False
End Sub

Private Sub Option6_Click()
Label1.FontUnderline = False
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

Jalankan Program Dengan Menekan F5



Program ini dibuat oleh Heri Afrizal di Bireuen

Komentar

Postingan populer dari blog ini

Inilah Tempat Turunnya Nabi Isa dan 7 Ciri Kedatangannya

Melindungi Dokumen Word Agar Tidak Bisa Diedit