Write a VB.NET program to do the following operations on RichTextBox values i) Font Style ii) Font Color iii) Save iv) Open
Form:-
Program:-
Imports System.IO
Public Class slip20
Dim path As String
Private Sub FontStyleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontStyleToolStripMenuItem.Click
FontDialog1.ShowDialog()
RichTextBox1.Font = FontDialog1.Font
End Sub
Private Sub FontColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontColorToolStripMenuItem.Click
ColorDialog1.ShowDialog()
RichTextBox1.ForeColor = ColorDialog1.Color
End Sub
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
If DialogResult.OK = SaveFileDialog1.ShowDialog() Then ' To check file name is valid or not
path = SaveFileDialog1.FileName
RichTextBox1.SaveFile(path, RichTextBoxStreamType.PlainText)
MsgBox("File save successfully.........")
End If
End Sub
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
If DialogResult.OK = OpenFileDialog1.ShowDialog() Then ' To check file name is valid or not
path = OpenFileDialog1.FileName
RichTextBox1.Text = (File.ReadAllText(path)).ToString
MsgBox("File Open successfully.........")
End If
End Sub
End Class
Output:-
Design:-
1) Take RichTextBox, MenuStrip, FontDialog, ColorDialog, OpenFileDialog, SaveFileDialog on design form.
2) Set Menu on MenuStrip.
Theory:-
Imports System.IO - This class contains a File method which is used to read content from a file.
FontDialog1.ShowDialog() - It is use to Display fontDialog. Which helps to select particular font from dialogbox.
FontDialog1.Font - It returns selected Font.
ColorDialog1.ShowDialog() - It is used to Display color Palette. Which helps to select a particular color from Palette.
ColorDialog1.Color - It returns selected color.
SaveFileDialog1.FileName - It returns filename with path.
RichTextBox1.SaveFile(path, RichTextBoxStreamType.PlainText) - This method save the file at given path and write a text into a file from RichTextBox.
(File.ReadAllText(path)).ToString - This File method is used to read text from a file in a byte. It needs to convert into the string.


0 Comments