From 349351ba82b4b2fca5d072bbb23c46b0f27e3336 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 20 Dec 2023 09:22:52 +0100 Subject: [PATCH] Automatically set focus to profile select or first control --- Global_Indexer/frmIndex.vb | 7 +++++++ SetupVS19/Product.wxs | 1 - 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 641e7c9..031f35b 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -1738,6 +1738,7 @@ Public Class frmIndex _Logger.Info("Setting Last Saved DocType: {0}", CURRENT_LASTDOKART) ComboboxDoctype.EditValue = oFoundDocType + ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False) End If End If @@ -1762,12 +1763,18 @@ Public Class frmIndex If oFoundDocType IsNot Nothing Then _Logger.Debug("DocType found: [{0}]", oFoundDocType) ComboboxDoctype.EditValue = oFoundDocType + ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False) Exit For End If End If Next End If + + + If ComboboxDoctype.EditValue Is Nothing Then + ComboboxDoctype.Select() + End If Catch ex As Exception ShowErrorMessage(ex, "Form Shown") End Try diff --git a/SetupVS19/Product.wxs b/SetupVS19/Product.wxs index ffaf6bd..b3fd38b 100644 --- a/SetupVS19/Product.wxs +++ b/SetupVS19/Product.wxs @@ -112,7 +112,6 @@ -