AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve init

Browse Source
This commit is contained in:
Jonathan Jenne 2020-02-13 13:31:31 +01:00
parent c9e2411008
commit 4227890c0d
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_Clipboard_Searcher/frmSplash.vb
View File

@ -1,7 +1,7 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Threading Imports System.Threading
Public NotInheritable Class frmSplash Public NotInheritable Class frmSplash
Private InitSteps As Integer = 3 Private InitSteps As Integer = 4
Private Worker As New BackgroundWorker() Private Worker As New BackgroundWorker()
Private MainForm As Form Private MainForm As Form
@ -37,22 +37,24 @@ Public NotInheritable Class frmSplash
Dim Init = New ClassInit() Dim Init = New ClassInit()
Worker.ReportProgress(CalcProgress(1), "Initializing Logger") Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger() Init.InitLogger()
Thread.Sleep(500) Thread.Sleep(200)
Worker.ReportProgress(CalcProgress(2), "Initializing Database") Worker.ReportProgress(CalcProgress(2), "Initializing Base Config")
Init.InitBasics() Init.InitBasics()
Thread.Sleep(200)
Worker.ReportProgress(CalcProgress(3), "Initializing Database")
If Init.InitDatabase_New() = True Then If Init.InitDatabase_New() = True Then
Thread.Sleep(200)
Thread.Sleep(500) Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
Worker.ReportProgress(CalcProgress(3), "Initializing User-Configuration")
If ClassInit.InitUserLogin = False Then If ClassInit.InitUserLogin = False Then
If ERROR_INIT = "" Then If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER" ERROR_INIT = "INVALID USER"
End If End If
End If End If
Thread.Sleep(500) Thread.Sleep(200)
Else Else
ERROR_INIT = "DATABASE" ERROR_INIT = "DATABASE"