You Can Use It As A Word Proccessor.

by Mykel aka EaSt' ()
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29^th December 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate You Can Use It As A Word Proccessor.



    End
    'This program is simply a word proccessor
    'This program was created by Mykel, on December 28 2001 at 2:00pm. If you would like to contact me feel free at [email protected]
'DO NOT SAY THIS IS YOUR OWN PROGRAM! BECAUSE I HAVE CREATED IT!
End Sub

Private Sub chkBold_Click()
    txtDisplay.FontBold = True <> txtDisplay.FontBold = True
End Sub

Private Sub chkItalic_Click()
    txtDisplay.FontItalic = True <> txtDisplay.FontItalic = True
End Sub

Private Sub chkUnderline_Click()
    txtDisplay.FontUnderline = True <> txtDisplay.FontUnderline = True
End Sub


Private Sub cmdClear_Click()
    txtDisplay = ""
    chkBold = ""
    chkItalic = ""
    chkUnderline = ""
    optRed = ""
    optBlue = ""
    optGreen = ""
    optBlack = ""
End Sub

Private Sub mnuBlack_Click()
    BackColor = vbBlack
End Sub

Private Sub mnuBlue_Click()
    BackColor = vbBlue
End Sub

Private Sub mnuClear_Click()
    chkBold.Value = 0
    chkItalic.Value = 0
    chkUnderline.Value = 0
    txtDisplay.ForeColor = vbBlack
    txtDisplay = ""
    optPurple.Value = 0
    optRed.Value = 0
    optBlue.Value = 0
    optGreen.Value = 0
    optBlack.Value = 0
    opt8.Value = 0
    optfont10.Value = 0
    optfont12.Value = 0
    optfont14.Value = 0
    optfont18.Value = 0
    txtDisplay.FontSize = 8
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuRed_Click()
    BackColor = vbRed
End Sub

Private Sub mnuFileNew_Click()
    Dim Response As Integer
Response = MsgBox("Are you sure you want to start a new document?", vbYesNo + vbQuestion, "New Document")
If Response = vbYes Then txtDisplay = ""
End Sub

Private Sub opt8_Click()
    txtDisplay.FontSize = 8
End Sub

Private Sub optBlack_Click()
    txtDisplay.ForeColor = vbBlack
End Sub

Private Sub optBlue_Click()
    txtDisplay.ForeColor = vbBlue
End Sub

Private Sub optfont10_Click()
    txtDisplay.FontSize = 10
End Sub

Private Sub optfont12_Click()
    txtDisplay.FontSize = 12
End Sub

Private Sub optfont14_Click()
    txtDisplay.FontSize = 14
End Sub

Private Sub optfont18_Click()
    txtDisplay.FontSize = 18
End Sub

Private Sub optGreen_Click()
    txtDisplay.ForeColor = vbGreen
End Sub

Private Sub optPurple_Click()
    txtDisplay.ForeColor = &HFF00FF
End Sub

Private Sub optRed_Click()
    txtDisplay.ForeColor = vbRed
End Sub

Download this snippet Add to My Saved Code

You Can Use It As A Word Proccessor. Comments

No comments have been posted about You Can Use It As A Word Proccessor.. Why not be the first to post a comment about You Can Use It As A Word Proccessor..

You Can Use It As A Word Proccessor.

You Can Use It As A Word Proccessor. Comments

Post your comment

Difficulty