AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Final fixes before vacation \o/

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-08 16:24:31 +02:00
parent aa84e977b9
commit eeb38b5849
21 changed files with 1180 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

221
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -90,12 +90,12 @@ Public Class frmAdministration
XtraTabControl3.SelectedTabPage = TabPageGeneralSettings
End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
If GUIDTextBox.Text <> "" Then
If PROFILE_IDTextBox.Text <> "" Then
Refresh_ProfileData()
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Load_Profile_Process()
End If
@@ -104,19 +104,19 @@ Public Class frmAdministration
Sub Refresh_ProfileData()
Try
VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, GUIDTextBox.Text)
VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text)
VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text)
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DOC_SEARCH.Count = 0 Then
LayoutControlDocs.Enabled = False
End If
TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DATA_SEARCH.Count = 0 Then
LayoutControlData.Enabled = False
End If
@@ -128,13 +128,13 @@ Public Class frmAdministration
Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs)
Try
Try
Dim i As Integer = CInt(GUIDTextBox.Text)
Dim i As Integer = CInt(PROFILE_IDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
For Each row As DataRow In MyDataset.TBWH_User.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, row.Item(5))
If Database.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
@@ -143,8 +143,8 @@ Public Class frmAdministration
For Each row As DataRow In MyDataset.TBWH_User.Rows
row.Item(0) = CBool(False)
Next
If GUIDTextBox.Text <> "" Then
Refresh_Free_Users(GUIDTextBox.Text)
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
End If
@@ -213,8 +213,8 @@ Public Class frmAdministration
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
If Database.ExecuteNonQuery(del) = True Then
Refresh_ProfileData()
If GUIDTextBox.Text <> "" Then
Refresh_Free_Users(GUIDTextBox.Text)
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
End If
End If
@@ -224,17 +224,17 @@ Public Class frmAdministration
End Sub
Private Sub Load_Profile_Process()
If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
Exit Sub
End If
If CtrlApplicationAssignment1.Process_Load(GUIDTextBox.Text) = False Then
If CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text) = False Then
MsgBox("Unexpected Error while loading processes:", MsgBoxStyle.Critical)
End If
End Sub
Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If GUIDTextBox.Text = "" Then
If PROFILE_IDTextBox.Text = "" Then
Refresh_Free_Users(0)
Refresh_Free_Groups(0)
End If
@@ -244,7 +244,7 @@ Public Class frmAdministration
MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True
@@ -254,7 +254,7 @@ Public Class frmAdministration
Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
LayoutControlDocs.Enabled = True
@@ -275,7 +275,7 @@ Public Class frmAdministration
Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
MyDataset.TBCW_PROF_REL_WINDOW.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName
End Sub
@@ -290,8 +290,8 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text)
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", PROFILE_IDTextBox.Text)
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, Text)
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
If Database.ExecuteNonQuery(swl) = True Then
@@ -304,24 +304,24 @@ Public Class frmAdministration
Load_Profiles()
Refresh_ProfileData()
Try
Dim ID = CInt(GUIDTextBox.Text)
Dim ID = CInt(PROFILE_IDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
If CtrlApplicationAssignment1.Process_CreateAssignment(GUIDTextBox.Text) = False Then
MsgBox("Error while assigning process!", MsgBoxStyle.Critical, "Clipboard Watcher")
If CtrlApplicationAssignment1.Process_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while assigning process!", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Prozess zugeordnet")
End If
Status_Changed("Prozess zugeordnet")
End Sub
Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then
If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
@@ -333,15 +333,15 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
If CtrlApplicationAssignment1.Window_CreateAssignment(GUIDTextBox.Text) = False Then
If CtrlApplicationAssignment1.Window_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher")
Else
Status_Changed("Fenster zugeordnet")
End If
Status_Changed("Fenster zugeordnet")
End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then
If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
@@ -354,7 +354,7 @@ Public Class frmAdministration
Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
Try
If GUIDTextBox.Text = String.Empty Then
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
@@ -363,13 +363,13 @@ Public Class frmAdministration
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("ID")
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, oGuid)
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
If Database.ExecuteNonQuery(insert) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
@@ -383,7 +383,7 @@ Public Class frmAdministration
Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
Try
If GUIDTextBox.Text = String.Empty Then
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
@@ -398,7 +398,7 @@ Public Class frmAdministration
End If
Next
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
@@ -417,7 +417,7 @@ Public Class frmAdministration
For Each oRowHandle In oSelectedGroups
Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row
Dim oGroupId As Integer = oRow.ID
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({GUIDTextBox.Text},{oGroupId})"
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})"
If Database.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
@@ -426,7 +426,7 @@ Public Class frmAdministration
GridViewGroupNotInProfile.ClearSelection()
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
Status_Changed($"{oSelectedGroups.Count} Gruppen zugeordnet")
@@ -451,7 +451,7 @@ Public Class frmAdministration
GridViewGroupInProfile.ClearSelection()
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
@@ -465,58 +465,76 @@ Public Class frmAdministration
Select Case oTabName
Case TabPageProcessAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = True
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = True
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = True
RibbonGroup_Window.Enabled = True
RibbonGroup_Control.Enabled = True
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageUserAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = True
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = True
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageGroupAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = True
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = True
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageData.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = True
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = True
Case TabPageDocuments.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = True
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = True
RibbonGroup_DataSearch.Enabled = False
Case Else
RibbonGroupProfile.Enabled = True
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = True
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
End Select
End Sub
@@ -528,9 +546,9 @@ Public Class frmAdministration
Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
If CtrlApplicationAssignment1.Window_SaveAssignment() = False Then
MsgBox("Error while saving window", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Fensterzuordnung gespeichert")
End If
Status_Changed("Fensterzuordnung gespeichert")
End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
@@ -555,7 +573,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
If result = MsgBoxResult.Yes Then
TBCW_PROF_DATA_SEARCHTableAdapter.Delete(txtDATAGUID.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Daten-Suche gelöscht")
End If
End Sub
@@ -567,7 +585,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox1.Text = Environment.UserName
TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Daten-Suche gespeichert")
End If
Catch ex As NoNullAllowedException
@@ -590,7 +608,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
If result = MsgBoxResult.Yes Then
TBCW_PROF_DOC_SEARCHTableAdapter.Delete(txtDOC_GUID.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Dokument-Suche gelöscht")
End If
End Sub
@@ -602,7 +620,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox2.Text = Environment.UserName
TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Dokument-Suche gespeichert")
End If
Catch ex As NoNullAllowedException
@@ -618,7 +636,26 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
Dim oForm As New frmControlCapture()
oForm.ShowDialog()
If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Feld-Zuordnung gespeichert")
End If
End Sub
Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
If MsgBox($"Wollen Sie die Feld-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
If CtrlApplicationAssignment1.Control_DeleteAssignment() = False Then
MsgBox("Error while deleting assignment of control!", MsgBoxStyle.Critical, Text)
End If
Status_Changed("Feld-Zuordnung gelöscht")
End Sub
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
End Sub
End Class