WIP: first pass of depending controls

This commit is contained in:
Jonathan Jenne
2020-02-10 17:09:14 +01:00
parent ee404100a4
commit acf61c9ca5
12 changed files with 275 additions and 211 deletions

View File

@@ -284,31 +284,19 @@ 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()
Try
Me.Hide()
Me.TopMost = False
frmIndex.Show()
'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
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing