RegexEditor: Improve Look and Feel

Controls.RegexEditor/frmRegexEditor.vb

@@ -4,6 +4,8 @@ Public Class frmRegexEditor
     Public RegexString As String
 
     Public Sub New(RegexString As String)
+        MyBase.New()
+
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -15,21 +17,22 @@ Public Class frmRegexEditor
         txtRegex.Text = RegexString
     End Sub
 
-    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        RegexString = txtRegex.Text
+        Close()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         Try
             Dim oTestString As String = txtTest.Text
 
             If Regex.IsMatch(oTestString, txtRegex.Text) Then
-                labelResult.Text = "Test String ist gültig."
+                labelResult.Caption = "Test String ist gültig."
             Else
-                labelResult.Text = "Test String ist nicht gültig."
+                labelResult.Caption = "Test String ist nicht gültig."
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test")
         End Try
     End Sub
-
-    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        RegexString = txtRegex.Text
-    End Sub
 End Class