اینم برنامه طراحی ادیتور

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog

Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog

Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog

Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog

Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog

Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox

Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem

Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog

Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem

Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument

Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog

Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))

Me.MainMenu1 = New System.Windows.Forms.MainMenu

Me.MenuItem1 = New System.Windows.Forms.MenuItem

Me.MenuItem2 = New System.Windows.Forms.MenuItem

Me.MenuItem3 = New System.Windows.Forms.MenuItem

Me.MenuItem4 = New System.Windows.Forms.MenuItem

Me.MenuItem5 = New System.Windows.Forms.MenuItem

Me.MenuItem6 = New System.Windows.Forms.MenuItem

Me.MenuItem7 = New System.Windows.Forms.MenuItem

Me.MenuItem8 = New System.Windows.Forms.MenuItem

Me.MenuItem9 = New System.Windows.Forms.MenuItem

Me.PictureBox1 = New System.Windows.Forms.PictureBox

Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog

Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog

Me.FontDialog1 = New System.Windows.Forms.FontDialog

Me.ColorDialog1 = New System.Windows.Forms.ColorDialog

Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog

Me.RichTextBox1 = New System.Windows.Forms.RichTextBox

Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog

Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument

Me.PrintDialog1 = New System.Windows.Forms.PrintDialog

Me.MenuItem10 = New System.Windows.Forms.MenuItem

Me.MenuItem11 = New System.Windows.Forms.MenuItem

Me.MenuItem12 = New System.Windows.Forms.MenuItem

Me.MenuItem13 = New System.Windows.Forms.MenuItem

Me.SuspendLayout()

'

'MainMenu1

'

Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem6})

'

'MenuItem1

'

Me.MenuItem1.Index = 0

Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem10})

Me.MenuItem1.Text = "file"

'

'MenuItem2

'

Me.MenuItem2.Index = 0

Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.CtrlO

Me.MenuItem2.Text = "open"

'

'MenuItem3

'

Me.MenuItem3.Checked = True

Me.MenuItem3.DefaultItem = True

Me.MenuItem3.Index = 1

Me.MenuItem3.MdiList = True

Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlS

Me.MenuItem3.Text = "save"

'

'MenuItem4

'

Me.MenuItem4.Index = 2

Me.MenuItem4.Shortcut = System.Windows.Forms.Shortcut.CtrlE

Me.MenuItem4.Text = "exit"

'

'MenuItem5

'

Me.MenuItem5.Index = 3

Me.MenuItem5.Shortcut = System.Windows.Forms.Shortcut.CtrlB

Me.MenuItem5.Text = "folder browser"

'

'MenuItem6

'

Me.MenuItem6.Index = 1

Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8, Me.MenuItem9, Me.MenuItem11, Me.MenuItem12, Me.MenuItem13})

Me.MenuItem6.Text = "edit"

'

'MenuItem7

'

Me.MenuItem7.Index = 0

Me.MenuItem7.Shortcut = System.Windows.Forms.Shortcut.CtrlF

Me.MenuItem7.Text = "font"

'

'MenuItem8

'

Me.MenuItem8.Index = 1

Me.MenuItem8.Shortcut = System.Windows.Forms.Shortcut.CtrlC

Me.MenuItem8.Text = "color"

'

'MenuItem9

'

Me.MenuItem9.Index = 2

Me.MenuItem9.Shortcut = System.Windows.Forms.Shortcut.CtrlP

Me.MenuItem9.Text = "print"

'

'PictureBox1

'

Me.PictureBox1.Location = New System.Drawing.Point(0, 0)

Me.PictureBox1.Name = "PictureBox1"

Me.PictureBox1.Size = New System.Drawing.Size(328, 264)

Me.PictureBox1.TabIndex = 0

Me.PictureBox1.TabStop = False

'

'OpenFileDialog1

'

Me.OpenFileDialog1.Filter = """txt files(*.txt)|*.txt"""

Me.OpenFileDialog1.Multiselect = True

'

'SaveFileDialog1

'

Me.SaveFileDialog1.CheckFileExists = True

Me.SaveFileDialog1.CreatePrompt = True

Me.SaveFileDialog1.Filter = """txt files(*.txt)|*.txt"""

Me.SaveFileDialog1.ShowHelp = True

'

'PrintPreviewDialog1

'

Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)

Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)

Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)

Me.PrintPreviewDialog1.Enabled = True

Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)

