RegexEditor: Update with devexpress form

This commit is contained in:
Jonathan Jenne 2021-01-12 15:26:48 +01:00
parent 3162ec9fde
commit ae0603fb4d
3 changed files with 106 additions and 101 deletions

View File

@ -48,6 +48,11 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.Desktop.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v20.1.Core, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
@ -73,13 +78,6 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="frmRegexEditor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmRegexEditor.Designer.vb">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
@ -96,17 +94,23 @@
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="RegexEditor.vb" />
<Compile Include="frmRegexEditor.Designer.vb">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
</Compile>
<Compile Include="frmRegexEditor.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmRegexEditor.resx">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmRegexEditor.resx">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">

View File

@ -1,106 +1,42 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmRegexEditor
Inherits System.Windows.Forms.Form
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Wird vom Windows Form-Designer benötigt.
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
'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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.txtRegex = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnTest = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.labelResult = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtTest = New System.Windows.Forms.TextBox()
Me.btnTest = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtRegex = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'txtRegex
'
Me.txtRegex.Location = New System.Drawing.Point(12, 25)
Me.txtRegex.Name = "txtRegex"
Me.txtRegex.Size = New System.Drawing.Size(419, 20)
Me.txtRegex.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(101, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Regular Expression:"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(12, 48)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(419, 33)
Me.Label4.TabIndex = 8
Me.Label4.Text = "Wenn die Eingabe insgesamt validiert werden soll, muss der Regex in ^ und $ einge" &
"schlossen sein"
'
'labelResult
'
Me.labelResult.AutoSize = True
Me.labelResult.Location = New System.Drawing.Point(12, 163)
Me.labelResult.Name = "labelResult"
Me.labelResult.Size = New System.Drawing.Size(282, 13)
Me.labelResult.TabIndex = 12
Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen."
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 150)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 13)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Ergebnis:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Test String:"
'
'txtTest
'
Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtTest.Location = New System.Drawing.Point(12, 116)
Me.txtTest.Name = "txtTest"
Me.txtTest.Size = New System.Drawing.Size(419, 20)
Me.txtTest.TabIndex = 9
'
'btnTest
'
Me.btnTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTest.Location = New System.Drawing.Point(201, 193)
Me.btnTest.Location = New System.Drawing.Point(187, 192)
Me.btnTest.Name = "btnTest"
Me.btnTest.Size = New System.Drawing.Size(112, 31)
Me.btnTest.TabIndex = 14
Me.btnTest.TabIndex = 23
Me.btnTest.Text = "Test"
Me.btnTest.UseVisualStyleBackColor = True
'
@ -108,18 +44,83 @@ Partial Class frmRegexEditor
'
Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSave.Location = New System.Drawing.Point(319, 193)
Me.btnSave.Location = New System.Drawing.Point(305, 192)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(112, 31)
Me.btnSave.TabIndex = 13
Me.btnSave.TabIndex = 22
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'labelResult
'
Me.labelResult.AutoSize = True
Me.labelResult.Location = New System.Drawing.Point(12, 163)
Me.labelResult.Name = "labelResult"
Me.labelResult.Size = New System.Drawing.Size(284, 13)
Me.labelResult.TabIndex = 21
Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen."
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 150)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(52, 13)
Me.Label3.TabIndex = 20
Me.Label3.Text = "Ergebnis:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 13)
Me.Label2.TabIndex = 19
Me.Label2.Text = "Test String:"
'
'txtTest
'
Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtTest.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTest.Location = New System.Drawing.Point(12, 116)
Me.txtTest.Name = "txtTest"
Me.txtTest.Size = New System.Drawing.Size(405, 20)
Me.txtTest.TabIndex = 18
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(12, 48)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(419, 33)
Me.Label4.TabIndex = 17
Me.Label4.Text = "Wenn die Eingabe insgesamt validiert werden soll, muss der Regex in ^ und $ einge" &
"schlossen sein"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(103, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Regular Expression:"
'
'txtRegex
'
Me.txtRegex.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtRegex.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRegex.Location = New System.Drawing.Point(12, 25)
Me.txtRegex.Name = "txtRegex"
Me.txtRegex.Size = New System.Drawing.Size(405, 20)
Me.txtRegex.TabIndex = 15
'
'frmRegexEditor
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(443, 236)
Me.ClientSize = New System.Drawing.Size(429, 235)
Me.Controls.Add(Me.btnTest)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.labelResult)
@ -129,21 +130,21 @@ Partial Class frmRegexEditor
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtRegex)
Me.IconOptions.ShowIcon = False
Me.Name = "frmRegexEditor"
Me.ShowIcon = False
Me.Text = "Regex Editor"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtRegex As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents btnTest As Button
Friend WithEvents btnSave As Button
Friend WithEvents labelResult As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtTest As TextBox
Friend WithEvents btnTest As Button
Friend WithEvents btnSave As Button
Friend WithEvents Label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtRegex As TextBox
End Class

View File

@ -32,4 +32,4 @@ Public Class frmRegexEditor
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
RegexString = txtRegex.Text
End Sub
End Class
End Class