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

MS_26012015

Browse Source
This commit is contained in:
SchreiberM
2016-01-26 13:36:01 +01:00
parent 4410df2487
commit d9162463b4
82 changed files with 34884 additions and 6568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmSplash.vb
View File

@@ -59,26 +59,26 @@ Public NotInheritable Class frmSplash
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initialisiere Logger")
bw.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger()
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(2), "Initialisiere Datenbank")
bw.ReportProgress(CalcProgress(2), "Initializing Database")
If Init.InitDatabase() = True Then
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(3), "Initialisiere Windream-Einstellungen")
bw.ReportProgress(CalcProgress(3), "Initializing Windream-Configuration")
Init.InitWindream()
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(4), "Initialisiere Benutzer")
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
Init.InitUserLogin()
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(5), "Initialisiere Oberfläche")
bw.ReportProgress(CalcProgress(5), "Initializing Frontend")
Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(500)
@@ -97,7 +97,7 @@ Public NotInheritable Class frmSplash
Private Sub bw_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs)
' Bei Fehler MsgBox anzeigen und Programm beenden
If e.Error IsNot Nothing Then
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Fehler beim Initialisieren")
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Unexpected Error in frmSplash")
Application.Exit()
End If