AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2022-06-09 18:05:31 +02:00
parent b263d7d70e
commit 19e356e0cf
8 changed files with 184 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -566,12 +566,11 @@ Public Class frmAdmin_Globix
str = FOLDER_FOR_INDEXTextEdit.Text & "\"
End If
If cmbAllAttributes.SelectedIndex <> -1 Then
Dim oPattern As String
If cmbAllAttributes.Text.EndsWith("M") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAllAttributes.Text)
ElseIf cmbAllAttributes.Text.EndsWith("A") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbAllAttributes.Text)
If cmbAllAttributes.Text.EndsWith(" - M") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAllAttributes.Text.Replace(" - M", ""))
ElseIf cmbAllAttributes.Text.EndsWith(" - A") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbAllAttributes.Text.Replace(" - A", ""))
End If
Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern
cmbAllAttributes.SelectedIndex = -1
@@ -678,4 +677,19 @@ Public Class frmAdmin_Globix
SQL_RESULTTextBox1.Text = String.Empty
End If
End Sub
Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
If WD_INDEXComboBox.SelectedIndex <> -1 Then
TextEdit10.Text = WD_INDEXComboBox.Text
End If
End Sub
Private Sub FOLDER_FOR_INDEXTextEdit_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextEdit.TextChanged
If FOLDER_FOR_INDEXTextEdit.Text <> String.Empty Then
Dim opath = FOLDER_FOR_INDEXTextEdit.Text
opath = opath.Replace("\\", "\")
FOLDER_FOR_INDEXTextEdit.Text = opath
End If
End Sub
End Class