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

MS Renaming

Browse Source
This commit is contained in:
Developer01
2024-09-05 17:09:00 +02:00
parent ca01ff32ac
commit 550a9cd3ea
35 changed files with 10253 additions and 10061 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
app/DD_Clipboard_Searcher/frmSplash.vb
View File

@@ -36,40 +36,42 @@ Public NotInheritable Class frmSplash
End Function
Private Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
Try
Dim Init = New ClassInit()
Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger()
Dim oProgress As String
'Try
Dim Init = New ClassInit()
oProgress = "Initializing Logger"
Worker.ReportProgress(CalcProgress(1), oProgress)
Init.InitLogger()
Thread.Sleep(200)
oProgress = "Initializing Base Config"
Worker.ReportProgress(CalcProgress(2), oProgress)
Init.InitBasics()
Thread.Sleep(200)
oProgress = "Initializing Database"
Worker.ReportProgress(CalcProgress(3), oProgress)
If Init.InitDatabase_New() = True Then
Thread.Sleep(200)
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)
Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If My.Settings.GHOSTUSER <> String.Empty Then
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
LogConfig.Debug = True
oProgress = "Initializing User-Configuration"
Worker.ReportProgress(CalcProgress(4), oProgress)
If My.Settings.GHOSTUSER <> String.Empty Then
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
LogConfig.Debug = True
End If
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER"
End If
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER"
End If
End If
Thread.Sleep(200)
Else
ERROR_INIT = "DATABASE"
End If
Catch ex As Exception
MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Thread.Sleep(200)
Else
ERROR_INIT = "DATABASE"
End If
' Catch ex As Exception
' ' MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
End Function
Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)