• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• You Can Use It As A Word Proccessor.

You Can Use It As A Word Proccessor.

You Can Use It As A Word Proccessor.

Rate You Can Use It As A Word Proccessor.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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