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