disable regex in column configuration form

This commit is contained in:
Jonathan Jenne 2021-09-24 15:47:47 +02:00
parent 45f8ebbfe5
commit 33ddd7a28b
2 changed files with 9 additions and 6 deletions

View File

@ -279,6 +279,7 @@ Partial Class frmControl_Detail
resources.ApplyResources(Me.REGEX_MATCHTextBox, "REGEX_MATCHTextBox")
Me.REGEX_MATCHTextBox.MenuManager = Me.RibbonControl1
Me.REGEX_MATCHTextBox.Name = "REGEX_MATCHTextBox"
Me.REGEX_MATCHTextBox.Properties.ReadOnly = True
Me.REGEX_MATCHTextBox.StyleController = Me.LayoutControl1
'
'SimpleButton1
@ -293,6 +294,7 @@ Partial Class frmControl_Detail
resources.ApplyResources(Me.REGEX_MESSAGE_DETextBox, "REGEX_MESSAGE_DETextBox")
Me.REGEX_MESSAGE_DETextBox.MenuManager = Me.RibbonControl1
Me.REGEX_MESSAGE_DETextBox.Name = "REGEX_MESSAGE_DETextBox"
Me.REGEX_MESSAGE_DETextBox.Properties.ReadOnly = True
Me.REGEX_MESSAGE_DETextBox.StyleController = Me.LayoutControl1
'
'SQL_COMMANDTextBox

View File

@ -119,13 +119,14 @@ Public Class frmControl_Detail
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Dim oForm As New frmRegexEditor()
oForm.RegexString = REGEX_MATCHTextBox.Text
'TODO: Enable when regexes are implemented
'Dim oForm As New frmRegexEditor()
'oForm.RegexString = REGEX_MATCHTextBox.Text
Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then
REGEX_MATCHTextBox.Text = oForm.RegexString
End If
'Dim oResult = oForm.ShowDialog()
'If oResult = DialogResult.OK Then
' REGEX_MATCHTextBox.Text = oForm.RegexString
'End If
End Sub
Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click