DESCRIPTION:
Create a text editor application. It should perform operation like cut, copy, paste and change in font, color of the selected text.
Create a text editor application. It should perform operation like cut, copy, paste and change in font, color of the selected text.
Public Class Form1
Dim fontbox As New ColorDialog
Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click
Dim fontbox As New FontDialog
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionFont = fontbox.Font
End If
End Sub
Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionColor = fontbox.Color
End If
End Sub
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub FontBackColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontBackColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionBackColor = fontbox.Color
End If
End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub BackgroundColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BackgroundColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.BackColor = fontbox.Color
End If
End Sub
End Class
DESIGNING:Dim fontbox As New ColorDialog
Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click
Dim fontbox As New FontDialog
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionFont = fontbox.Font
End If
End Sub
Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionColor = fontbox.Color
End If
End Sub
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub FontBackColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontBackColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionBackColor = fontbox.Color
End If
End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub BackgroundColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BackgroundColorToolStripMenuItem.Click
If fontbox.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.BackColor = fontbox.Color
End If
End Sub
End Class
Comments
Post a Comment