From 871fd3beb11e13086e091e29fe94894e49ef02b8 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 12 Sep 2019 11:13:05 +0200 Subject: [PATCH] MS Bugfixing --- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../frmFormDesigner.Designer.vb | 72 ++-- app/DD_PM_WINDREAM/frmMain.vb | 2 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 15 +- app/DD_PM_WINDREAM/frmValidator.resx | 365 +++++++----------- app/DD_PM_WINDREAM/frmValidator.vb | 12 + 6 files changed, 210 insertions(+), 258 deletions(-) diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 3b5f580..ea1afcc 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 5c91df6..d6b8657 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -62,6 +62,7 @@ Partial Class frmFormDesigner Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.GroupBox1.SuspendLayout() Me.pnldesigner.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() @@ -74,6 +75,10 @@ Partial Class frmFormDesigner CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.GridControlContextMenu.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() Me.SuspendLayout() ' 'GroupBox1 @@ -88,9 +93,9 @@ Partial Class frmFormDesigner Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btnlabel) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(507, 12) + Me.GroupBox1.Location = New System.Drawing.Point(7, 9) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(476, 129) + Me.GroupBox1.Size = New System.Drawing.Size(532, 129) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" @@ -102,7 +107,7 @@ Partial Class frmFormDesigner Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnLine.Location = New System.Drawing.Point(290, 90) Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(133, 27) + Me.btnLine.Size = New System.Drawing.Size(112, 27) Me.btnLine.TabIndex = 7 Me.btnLine.Text = "Linie" Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -189,15 +194,15 @@ Partial Class frmFormDesigner 'pnldesigner ' Me.pnldesigner.AllowDrop = True - Me.pnldesigner.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.pnldesigner.AutoScroll = True Me.pnldesigner.BackColor = System.Drawing.Color.Transparent Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnldesigner.Controls.Add(Me.Label1) Me.pnldesigner.Controls.Add(Me.lblhintergrund) - Me.pnldesigner.Location = New System.Drawing.Point(15, 12) + Me.pnldesigner.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnldesigner.Location = New System.Drawing.Point(0, 0) Me.pnldesigner.Name = "pnldesigner" - Me.pnldesigner.Size = New System.Drawing.Size(481, 525) + Me.pnldesigner.Size = New System.Drawing.Size(601, 734) Me.pnldesigner.TabIndex = 3 ' 'Label1 @@ -229,10 +234,10 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(507, 147) + Me.TabControlEigenschaften.Location = New System.Drawing.Point(3, 144) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(476, 361) + Me.TabControlEigenschaften.Size = New System.Drawing.Size(540, 549) Me.TabControlEigenschaften.TabIndex = 22 ' 'pageProperties @@ -241,7 +246,7 @@ Partial Class frmFormDesigner Me.pageProperties.Location = New System.Drawing.Point(4, 25) Me.pageProperties.Name = "pageProperties" Me.pageProperties.Padding = New System.Windows.Forms.Padding(3) - Me.pageProperties.Size = New System.Drawing.Size(468, 332) + Me.pageProperties.Size = New System.Drawing.Size(532, 520) Me.pageProperties.TabIndex = 3 Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.UseVisualStyleBackColor = True @@ -252,7 +257,7 @@ Partial Class frmFormDesigner Me.pgControls.HelpVisible = False Me.pgControls.Location = New System.Drawing.Point(3, 3) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(462, 326) + Me.pgControls.Size = New System.Drawing.Size(526, 514) Me.pgControls.TabIndex = 0 ' 'pageFormat @@ -362,9 +367,9 @@ Partial Class frmFormDesigner Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btndelete.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndelete.Location = New System.Drawing.Point(507, 514) + Me.btndelete.Location = New System.Drawing.Point(7, 708) Me.btndelete.Name = "btndelete" - Me.btndelete.Size = New System.Drawing.Size(178, 23) + Me.btndelete.Size = New System.Drawing.Size(124, 23) Me.btndelete.TabIndex = 1 Me.btndelete.Text = "Control löschen" Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -373,9 +378,9 @@ Partial Class frmFormDesigner 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 556) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 734) Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(995, 22) + Me.StatusStrip1.Size = New System.Drawing.Size(1155, 22) Me.StatusStrip1.TabIndex = 20 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -391,9 +396,9 @@ Partial Class frmFormDesigner Me.btnrefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnrefresh.Location = New System.Drawing.Point(828, 514) + Me.btnrefresh.Location = New System.Drawing.Point(429, 708) Me.btnrefresh.Name = "btnrefresh" - Me.btnrefresh.Size = New System.Drawing.Size(155, 23) + Me.btnrefresh.Size = New System.Drawing.Size(110, 23) Me.btnrefresh.TabIndex = 24 Me.btnrefresh.Text = "Refresh" Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -452,17 +457,33 @@ Partial Class frmFormDesigner Me.MenuItemAddColumn.Size = New System.Drawing.Size(169, 22) Me.MenuItemAddColumn.Text = "Spalte hinzufügen" ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.pnldesigner) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.TabControlEigenschaften) + Me.SplitContainer1.Panel2.Controls.Add(Me.btnrefresh) + Me.SplitContainer1.Panel2.Controls.Add(Me.btndelete) + Me.SplitContainer1.Size = New System.Drawing.Size(1155, 734) + Me.SplitContainer1.SplitterDistance = 601 + Me.SplitContainer1.TabIndex = 25 + ' 'frmFormDesigner ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(995, 578) - Me.Controls.Add(Me.btnrefresh) + Me.ClientSize = New System.Drawing.Size(1155, 756) + Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.StatusStrip1) - Me.Controls.Add(Me.btndelete) - Me.Controls.Add(Me.TabControlEigenschaften) - Me.Controls.Add(Me.GroupBox1) - Me.Controls.Add(Me.pnldesigner) Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) @@ -485,6 +506,10 @@ Partial Class frmFormDesigner CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.GridControlContextMenu.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -527,4 +552,5 @@ Partial Class frmFormDesigner Friend WithEvents btnLine As Button Friend WithEvents GridControlContextMenu As ContextMenuStrip Friend WithEvents MenuItemAddColumn As ToolStripMenuItem + Friend WithEvents SplitContainer1 As SplitContainer End Class diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 2ecfc96..0cf5380 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -830,7 +830,7 @@ Public Class frmMain Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) If DT_CHECKUSER_MODULE.Rows.Count = 1 Then - USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") + USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") + 1 If USER_LANGUAGE = "de-DE" Then tslblUserLoggedin.Text = "User eingeloggt: " & USERCOUNT_LOGGED_IN Else diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 3b566bc..3d4e343 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -126,10 +126,10 @@ Partial Class frmValidator Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripButtonSearchesReload = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonJumpFile = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButtonSearchesReload = New System.Windows.Forms.ToolStripButton() Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() @@ -221,6 +221,7 @@ Partial Class frmValidator resources.ApplyResources(Me.btnSave, "btnSave") Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink Me.btnSave.Name = "btnSave" + Me.btnSave.TabStop = False Me.btnSave.UseVisualStyleBackColor = True ' 'DESCRIPTIONLabel @@ -791,6 +792,12 @@ Partial Class frmValidator Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem" resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem") ' + 'ToolStripButtonSearchesReload + ' + Me.ToolStripButtonSearchesReload.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD + resources.ApplyResources(Me.ToolStripButtonSearchesReload, "ToolStripButtonSearchesReload") + Me.ToolStripButtonSearchesReload.Name = "ToolStripButtonSearchesReload" + ' 'ToolStripButtonJumpFile ' Me.ToolStripButtonJumpFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Nextrequest_10302 @@ -809,12 +816,6 @@ Partial Class frmValidator resources.ApplyResources(Me.ToolStripButtonAnnotation, "ToolStripButtonAnnotation") Me.ToolStripButtonAnnotation.Name = "ToolStripButtonAnnotation" ' - 'ToolStripButtonSearchesReload - ' - Me.ToolStripButtonSearchesReload.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD - resources.ApplyResources(Me.ToolStripButtonSearchesReload, "ToolStripButtonSearchesReload") - Me.ToolStripButtonSearchesReload.Name = "ToolStripButtonSearchesReload" - ' 'FinalIndexDataSet ' Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet" diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index a24bd84..6f1dcb5 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -130,35 +130,6 @@ 608, 17 - - 0, 621 - - - - 1, 0, 16, 0 - - - 962, 22 - - - - 4 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - Segoe UI, 9pt, style=Bold @@ -168,6 +139,7 @@ sss + False @@ -183,81 +155,34 @@ Document-ID: - - TITLELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 + + 0, 621 - - btnSave + + + 1, 0, 16, 0 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 962, 22 - - Panel1 + + 4 - - 1 + + StatusStrip1 - - DESCRIPTIONLabel + + StatusStrip1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Panel1 + + $this - + 2 - - pnldesigner - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 3 - - - Fill - - - 0, 0 - - - 3, 4, 3, 4 - - - 477, 593 - - - 24 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 - - - 0 - Top, Left, Right @@ -387,6 +312,33 @@ 3 + + Fill + + + 0, 0 + + + 3, 4, 3, 4 + + + 477, 593 + + + 24 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel1 + + + 0 + 725, 17 @@ -549,6 +501,24 @@ Segoe UI, 9.75pt + + 156, 22 + + + Datei öffnen + + + 156, 22 + + + Info + + + 156, 22 + + + Eigenschaften + Magenta @@ -636,9 +606,21 @@ 0 - - 1228, 134 - + + Fill + + + 3, 21 + + + 20, 20 + + + 194, 54 + + + 2 + WebBrowser @@ -651,6 +633,27 @@ 0 + + 1228, 134 + + + 120, 17 + + + ToolStripStatusLabel1 + + + 3, 75 + + + 194, 22 + + + 0 + + + StatusStrip3 + StatusStrip3 @@ -687,6 +690,21 @@ 0 + + Fill + + + Segoe UI, 9.75pt, style=Italic + + + 3, 21 + + + 194, 25 + + + 0 + txtBetreff @@ -1423,6 +1441,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ToolStripButtonSearchesReload + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ToolStripButtonJumpFile @@ -1441,12 +1465,6 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ToolStripButtonSearchesReload - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - FinalIndexDataSet @@ -1495,6 +1513,24 @@ 690, 134 + + Segoe UI Semibold, 9pt, style=Bold, Italic + + + 139, 16 + + + ToolStripStatusLabel1 + + + Magenta + + + 153, 20 + + + Seitenansicht Minimal + 0, 340 @@ -1564,135 +1600,12 @@ 1 - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 139, 16 - - - ToolStripStatusLabel1 - - - Magenta - - - 153, 20 - - - Seitenansicht Minimal - 807, 134 1080, 134 - - Fill - - - 3, 21 - - - 20, 20 - - - 194, 54 - - - 2 - - - WebBrowser - - - System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxMailBody - - - 0 - - - 1228, 134 - - - 3, 75 - - - 194, 22 - - - 0 - - - StatusStrip3 - - - StatusStrip3 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxMailBody - - - 1 - - - 120, 17 - - - ToolStripStatusLabel1 - - - Fill - - - Segoe UI, 9.75pt, style=Italic - - - 3, 21 - - - 194, 25 - - - 0 - - - txtBetreff - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpBetreff - - - 0 - - - 156, 22 - - - Datei öffnen - - - 156, 22 - - - Info - - - 156, 22 - - - Eigenschaften - 124, 173 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 1c32eb8..de65039 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -60,6 +60,8 @@ Public Class frmValidator Private DTCONTROLS As DataTable Private FormLoaded As Boolean = False + Private ControlHandleStarted As Boolean = False + Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As Boolean End Function @@ -876,6 +878,10 @@ Public Class frmValidator box.BackColor = Color.White End Sub Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs) + If ControlHandleStarted = True Then + ControlHandleStarted = False + Exit Sub + End If Dim box As TextBox = sender If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then @@ -942,6 +948,7 @@ Public Class frmValidator ' Abschluss() Else SendKeys.Send("{TAB}") + ControlHandleStarted = True End If End If End If @@ -1057,6 +1064,7 @@ Public Class frmValidator _dependingControl_in_action = False End Try SendKeys.Send("{TAB}") + ControlHandleStarted = True End If End If End If @@ -1134,12 +1142,15 @@ Public Class frmValidator End Try Next End If + Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message) End Try SendKeys.Send("{TAB}") + ControlHandleStarted = True + End If End If End Sub @@ -1194,6 +1205,7 @@ Public Class frmValidator ' Abschluss() Else SendKeys.Send("{TAB}") + ControlHandleStarted = True End If End If End Sub