SQLEditor: New Module

Controls.SQLEditor/frmSQLEditor.vb

@@ -0,0 +1,31 @@
+Public Class frmSQLEditor
+    Public SQLString As String
+
+    Public Sub New(SQLString As String)
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.SQLString = SQLString
+    End Sub
+
+    Private Sub RegexEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        txtSQL.Text = SQLString
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        SQLString = txtSQL.Text
+        DialogResult = DialogResult.OK
+        Close()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Try
+            MsgBox("TODO: Test SQL", MsgBoxStyle.Exclamation, Text)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test")
+        End Try
+    End Sub
+End Class