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

simple placeholders for sql boxes

Browse Source
This commit is contained in:
Jonathan Jenne
2020-06-09 14:42:08 +02:00
parent e676d57730
commit f790d19bcd
3 changed files with 410 additions and 281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -55,8 +55,14 @@ Public Class frmAdministration
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
ComboBoxEdit3.Properties.Items.Clear()
ComboBoxEdit4.Properties.Items.Clear()
ComboBoxEdit5.Properties.Items.Clear()
ComboBoxEdit6.Properties.Items.Clear()
ComboBoxEdit3.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit4.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit5.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit6.Properties.Items.AddRange(GetPlaceholders())
_DragDrop = New ClassDragDrop()
_DragDrop.AddGridView(GridViewGroupInProfile)
@@ -812,4 +818,18 @@ Public Class frmAdministration
MemoEdit6.Text &= oItem.Value
End If
End Sub
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
If ComboBoxEdit5.SelectedIndex > -1 Then
Dim oItem As SQLPlaceholder = ComboBoxEdit5.SelectedItem
MemoEdit3.Text &= oItem.Value
End If
End Sub
Private Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click
If ComboBoxEdit6.SelectedIndex > -1 Then
Dim oItem As SQLPlaceholder = ComboBoxEdit6.SelectedItem
MemoEdit4.Text &= oItem.Value
End If
End Sub
End Class