55 lines
1.7 KiB
VB.net
55 lines
1.7 KiB
VB.net
Imports System
|
|
Imports System.Windows.Forms
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.XtraBars.Alerter
|
|
Imports DevExpress.ExpressApp.Utils
|
|
|
|
|
|
Public Class ShowAlertControlMainWindowController
|
|
Inherits WindowController
|
|
Private alertControlCore As AlertControl
|
|
Private alertTimerCore As Timer
|
|
Public Sub New()
|
|
TargetWindowType = WindowType.Main
|
|
End Sub
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
'InitAlertControlCore()
|
|
'InitAlertTimerCore()
|
|
End Sub
|
|
Protected Overridable Sub InitAlertControlCore()
|
|
alertControlCore = New AlertControl()
|
|
End Sub
|
|
Protected Overridable Sub InitAlertTimerCore()
|
|
alertTimerCore = New Timer()
|
|
AddHandler alertTimerCore.Tick, AddressOf alertTimerCore_Tick
|
|
alertTimerCore.Interval = 5000
|
|
alertTimerCore.Start()
|
|
End Sub
|
|
Private Sub alertTimerCore_Tick(ByVal sender As Object, ByVal e As EventArgs)
|
|
ShowAlertInfo()
|
|
End Sub
|
|
Protected Overrides Sub OnDeactivated()
|
|
If alertTimerCore IsNot Nothing Then
|
|
alertTimerCore.Stop()
|
|
End If
|
|
MyBase.OnDeactivated()
|
|
End Sub
|
|
Protected Overridable Sub ShowAlertInfo()
|
|
Dim mainForm As Form = CType(Application.MainWindow.Template, Form)
|
|
Dim info As New AlertInfo("Késésben vagy vaze !!!!", "", DateTime.Now.ToString(), ImageLoader.Instance.GetImageInfo("document_into").Image)
|
|
AlertControl.Show(mainForm, info)
|
|
End Sub
|
|
Public ReadOnly Property AlertControl() As AlertControl
|
|
Get
|
|
Return alertControlCore
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property AlertTimer() As Timer
|
|
Get
|
|
Return alertTimerCore
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|