32 lines
1.2 KiB
VB.net
32 lines
1.2 KiB
VB.net
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports System.Collections.Generic
|
|
Imports System.Web.UI
|
|
Imports DevExpress.ExpressApp.Templates
|
|
Imports DevExpress.ExpressApp.Web
|
|
Imports DevExpress.ExpressApp.Web.Templates
|
|
Imports DevExpress.ExpressApp.Web.Templates.ActionContainers
|
|
Imports SISBusiness.Module
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Partial Public Class [Default]
|
|
Inherits BaseXafPage
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
|
|
WebApplication.Instance.CreateControls(Me)
|
|
|
|
End Sub
|
|
Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu
|
|
Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports")
|
|
End Function
|
|
Protected Overrides Function GetDefaultContainer() As IActionContainer
|
|
Return TB.FindActionContainerById("View")
|
|
End Function
|
|
Public Overrides Sub SetStatus(ByVal statusMessages As System.Collections.Generic.ICollection(Of String))
|
|
InfoMessagesPanel.Text = String.Join("<br>", New List(Of String)(statusMessages).ToArray())
|
|
End Sub
|
|
Protected Overrides Sub OnViewChanged(ByVal view As DevExpress.ExpressApp.View)
|
|
ViewSiteControl = VSC
|
|
MyBase.OnViewChanged(view)
|
|
End Sub
|
|
End Class
|