Me.PrintPreviewDialog1.Location = New System.Drawing.Point(44, 58)

Me.PrintPreviewDialog1.MinimumSize = New System.Drawing.Size(375, 250)

Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"

Me.PrintPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty

Me.PrintPreviewDialog1.Visible = False

'

'RichTextBox1

'

Me.RichTextBox1.Location = New System.Drawing.Point(56, 32)

Me.RichTextBox1.Name = "RichTextBox1"

Me.RichTextBox1.Size = New System.Drawing.Size(216, 136)

Me.RichTextBox1.TabIndex = 2

Me.RichTextBox1.Text = "RichTextBox1"

'

'PrintDialog1

'

Me.PrintDialog1.AllowSelection = True

Me.PrintDialog1.AllowSomePages = True

Me.PrintDialog1.PrintToFile = True

'

'MenuItem10

'

Me.MenuItem10.Index = 4

Me.MenuItem10.Shortcut = System.Windows.Forms.Shortcut.CtrlN

Me.MenuItem10.Text = "new"

'

'MenuItem11

'

Me.MenuItem11.Index = 3

Me.MenuItem11.Shortcut = System.Windows.Forms.Shortcut.CtrlK

Me.MenuItem11.Text = "copy"

'

'MenuItem12

'

Me.MenuItem12.Index = 4

Me.MenuItem12.Shortcut = System.Windows.Forms.Shortcut.CtrlJ

Me.MenuItem12.Text = "cut"

'

'MenuItem13

'

Me.MenuItem13.Index = 5

Me.MenuItem13.Text = "pase"

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(328, 266)

Me.Controls.Add(Me.RichTextBox1)

Me.Controls.Add(Me.PictureBox1)

Me.Menu = Me.MainMenu1

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim openFile As New OpenFileDialog

OpenFileDialog1.DefaultExt = "*.txt"

OpenFileDialog1.Filter = "txt files|*.txt"

If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

MenuItem2.Shortcut = Shortcut.CtrlO

End If

End Sub

Private Sub PrintPreviewControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Dim SaveFile As New SaveFileDialog

SaveFileDialog1.DefaultExt = "*.txt"

SaveFileDialog1.Filter = "txt files|*.txt"

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK And (SaveFileDialog1.FileName.Length) > 0 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

MenuItem3.Shortcut = Shortcut.CtrlS

End If

End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

End

MenuItem4.Shortcut = Shortcut.CtrlE

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then

RichTextBox1.SaveFile(FolderBrowserDialog1.SelectedPath & "schedule.txt")

MenuItem5.Shortcut = Shortcut.CtrlB

End If

End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

If FontDialog1.ShowDialog = DialogResult.OK Then

RichTextBox1.Font = FontDialog1.Font

RichTextBox1.ForeColor = FontDialog1.Color

MenuItem7.Shortcut = Shortcut.CtrlF

End If

End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click

If ColorDialog1.ShowDialog = DialogResult.OK Then

PictureBox1.BackColor = ColorDialog1.Color

MenuItem8.Shortcut = Shortcut.CtrlC

End If

End Sub

Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click

PrintDialog1.Document = PrintDocument1

PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings

PrintDialog1.AllowSomePages = True

If PrintDialog1.ShowDialog = DialogResult.OK Then

PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings

PrintDocument1.Print()

MenuItem9.Shortcut = Shortcut.CtrlP

End If

End Sub

Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click

RichTextBox1.Clear()

MenuItem10.Shortcut = Shortcut.CtrlN

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click

If RichTextBox1.SelectionLength > 0 Then

RichTextBox1.Copy()

MenuItem11.Shortcut = Shortcut.CtrlK

End If

End Sub

Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click

If RichTextBox1.SelectionLength > 0 Then

RichTextBox1.Cut()

MenuItem12.Shortcut = Shortcut.CtrlJ

End If

End Sub

Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click

If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then

If RichTextBox1.SelectionLength > 0 Then

If MessageBox.Show("شما می خواهید موجودی کپی نمایش داده شود؟", "cut exampel", MessageBoxButtons.YesNo) = DialogResult.No Then

RichTextBox1.SelectionStart = RichTextBox1.SelectionStart + RichTextBox1.SelectionLength

End If

RichTextBox1.Paste()

End If

End If

End Sub