frmeditor.vb

一个简单的文本编辑器。

        '
        'mnuEditCopy
        '
        Me.mnuEditCopy.Index = 3
        Me.mnuEditCopy.Shortcut = System.Windows.Forms.Shortcut.CtrlC
        Me.mnuEditCopy.Text = "复制(Ctl-C)"
        '
        'mnuEditCut
        '
        Me.mnuEditCut.Index = 4
        Me.mnuEditCut.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mnuEditCut.Text = "剪切(Ctrl-X)"
        '
        'mnuEditPaste
        '
        Me.mnuEditPaste.Index = 5
        Me.mnuEditPaste.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.mnuEditPaste.Text = "粘贴(CtrlP)"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 6
        Me.MenuItem20.Text = "-"
        '
        'mnuFind
        '
        Me.mnuFind.Index = 7
        Me.mnuFind.Text = "查找与替换"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 8
        Me.MenuItem23.Text = "-"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 9
        Me.MenuItem25.Text = "后悔"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 3
        Me.MenuItem26.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFormatFont, Me.mnuFormatColor, Me.MenuItem29, Me.MenuItem30, Me.MenuItem17, Me.mnuSetCharOffsetUp, Me.mnuSetCharOffsetDown, Me.mnuCancelCharOffset, Me.MenuItem15, Me.mnuLeftAligment, Me.mnuRightAligment, Me.mnuAligmentMiddle})
        Me.MenuItem26.Text = "格式"
        '
        'mnuFormatFont
        '
        Me.mnuFormatFont.Index = 0
        Me.mnuFormatFont.Text = "字体…"
        '
        'mnuFormatColor
        '
        Me.mnuFormatColor.Index = 1
        Me.mnuFormatColor.Text = "颜色…"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 2
        Me.MenuItem29.Text = "项目符号"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 3
        Me.MenuItem30.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuIndentUp, Me.mnuIndentDown, Me.MenuItem27, Me.mnuHangingIndentUp, Me.mnuHangingIndentDown})
        Me.MenuItem30.Text = "缩进"
        '
        'mnuIndentUp
        '
        Me.mnuIndentUp.Index = 0
        Me.mnuIndentUp.Text = "增加段落缩进"
        '
        'mnuIndentDown
        '
        Me.mnuIndentDown.Index = 1
        Me.mnuIndentDown.Text = "减少段落缩进"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 2
        Me.MenuItem27.Text = "-"
        '
        'mnuHangingIndentUp
        '
        Me.mnuHangingIndentUp.Index = 3
        Me.mnuHangingIndentUp.Text = "增加悬挂缩进"
        '
        'mnuHangingIndentDown
        '
        Me.mnuHangingIndentDown.Index = 4
        Me.mnuHangingIndentDown.Text = "减少悬挂缩进"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 4
        Me.MenuItem17.Text = "-"
        '
        'mnuSetCharOffsetUp
        '
        Me.mnuSetCharOffsetUp.Index = 5
        Me.mnuSetCharOffsetUp.Text = "上标"
        '
        'mnuSetCharOffsetDown
        '
        Me.mnuSetCharOffsetDown.Index = 6
        Me.mnuSetCharOffsetDown.Text = "下标"
        '
        'mnuCancelCharOffset
        '
        Me.mnuCancelCharOffset.Index = 7
        Me.mnuCancelCharOffset.Text = "取消上下标"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 8
        Me.MenuItem15.Text = "-"
        '
        'mnuLeftAligment
        '
        Me.mnuLeftAligment.Index = 9
        Me.mnuLeftAligment.MdiList = True
        Me.mnuLeftAligment.Text = "左对齐"
        '
        'mnuRightAligment
        '
        Me.mnuRightAligment.Index = 10
        Me.mnuRightAligment.Text = "右对齐"
        '
        'mnuAligmentMiddle
        '
        Me.mnuAligmentMiddle.Index = 11
        Me.mnuAligmentMiddle.Text = "居中对齐"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 4
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInsertLineNum})
        Me.MenuItem1.Text = "工具"
        '
        'mnuInsertLineNum
        '
        Me.mnuInsertLineNum.Index = 0
        Me.mnuInsertLineNum.Text = "插入行号"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 5
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAbout})
        Me.MenuItem4.Text = "帮助"
        '
        'mnuAbout
        '
        Me.mnuAbout.Index = 0
        Me.mnuAbout.Text = "版本信息"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnNew, Me.btnOpen, Me.btnSave, Me.ToolBarButton1, Me.btnCopy, Me.btnCut, Me.btnPaste, Me.ToolBarButton2, Me.btnBold, Me.btnItalic, Me.btnUnderLine, Me.btnFontSizeUp, Me.btnFontSizeDown, Me.btnFontColor, Me.btnBullet, Me.btnLineNum, Me.btnHangIndentUp, Me.btnIndentDown, Me.ToolBarButton4, Me.btnUndo, Me.ToolBarButton3, Me.btnAligmentLeft, Me.btnAligmentRight, Me.btnAligmentMiddle, Me.ToolBarButton5, Me.btnFind, Me.ToolBarButton6, Me.btnZoomIn, Me.btnZoomOut})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(632, 28)
        Me.ToolBar1.TabIndex = 1
        '
        'btnNew
        '
        Me.btnNew.ImageIndex = 0
        Me.btnNew.Tag = "New"
        Me.btnNew.ToolTipText = "新建"
        '
        'btnOpen
        '
        Me.btnOpen.ImageIndex = 1
        Me.btnOpen.Tag = "Open"
        Me.btnOpen.ToolTipText = "打开"
        '
        'btnSave
        '
        Me.btnSave.ImageIndex = 2
        Me.btnSave.Tag = "Save"
        Me.btnSave.ToolTipText = "保存"
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnCopy
        '
        Me.btnCopy.ImageIndex = 3
        Me.btnCopy.Tag = "Copy"
        Me.btnCopy.ToolTipText = "复制"
        '
        'btnCut
        '
        Me.btnCut.ImageIndex = 4
        Me.btnCut.Tag = "Cut"
        Me.btnCut.ToolTipText = "剪切"
        '
        'btnPaste
        '
        Me.btnPaste.ImageIndex = 5
        Me.btnPaste.Tag = "Paste"
        Me.btnPaste.ToolTipText = "粘贴"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnBold
        '
        Me.btnBold.ImageIndex = 6
        Me.btnBold.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.btnBold.Tag = "Bold"
        Me.btnBold.ToolTipText = "粗体"
        '
        'btnItalic
        '
        Me.btnItalic.ImageIndex = 7
        Me.btnItalic.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.btnItalic.Tag = "Italic"
        Me.btnItalic.ToolTipText = "斜体"
        '
        'btnUnderLine
        '
        Me.btnUnderLine.ImageIndex = 8
        Me.btnUnderLine.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.btnUnderLine.Tag = "UnderLine"
        Me.btnUnderLine.ToolTipText = "下划线"
        '
        'btnFontSizeUp
        '
        Me.btnFontSizeUp.ImageIndex = 9
        Me.btnFontSizeUp.Tag = "FontSizeUp"
        Me.btnFontSizeUp.ToolTipText = "放大字体"
        '
        'btnFontSizeDown
        '
        Me.btnFontSizeDown.ImageIndex = 10
        Me.btnFontSizeDown.Tag = "FontSizeDown"
        Me.btnFontSizeDown.ToolTipText = "缩小字体"
        '
        'btnFontColor
        '
        Me.btnFontColor.ImageIndex = 11
        Me.btnFontColor.Tag = "FontColor"
        Me.btnFontColor.ToolTipText = "字体颜色"
        '
        'btnBullet
        '
        Me.btnBullet.ImageIndex = 12
        Me.btnBullet.Tag = "Bullet"
        Me.btnBullet.ToolTipText = "项目符号"
        '
        'btnLineNum
        '
        Me.btnLineNum.ImageIndex = 22
        Me.btnLineNum.Tag = "LineNum"
        Me.btnLineNum.ToolTipText = "添加行号"
        '
        'btnHangIndentUp
        '
        Me.btnHangIndentUp.ImageIndex = 13
        Me.btnHangIndentUp.Tag = "IndentUp"
        Me.btnHangIndentUp.ToolTipText = "增加段落缩进"
        '
        'btnIndentDown
        '
        Me.btnIndentDown.ImageIndex = 14
        Me.btnIndentDown.Tag = "IndentDown"
        Me.btnIndentDown.ToolTipText = "减少段落缩进"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnUndo
        '
        Me.btnUndo.ImageIndex = 18
        Me.btnUndo.Tag = "Undo"
        Me.btnUndo.ToolTipText = "撤消"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnAligmentLeft
        '
        Me.btnAligmentLeft.ImageIndex = 15
        Me.btnAligmentLeft.Tag = "AligmentLeft"
        Me.btnAligmentLeft.ToolTipText = "左对齐"
        '
        'btnAligmentRight
        '
        Me.btnAligmentRight.ImageIndex = 16
        Me.btnAligmentRight.Tag = "AligmentRight"
        Me.btnAligmentRight.ToolTipText = "右对齐"
        '
        'btnAligmentMiddle
        '
        Me.btnAligmentMiddle.ImageIndex = 17
        Me.btnAligmentMiddle.Tag = "AligmentMiddle"
        Me.btnAligmentMiddle.ToolTipText = "居中对齐"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnFind
        '
        Me.btnFind.ImageIndex = 19
        Me.btnFind.Tag = "Find"
        Me.btnFind.ToolTipText = "查找与替换"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnZoomIn
        '
        Me.btnZoomIn.ImageIndex = 20
        Me.btnZoomIn.Tag = "ZoomIn"
        Me.btnZoomIn.ToolTipText = "放大"
        '
        'btnZoomOut
        '
        Me.btnZoomOut.ImageIndex = 21
        Me.btnZoomOut.Tag = "ZoomOut"
        Me.btnZoomOut.ToolTipText = "缩小"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 329)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2, Me.StatusBarPanel3})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(632, 24)
        Me.StatusBar1.TabIndex = 3
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.StatusBarPanel1.Width = 10
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.StatusBarPanel2.Width = 10
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents