MS

Global_Indexer/frmStart.vb

@@ -272,7 +272,7 @@ Public Class frmStart
                 CURRENT_WORKFILE_GUID = Filerow.Item(0)
                 CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
                 If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
-                If File.Exists(CURRENT_WORKFILE) = True Then
+                If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
                     Open_IndexDialog()
                 End If
 
@@ -284,13 +284,31 @@ Public Class frmStart
         End Try
         Me.TopMost = True
     End Sub
+    Sub MyBackgroundThread()
 
+
+        Dim frmCollection = System.Windows.Forms.Application.OpenForms
+        Do While frmCollection.OfType(Of frmIndex).Any
+
+        Loop
+    End Sub
     Sub Open_IndexDialog()
-        Me.Hide()
-        frmIndex.ShowDialog()
-        Me.Visible = True
-        Me.TopMost = True
-        Me.BringToFront()
+        Try
+            Me.Hide()
+            Me.TopMost = False
+            frmIndex.ShowDialog()
+            'Dim thread As New Thread(AddressOf MyBackgroundThread)
+            'thread.Start()
+            'Do While thread.IsAlive
+
+            'Loop
+            Me.Visible = True
+            Me.TopMost = True
+            Me.BringToFront()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+
     End Sub
 
     Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing