Nachrichten verbessert, Bugs beseitigt, ...

Dokumentation/Main.vb

@@ -23,7 +23,7 @@ Public Class Main
     Public Startparameter As String = ""
 
     Public sAppPath As String = Application.StartupPath
-    Public Updatequelle As String = "\\192.168.0.91\f\Programme\Doku\"
+    Public Updatequelle As String = "\\share01.verag.ost.dmn\Programme\Doku\"
 
     Private Version As String = My.Resources.Version
 
@@ -38,9 +38,6 @@ Public Class Main
         LblUhrzeit.Text = "Willkommen " & Class1.LoggedOnUser.Name
         Class1.EnableDoubleBuffered(DgVMain)
 
-
-
-
         Me.KeyPreview = True
         'MsgBox(sAppPath)
 
@@ -537,9 +534,12 @@ Public Class Main
 
 
             If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
-                DgVMain.ClearSelection()
-                DgVMain.Rows(SelectedDGVIndex).Selected = True
-                DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
+                Try
+                    DgVMain.ClearSelection()
+                    DgVMain.Rows(SelectedDGVIndex).Selected = True
+                    DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
+                Catch
+                End Try
             Else
                 DgVMain.Rows(0).Selected = True
             End If
@@ -784,6 +784,7 @@ Public Class Main
             If cBerechtigungen.BenutzerBerechtigungfuerStandort(Class1.LoggedOnUser.BenutzeranmeldeName, LstStandort.SelectedItem) = "R" Then
                 frm.Panel1.Enabled = False : frm.PanFirewall.Enabled = False
             End If
+            frm.StartPosition = FormStartPosition.CenterScreen
             AddHandler frm.FormClosing, Function()
                                             Me.BringToFront()
                                             dgvload_filter(Suchbegriff)
@@ -808,13 +809,22 @@ Public Class Main
                                             Me.BringToFront()
                                             dgvload(Tabelle)
                                             LstAllgemein.SelectedItem = Eintrag.rubrik
-                                            DgVMain.Rows(SelectedDGVIndex).Selected = True
+                                            DgVMain.Rows(returncleandgvindex(SelectedDGVIndex)).Selected = True
                                         End Function
             frm.Show()
 
         End If
     End Sub
 
+    Function returncleandgvindex(dgvindex As Integer)
+        Try
+            DgVMain.Rows(dgvindex).Selected = True
+            Return dgvindex
+        Catch ex As Exception
+            Return 0
+        End Try
+    End Function
+
     Public Function StartHostBearbeiten()
         HostBearbeiten.StartPosition = FormStartPosition.Manual
         HostBearbeiten.Location = New Point(Location.X + 150, Location.Y + 150)
@@ -1216,6 +1226,7 @@ Public Class Main
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
         panTSSitzungen.Controls.Clear()
         Dim dingsi As New uscntr_TSSitzungen
+        '  Threading.Thread.Sleep(2000)
         panTSSitzungen.Controls.Add(dingsi)
 
 
@@ -1275,6 +1286,7 @@ Public Class Main
         End If
     End Sub
 
+
     Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
         If Tabelle = "TbL_Netzwerkclients" Then
             Dim ds As New DataSet