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

MS DDGroups

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Global_Indexer/frmHotkey_User.vb
View File

@@ -22,7 +22,7 @@
Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:"
End If
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Catch ex As Exception
MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -41,8 +41,8 @@
Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click
Try
If ListBox1.SelectedIndex <> -1 Then
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(CURRENT_USER_ID, ListBox1.SelectedValue)
LoadMyHotkeys(CURRENT_USER_ID)
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(USER_ID, ListBox1.SelectedValue)
LoadMyHotkeys(USER_ID)
End If
Catch ex As Exception
MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -68,7 +68,7 @@
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
If ListBoxMyHK.SelectedIndex <> -1 Then
Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue)
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear()
End If
End Sub
@@ -81,7 +81,7 @@
TBHOTKEY_USER_PROFILEBindingSource.EndEdit()
TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE)
Me.lblSave.Visible = True
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Else
Me.lblSave.Visible = False
End If