Files
SISBusiness/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.vb
T
2017-03-26 20:00:03 +02:00

33 lines
764 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 User_VC
Inherits DevExpress.ExpressApp.ViewController
Public Sub New()
MyBase.New()
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "User_ListView_Support" Then
' Beep()
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "User_ListView_Support" Then
' Beep()
End If
End Sub
End Class