Files
2017-03-26 20:00:03 +02:00

34 lines
887 B
VB.net

Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Public Class RegistryTaskVC
Inherits SISBusiness.Module.RegistryTaskVC
Dim _WaitFormClass As New WaitFormClass
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
AddHandler Me.InitWork, AddressOf _WaitFormClass.Initwork
AddHandler Me.DoWork, AddressOf _WaitFormClass.DoWork
AddHandler Me.FinalWork, AddressOf _WaitFormClass.Finalwork
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
End Sub
End Class