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

MS

Browse Source
This commit is contained in:
SchreiberM 2022-04-07 10:06:22 +02:00
parent abff7fa745
commit d8d31689df
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb generated
View File

@ -187,8 +187,6 @@ Partial Class frmFlowSearch1
'
'DockPanel1
'
Me.DockPanel1.Appearance.BackColor = System.Drawing.Color.Lavender
Me.DockPanel1.Appearance.Options.UseBackColor = True
Me.DockPanel1.Appearance.Options.UseImage = True
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
@ -423,8 +421,12 @@ Partial Class frmFlowSearch1
Me.txtSearchInput.Location = New System.Drawing.Point(227, 189)
Me.txtSearchInput.MenuManager = Me.RibbonControl1
Me.txtSearchInput.Name = "txtSearchInput"
Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.Blue
Me.txtSearchInput.Properties.Appearance.Options.UseFont = True
Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True
Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
Me.txtSearchInput.Size = New System.Drawing.Size(697, 40)
Me.txtSearchInput.Size = New System.Drawing.Size(697, 46)
Me.txtSearchInput.TabIndex = 12
'
'frmFlowSearch1

14
GUIs.ZooFlow/Search/frmFlowSearch1.vb
View File

@ -222,6 +222,20 @@ Public Class frmFlowSearch1
oBASESEARCH = oBASESEARCH.Replace("@LANG_CODE", My.Application.User.Language)
End If
Next
Dim osql = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{My.Application.User.Language}',{My.Application.User.UserId}"
Dim oDTSuggest As DataTable
oDTSuggest = My.Database.GetDatatableIDB(osql)
Dim collection As AutoCompleteStringCollection = New AutoCompleteStringCollection
For Each orow As DataRow In oDTSuggest.Rows
collection.Add(orow.Item("TERM"))
Next
txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)