Mengedit Huruf Dengan Vb 6.0
Untuk
Membuat Program Ini Dibutuhkan Beberapa Komponen Yaitu:
Lima Commandbutton
Enam Optionbutton Dan
Satu Textbox
Lima Commandbutton
Enam Optionbutton Dan
Satu Textbox
Aturlah
Form Seperti Di Bawah Ini:

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
Posting Komentar
Tulis komentar anda disini.....