Snd

Aviso/frmHauptfenster.vb

@@ -166,6 +166,7 @@ Public Class frmHauptfenster
 
         VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
 
+
         EnableDoubleBuffered(gridAviso)
         EnableDoubleBuffered(gridMyAviso)
         'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -2842,6 +2843,9 @@ Public Class frmHauptfenster
 
 
         tbcntrAviso.Width = Panel1.Width
+
+        TabControl1.Location = New Point(tbcntrAviso.Location.X + getTbControlWidth(tbcntrAviso) + 80, TabControl1.Location.Y)
+        TabControl1.SelectedIndex = -1
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
 
         BürgschaftenExcelToolStripMenuItem.Visible = False
@@ -2859,8 +2863,20 @@ Public Class frmHauptfenster
             End If
         End If
 
+
     End Sub
 
+    Private Function getTbControlWidth(tbcntr) As Integer
+        Dim totalWidth As Integer = 0
+
+        ' Durchlaufe alle TabPages und summiere die Breite der Tabs
+        For i As Integer = 0 To tbcntr.TabCount - 1
+            totalWidth += tbcntr.GetTabRect(i).Width
+        Next
+
+        Return totalWidth
+    End Function
+
     WithEvents timerStart As New Timer
 
     Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick