mainform.designer.vb

一个好用的正则表达式验证程序源码,可以参考

      '
      Me.mnuCommandsReplace.Name = "mnuCommandsReplace"
      Me.mnuCommandsReplace.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.R), System.Windows.Forms.Keys)
      Me.mnuCommandsReplace.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsReplace.Text = "&Replace"
      '
      'mnuCommandsSplit
      '
      Me.mnuCommandsSplit.Name = "mnuCommandsSplit"
      Me.mnuCommandsSplit.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.T), System.Windows.Forms.Keys)
      Me.mnuCommandsSplit.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsSplit.Text = "&Split"
      '
      'ToolStripSeparator1
      '
      Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
      Me.ToolStripSeparator1.Size = New System.Drawing.Size(180, 6)
      '
      'mnuCommandsShowGroups
      '
      Me.mnuCommandsShowGroups.Name = "mnuCommandsShowGroups"
      Me.mnuCommandsShowGroups.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsShowGroups.Text = "&Show groups"
      '
      'mnuCommandsEscape
      '
      Me.mnuCommandsEscape.Name = "mnuCommandsEscape"
      Me.mnuCommandsEscape.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsEscape.Text = "&Escape"
      '
      'mnuCommandsGenerateCode
      '
      Me.mnuCommandsGenerateCode.Name = "mnuCommandsGenerateCode"
      Me.mnuCommandsGenerateCode.ShortcutKeys = System.Windows.Forms.Keys.F2
      Me.mnuCommandsGenerateCode.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsGenerateCode.Text = "&Generate code"
      '
      'mnuCommandsCompile
      '
      Me.mnuCommandsCompile.Name = "mnuCommandsCompile"
      Me.mnuCommandsCompile.Size = New System.Drawing.Size(183, 22)
      Me.mnuCommandsCompile.Text = "&Compile to Assembly"
      '
      'mnuOptions
      '
      Me.mnuOptions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuOptionsIgnoreCase, Me.mnuOptionsIgnoreWhitespace, Me.mnuOptionsMultiline, Me.mnuOptionsCompiled, Me.mnuOptionsExplicitCapture, Me.mnuOptionsRightToLeft, Me.mnuOptionsCultureInvariant, Me.mnuOptionsEcmaScript})
      Me.mnuOptions.Name = "mnuOptions"
      Me.mnuOptions.Size = New System.Drawing.Size(56, 20)
      Me.mnuOptions.Text = "&Options"
      '
      'mnuOptionsIgnoreCase
      '
      Me.mnuOptionsIgnoreCase.Name = "mnuOptionsIgnoreCase"
      Me.mnuOptionsIgnoreCase.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsIgnoreCase.Text = "&Ignore case"
      '
      'mnuOptionsIgnoreWhitespace
      '
      Me.mnuOptionsIgnoreWhitespace.Name = "mnuOptionsIgnoreWhitespace"
      Me.mnuOptionsIgnoreWhitespace.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsIgnoreWhitespace.Text = "Ignore &Whitespace"
      '
      'mnuOptionsMultiline
      '
      Me.mnuOptionsMultiline.Name = "mnuOptionsMultiline"
      Me.mnuOptionsMultiline.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsMultiline.Text = "&Multiline"
      '
      'mnuOptionsCompiled
      '
      Me.mnuOptionsCompiled.Name = "mnuOptionsCompiled"
      Me.mnuOptionsCompiled.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsCompiled.Text = "&Compiled"
      '
      'mnuOptionsExplicitCapture
      '
      Me.mnuOptionsExplicitCapture.Name = "mnuOptionsExplicitCapture"
      Me.mnuOptionsExplicitCapture.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsExplicitCapture.Text = "&Explicit capture"
      '
      'mnuOptionsRightToLeft
      '
      Me.mnuOptionsRightToLeft.Name = "mnuOptionsRightToLeft"
      Me.mnuOptionsRightToLeft.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsRightToLeft.Text = "&Right to left"
      '
      'mnuOptionsCultureInvariant
      '
      Me.mnuOptionsCultureInvariant.Name = "mnuOptionsCultureInvariant"
      Me.mnuOptionsCultureInvariant.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsCultureInvariant.Text = "C&ulture invariant"
      '
      'mnuOptionsEcmaScript
      '
      Me.mnuOptionsEcmaScript.Name = "mnuOptionsEcmaScript"
      Me.mnuOptionsEcmaScript.Size = New System.Drawing.Size(176, 22)
      Me.mnuOptionsEcmaScript.Text = "EC&MAScript"
      '
      'mnuResults
      '
      Me.mnuResults.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuResultsTreeView, Me.mnuResultsReport, Me.mnuResultsAuto, Me.ToolStripSeparator7, Me.mnuResultsNoDetails, Me.mnuResultsGroups, Me.mnuResultsCaptures, Me.ToolStripSeparator2, Me.ToolStripTextBox1, Me.mnuResultsIncludeEmptyGroups, Me.ToolStripMenuItem1, Me.mnuResultsDontSort, Me.mnuResultsSortAlphabetically, Me.mnuResultsShortest, Me.mnuResultsLargest})
      Me.mnuResults.Name = "mnuResults"
      Me.mnuResults.Size = New System.Drawing.Size(54, 20)
      Me.mnuResults.Text = "&Results"
      '
      'mnuResultsTreeView
      '
      Me.mnuResultsTreeView.Name = "mnuResultsTreeView"
      Me.mnuResultsTreeView.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsTreeView.Text = "&Tree view"
      '
      'mnuResultsReport
      '
      Me.mnuResultsReport.Name = "mnuResultsReport"
      Me.mnuResultsReport.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsReport.Text = "&Report"
      '
      'mnuResultsAuto
      '
      Me.mnuResultsAuto.Name = "mnuResultsAuto"
      Me.mnuResultsAuto.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsAuto.Text = "&Auto"
      '
      'ToolStripSeparator7
      '
      Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
      Me.ToolStripSeparator7.Size = New System.Drawing.Size(192, 6)
      '
      'mnuResultsNoDetails
      '
      Me.mnuResultsNoDetails.Name = "mnuResultsNoDetails"
      Me.mnuResultsNoDetails.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsNoDetails.Text = "N&o details"
      '
      'mnuResultsGroups
      '
      Me.mnuResultsGroups.Name = "mnuResultsGroups"
      Me.mnuResultsGroups.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsGroups.Text = "&Groups"
      '
      'mnuResultsCaptures
      '
      Me.mnuResultsCaptures.Name = "mnuResultsCaptures"
      Me.mnuResultsCaptures.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsCaptures.Text = "Groups and &Captures"
      '
      'ToolStripSeparator2
      '
      Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
      Me.ToolStripSeparator2.Size = New System.Drawing.Size(192, 6)
      '
      'ToolStripTextBox1
      '
      Me.ToolStripTextBox1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.txtViewMaxMatches})
      Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
      Me.ToolStripTextBox1.Size = New System.Drawing.Size(195, 22)
      Me.ToolStripTextBox1.Text = "&Max number  of results"
      '
      'txtViewMaxMatches
      '
      Me.txtViewMaxMatches.Name = "txtViewMaxMatches"
      Me.txtViewMaxMatches.Size = New System.Drawing.Size(100, 21)
      Me.txtViewMaxMatches.Text = "1000"
      '
      'mnuResultsIncludeEmptyGroups
      '
      Me.mnuResultsIncludeEmptyGroups.Name = "mnuResultsIncludeEmptyGroups"
      Me.mnuResultsIncludeEmptyGroups.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsIncludeEmptyGroups.Text = "&Include empty groups"
      '
      'ToolStripMenuItem1
      '
      Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
      Me.ToolStripMenuItem1.Size = New System.Drawing.Size(192, 6)
      '
      'mnuResultsDontSort
      '
      Me.mnuResultsDontSort.Name = "mnuResultsDontSort"
      Me.mnuResultsDontSort.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsDontSort.Text = "Sort on &Position"
      '
      'mnuResultsSortAlphabetically
      '
      Me.mnuResultsSortAlphabetically.Name = "mnuResultsSortAlphabetically"
      Me.mnuResultsSortAlphabetically.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsSortAlphabetically.Text = "Sort on &Name"
      '
      'mnuResultsShortest
      '
      Me.mnuResultsShortest.Name = "mnuResultsShortest"
      Me.mnuResultsShortest.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsShortest.Text = "&Shortest matches first"
      '
      'mnuResultsLargest
      '
      Me.mnuResultsLargest.Name = "mnuResultsLargest"
      Me.mnuResultsLargest.Size = New System.Drawing.Size(195, 22)
      Me.mnuResultsLargest.Text = "&Largest matches first"
      '
      'mnuHelp
      '
      Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpAbout})
      Me.mnuHelp.Name = "mnuHelp"
      Me.mnuHelp.Size = New System.Drawing.Size(40, 20)
      Me.mnuHelp.Text = "&Help"
      '
      'mnuHelpAbout
      '
      Me.mnuHelpAbout.Name = "mnuHelpAbout"
      Me.mnuHelpAbout.Size = New System.Drawing.Size(114, 22)
      Me.mnuHelpAbout.Text = "&About"
      '
      'dlgOpenDoc
      '
      Me.dlgOpenDoc.Filter = "Text files (*.txt;*.doc)|*.txt;*.doc|All files|*.*"
      Me.dlgOpenDoc.Title = "Open a text document"
      '
      'rtbSource
      '
      Me.rtbSource.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                  Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
      Me.rtbSource.DetectUrls = False
      Me.rtbSource.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.rtbSource.HideSelection = False
      Me.rtbSource.Location = New System.Drawing.Point(67, 188)
      Me.rtbSource.Name = "rtbSource"
      Me.rtbSource.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.Vertical
      Me.rtbSource.Size = New System.Drawing.Size(674, 101)
      Me.rtbSource.TabIndex = 6
      Me.rtbSource.Text = ""
      Me.ToolTip1.SetToolTip(Me.rtbSource, "The text on which the regular expression is applied.