From d8d31689dfe9531b2b08226ba5bfaedf411a541d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 7 Apr 2022 10:06:22 +0200 Subject: [PATCH] MS --- GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb | 8 +++++--- GUIs.ZooFlow/Search/frmFlowSearch1.vb | 14 ++++++++++++++ 2 files changed, 19 insertions(+), 3 deletions(-) diff --git a/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb b/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb index 08efb06f..37737867 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb @@ -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 diff --git a/GUIs.ZooFlow/Search/frmFlowSearch1.vb b/GUIs.ZooFlow/Search/frmFlowSearch1.vb index 735facaf..ea0412d4 100644 --- a/GUIs.ZooFlow/Search/frmFlowSearch1.vb +++ b/GUIs.ZooFlow/Search/frmFlowSearch1.vb @@ -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)