rework settings tabs

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.Database
+Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Database
 Public Class frmAdministration
     Private _SelectedProcessName As String
     Private _DragDrop As ClassDragDrop
@@ -499,7 +500,7 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
+    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged, XtraTabControl2.SelectedPageChanged
         Dim oTabName As String = e.Page.Name
 
         Try
@@ -751,7 +752,7 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
+    Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs)
         'Try
         '    If PROFILE_IDTextBox.Text = String.Empty Then
         '        Exit Sub
@@ -780,7 +781,29 @@ Public Class frmAdministration
         'End Try
     End Sub
 
-    Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        If txtRegexTestString.Text.Count = 0 Then
+            MsgBox("Bitte füllen Sie den Regular Expression Test aus!", MsgBoxStyle.Exclamation, Text)
+            Exit Sub
+        End If
+
+        If textEdit5.Text.Count = 0 Then
+            MsgBox("Bitte füllen Sie die Regular Expression aus!", MsgBoxStyle.Exclamation, Text)
+            Exit Sub
+        End If
+
+        Dim oRegex As String = textEdit5.Text
+        Dim oTestString As String = txtRegexTestString.Text
+
+        If Regex.IsMatch(oTestString, oRegex) Then
+            MsgBox("Der Test war erfolgreich!", MsgBoxStyle.Information, Text)
+        Else
+            MsgBox("Der Test war NICHT erfolgreich!", MsgBoxStyle.Information, Text)
+        End If
+
+    End Sub
+
+    Private Sub XtraTabControl3_Click(sender As Object, e As EventArgs) Handles XtraTabControl3.Click
 
     End Sub
 End Class