Yazi tipi uygulamasi

HTML-Kodu:

Private Sub Check4_Click()

If Check4.Value = 1 Then

Check5.Value = 0

Text1.ForeColor = RGB(255, 0, 0)

End If

End Sub



Private Sub Check5_Click()

If Check5.Value = 1 Then

Check4.Value = 0

Text1.ForeColor = RGB(0, 255, 0)

End If

End Sub



Private Sub Check6_Click()

If Check4.Value = 1 Then

Check5.Value = 0

Text1.ForeColor = RGB(255, 0, 255)

End If

End Sub



Private Sub Command1_Click()

If Check1.Value = 1 Then

Text1.FontBold = True

Else

Text1.FontBold = False

End If

If Check2.Value = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

If Check3.Value = 1 Then

Text1.FontUnderline = True

Else

Text1.FontUnderline = False

End If

End Sub



Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.FontSize = Text1.FontSize - 5

End Sub

Private Sub Command4_Click()

Text1.FontSize = Text1.FontSize + 5

End Sub