31 lines
1.0 KiB
VB.net
31 lines
1.0 KiB
VB.net
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 |