Partial Class BusinessDirectory_VC _ Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub 'Component overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.aBusinessDirectory_OppenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aBusinessDirectory_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aBusinessDirectory_OpenDashboardWithDesigner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aBusinessDirectory_SetRoleDisabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) Me.aBusinessDirectory_SetRoleEnabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) Me.aBusinessDirectory_Clone = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aBusinessDirectory_NewDashboard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) ' 'aBusinessDirectory_OppenDocument ' Me.aBusinessDirectory_OppenDocument.Caption = "aBusinessDirectory_OppenDocument" Me.aBusinessDirectory_OppenDocument.Category = "OpenObject" Me.aBusinessDirectory_OppenDocument.ConfirmationMessage = Nothing Me.aBusinessDirectory_OppenDocument.Id = "aBusinessDirectory_OppenDocument" Me.aBusinessDirectory_OppenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject Me.aBusinessDirectory_OppenDocument.TargetObjectsCriteria = "IsFolder=False" Me.aBusinessDirectory_OppenDocument.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_OppenDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aBusinessDirectory_OppenDocument.ToolTip = Nothing Me.aBusinessDirectory_OppenDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'aBusinessDirectory_OpenDashboardWithViewer ' Me.aBusinessDirectory_OpenDashboardWithViewer.Caption = "aBusinessDirectory_OpenDashboardWithViewer" Me.aBusinessDirectory_OpenDashboardWithViewer.ConfirmationMessage = Nothing Me.aBusinessDirectory_OpenDashboardWithViewer.Id = "aBusinessDirectory_OpenDashboardWithViewer" Me.aBusinessDirectory_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject Me.aBusinessDirectory_OpenDashboardWithViewer.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_OpenDashboardWithViewer.ToolTip = Nothing ' 'aBusinessDirectory_OpenDashboardWithDesigner ' Me.aBusinessDirectory_OpenDashboardWithDesigner.Caption = "aBusinessDirectory_OpenDashboardWithDesigner" Me.aBusinessDirectory_OpenDashboardWithDesigner.ConfirmationMessage = Nothing Me.aBusinessDirectory_OpenDashboardWithDesigner.Id = "aBusinessDirectory_OpenDashboardWithDesigner" Me.aBusinessDirectory_OpenDashboardWithDesigner.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject Me.aBusinessDirectory_OpenDashboardWithDesigner.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_OpenDashboardWithDesigner.ToolTip = Nothing ' 'aBusinessDirectory_SetRoleDisabled ' Me.aBusinessDirectory_SetRoleDisabled.AcceptButtonCaption = Nothing Me.aBusinessDirectory_SetRoleDisabled.CancelButtonCaption = Nothing Me.aBusinessDirectory_SetRoleDisabled.Caption = "aBusinessDirectory_SetRoleDisabled" Me.aBusinessDirectory_SetRoleDisabled.ConfirmationMessage = Nothing Me.aBusinessDirectory_SetRoleDisabled.Id = "aBusinessDirectory_SetRoleDisabled" Me.aBusinessDirectory_SetRoleDisabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aBusinessDirectory_SetRoleDisabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_SetRoleDisabled.ToolTip = Nothing ' 'aBusinessDirectory_SetRoleEnabled ' Me.aBusinessDirectory_SetRoleEnabled.AcceptButtonCaption = Nothing Me.aBusinessDirectory_SetRoleEnabled.CancelButtonCaption = Nothing Me.aBusinessDirectory_SetRoleEnabled.Caption = "aBusinessDirectory_SetRoleEnabled" Me.aBusinessDirectory_SetRoleEnabled.ConfirmationMessage = Nothing Me.aBusinessDirectory_SetRoleEnabled.Id = "aBusinessDirectory_SetRoleEnabled" Me.aBusinessDirectory_SetRoleEnabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aBusinessDirectory_SetRoleEnabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_SetRoleEnabled.ToolTip = Nothing ' 'aBusinessDirectory_Clone ' Me.aBusinessDirectory_Clone.Caption = "aBusinessDirectory_Clone" Me.aBusinessDirectory_Clone.ConfirmationMessage = Nothing Me.aBusinessDirectory_Clone.Id = "aBusinessDirectory_Clone" Me.aBusinessDirectory_Clone.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aBusinessDirectory_Clone.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_Clone.TargetViewId = "BusinessDirectory_ListView" Me.aBusinessDirectory_Clone.ToolTip = Nothing ' 'aBusinessDirectory_NewDashboard ' Me.aBusinessDirectory_NewDashboard.Caption = "aBusinessDirectory_NewDashboard" Me.aBusinessDirectory_NewDashboard.Category = "ObjectsCreation" Me.aBusinessDirectory_NewDashboard.ConfirmationMessage = Nothing Me.aBusinessDirectory_NewDashboard.Id = "aBusinessDirectory_NewDashboard" Me.aBusinessDirectory_NewDashboard.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) Me.aBusinessDirectory_NewDashboard.ToolTip = Nothing ' 'BusinessDirectory_VC ' Me.Actions.Add(Me.aBusinessDirectory_OppenDocument) Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithViewer) Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithDesigner) Me.Actions.Add(Me.aBusinessDirectory_SetRoleDisabled) Me.Actions.Add(Me.aBusinessDirectory_SetRoleEnabled) Me.Actions.Add(Me.aBusinessDirectory_Clone) Me.Actions.Add(Me.aBusinessDirectory_NewDashboard) End Sub Public WithEvents aBusinessDirectory_SetRoleDisabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction Public WithEvents aBusinessDirectory_SetRoleEnabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction Public WithEvents aBusinessDirectory_OppenDocument As DevExpress.ExpressApp.Actions.SimpleAction Public WithEvents aBusinessDirectory_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction Public WithEvents aBusinessDirectory_OpenDashboardWithDesigner As DevExpress.ExpressApp.Actions.SimpleAction Public WithEvents aBusinessDirectory_Clone As DevExpress.ExpressApp.Actions.SimpleAction Public WithEvents aBusinessDirectory_NewDashboard As DevExpress.ExpressApp.Actions.SimpleAction End Class