70 lines
2.0 KiB
VB.net
70 lines
2.0 KiB
VB.net
Imports System.ComponentModel
|
|
Imports DevExpress.XtraSplashScreen
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Filesystem
|
|
Imports DigitalData.Modules.Database
|
|
|
|
Partial Public Class frmMain
|
|
Private WithEvents FlowForm As New frmFlowForm()
|
|
Private Logger As Logger = My.LogConfig.GetLogger
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
|
|
End Sub
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim oInit As New ClassInit(Me)
|
|
oInit.InitializeApplication()
|
|
End Sub
|
|
|
|
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
Hide()
|
|
FlowForm.Show()
|
|
End Sub
|
|
|
|
Private Sub FlowForm_ClipboardChanged(sender As Object, e As IDataObject) Handles FlowForm.ClipboardChanged
|
|
MsgBox("Clipboard Changed!")
|
|
End Sub
|
|
|
|
#Region "Notify Icon Menu"
|
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Application.Exit()
|
|
End Sub
|
|
|
|
Private Sub NotifyIconMain_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
|
|
ToggleVisibility()
|
|
End Sub
|
|
|
|
Private Sub AnzeigenVersteckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenVersteckenToolStripMenuItem.Click
|
|
ToggleVisibility()
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
Private Sub ToggleVisibility()
|
|
If Visible Then
|
|
Hide()
|
|
Else
|
|
Show()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ProgressChanged(sender As Object, Progress As ClassInitLoader.InitProgress)
|
|
SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetProgress, Progress.CurrentPercent)
|
|
SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetActionName, Progress.CurrentStep.Name)
|
|
End Sub
|
|
|
|
Private Sub InitCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
|
|
SplashScreenManager.CloseForm(False)
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|