107 lines
3.5 KiB
VB.net
107 lines
3.5 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Diagnostics
|
|
Imports System.Threading
|
|
Imports System.Globalization
|
|
|
|
Public NotInheritable Class frmSplash
|
|
|
|
'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung"
|
|
' des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften").
|
|
Private ReadOnly InitSteps As Integer = 5
|
|
Private ReadOnly bw As New BackgroundWorker()
|
|
|
|
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
'Anwendungstitel
|
|
'If My.Application.Info.Title <> "" Then
|
|
' ApplicationTitle.Text = My.Application.Info.Title
|
|
'Else
|
|
' 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
|
|
' ApplicationTitle.Text = IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
|
'End If
|
|
|
|
Version.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
|
|
|
'Copyrightinformationen
|
|
Copyright.Text = My.Application.Info.Copyright & " " & My.Application.Info.CompanyName
|
|
Me.BringToFront()
|
|
|
|
Dim RunCount = 0
|
|
For Each p As Process In Process.GetProcesses
|
|
If p.ProcessName.Contains("asyFLOW") Then
|
|
RunCount += 1
|
|
End If
|
|
Next
|
|
|
|
InitProgram()
|
|
End Sub
|
|
|
|
Private Sub InitProgram()
|
|
bw.WorkerReportsProgress = True
|
|
AddHandler bw.DoWork, AddressOf bw_DoWork
|
|
AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
|
|
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
|
|
|
|
bw.RunWorkerAsync()
|
|
End Sub
|
|
|
|
Private Function CalcProgress(_step As Integer)
|
|
Return _step * (100 / InitSteps)
|
|
End Function
|
|
|
|
<STAThread()> _
|
|
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
|
|
Dim Init = New ClassInit(Me)
|
|
|
|
bw.ReportProgress(CalcProgress(1), "Initialize Logging")
|
|
Init.InitLogger()
|
|
|
|
Thread.Sleep(300)
|
|
|
|
bw.ReportProgress(CalcProgress(2), "Initialize Config")
|
|
Init.InitConfig()
|
|
|
|
Thread.Sleep(300)
|
|
|
|
bw.ReportProgress(CalcProgress(3), "Initialize Database")
|
|
If Init.InitDatabase() = True Then
|
|
Thread.Sleep(300)
|
|
bw.ReportProgress(CalcProgress(4), "Initialize UserConfiguration")
|
|
Init.InitUserLogin()
|
|
|
|
Thread.Sleep(300)
|
|
|
|
bw.ReportProgress(CalcProgress(5), "Initialize windream-Settings")
|
|
Init.InitBasics()
|
|
|
|
Thread.Sleep(300)
|
|
Else
|
|
Throw New Exception("Database could not be reached! Application will be closed now!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
|
|
pbStatus.Value = e.ProgressPercentage
|
|
lblStatus.Text = e.UserState.ToString()
|
|
End Sub
|
|
|
|
Private Sub bw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
|
|
' Bei Fehler MsgBox anzeigen und Programm beenden
|
|
If e.Error IsNot Nothing Then
|
|
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Error while Initializing application")
|
|
Application.ExitThread()
|
|
End If
|
|
|
|
' Wenn kein Fehler, Splashscreen schließen
|
|
Close()
|
|
End Sub
|
|
|
|
Public Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
End Class
|