PROGRAM
Private Sub Check1_Click()
If Text1.FontUnderline = True Then Text1.FontUnderline =
False Else: Text1.FontUnderline = True
End Sub
Private Sub Check2_Click()
If Text1.FontBold = True Then Text1.FontBold = False Else:
Text1.FontBold = True
End Sub
Private Sub Check3_Click()
If Text1.FontItalic = True Then Text1.FontItalic = False
Else: Text1.FontItalic = True
End Sub
Private Sub Check4_Click()
If Text1.FontStrikethru = True Then Text1.FontStrikethru =
False Else: Text1.FontStrikethru = True
End Sub
Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub
Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem ("ARIAL")
List1.AddItem ("ARIAL BLACK")
List1.AddItem ("ARIAL NARROW")
List1.AddItem ("TIMES NEW ROMAN")
List1.AddItem ("VERDANA")
List1.AddItem ("rockwell")
Combo1.AddItem ("4")
Combo1.AddItem ("8")
Combo1.AddItem ("16")
Combo1.AddItem ("64")
Combo1.AddItem ("128")
End Sub
Private Sub List1_Click()
Text1.FontName = List1.Text
End Sub
0 Comment "TEXT FORMATING USING VISUAL BASIC"
Post a Comment