• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Is a word processor capable of performing several functions apart from simple file handling or text

Is a word processor capable of performing several functions apart from simple file handling or text

by Aman Moudgil (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 20^th December 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Is a word processor capable of performing several functions apart from simple file handling or text editting...Has the MDI utility and one can

API Declarations


Unload Me
Set richtextc1 = Nothing
End Sub

Private Sub Combo1_Change()

End Sub

Private Sub Combo2_Change()
If Combo2.Text = "Times New Roman" Then
RichTextBox1.Font = "Times New Roman"
Text1.Font = "Times New Roman"
Else
End If
If Combo2.Text = "MS" Then
RichTextBox1.Font = "MS Sans Serif"
Text1.Font = "MS Sans Serif"
Else
End If
If Combo2.Text = "Arial" Then
RichTextBox1.Font = "Arial"
Text1.Font = "Arial"
Else
End If
If Combo2.Text = "Bookman Old Style" Then
RichTextBox1.Font = "Bookman Old Style"
Text1.Font = "Bookman Old Style"
Else
End If
If Combo2.Text = "Century" Then
RichTextBox1.Font = "Century"
Text1.Font = "Century"
Else
End If
If Combo2.Text = "Arial Black" Then
RichTextBox1.Font = "Arial Black"
Text1.Font = "Arial Black"
Else
End If
If Combo2.Text = "Century Gothic" Then
RichTextBox1.Font = "Century Gothic"
Text1.Font = "Century Gothic"
Else
End If
If Combo2.Text = "Impact" Then
RichTextBox1.Font = "Impact"
Text1.Font = "Impact"
Else
End If
If Combo2.Text = "Bookman Antiqua" Then
RichTextBox1.Font = "Bookman Antiqua"
Text1.Font = "Bookman Antiqua"
Else
End If
If Combo2.Text = "Comic Sans MS" Then
RichTextBox1.Font = "Comic Sans MS"
Text1.Font = "Comic Sans MS"
Else
End If
If Combo2.Text = "Fixedsys" Then
RichTextBox1.Font = "Fixedsys"
Text1.Font = "Fixedsys"
Else
End If
If Combo2.Text = "MS Serif" Then
RichTextBox1.Font = "MS Serif"
Text1.Font = "MS Serif"
Else
End If
End Sub

Private Sub Command1_Click()
RichTextBox1.SelBold = False
RichTextBox1.SelItalic = False
RichTextBox1.SelUnderline = False
RichTextBox1.SelStrikeThru = False
RichTextBox1.SelFontSize = 8
End Sub

Private Sub Command10_Click()
Dim sfile As String
With CommonDialog1
.Filter = "All Files (*.rtf)|*.rtf"
CommonDialog1.ShowSave
sfile = .filename
Open sfile For Output As 1
Print #1, RichTextBox1.TextRTF
End With
Close
End Sub

Private Sub Command11_Click()
With CommonDialog1
.Filter = "All Files (*.rtf)|*.rtf"
.ShowOpen
If Len(.filename) = 0 Then
Exit Sub
End If
sfar = .filename
Kill sfar
End With
End Sub

Private Sub Command12_Click()
With CommonDialog1
.Filter = "All Files (*.rtf)|*.rtf"
.ShowPrinter
If Len(.filename) = 0 Then
Exit Sub
End If
sfar = .filename
End With
End Sub

Private Sub Command13_Click()
Dim asd As AlignmentConstants
Dim dfg As AlignmentConstants
asd = vbCenter
dfg = vbRightJustify
RichTextBox1.RightMargin = dfg
RichTextBox1.SelAlignment = asd
End Sub

Private Sub Command14_Click()
Dim a As AlignmentConstants
Dim d As AlignmentConstants
a = vbLeftJustify
d = vbRightJustify
RichTextBox1.RightMargin = d
RichTextBox1.SelAlignment = a
End Sub

Private Sub Command15_Click()
Dim s As AlignmentConstants
Dim f As AlignmentConstants


Download this snippet    Add to My Saved Code

Is a word processor capable of performing several functions apart from simple file handling or text Comments

No comments have been posted about Is a word processor capable of performing several functions apart from simple file handling or text. Why not be the first to post a comment about Is a word processor capable of performing several functions apart from simple file handling or text.

Post your comment