66 lines
2.4 KiB
VB.net
66 lines
2.4 KiB
VB.net
Partial Class TreeListVC
|
|
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Me.aTreeCollapseAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
|
Me.aTreeExpandAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
|
'
|
|
'aTreeCollapseAll
|
|
'
|
|
Me.aTreeCollapseAll.Caption = "Collapse all"
|
|
Me.aTreeCollapseAll.Category = "View"
|
|
Me.aTreeCollapseAll.ConfirmationMessage = Nothing
|
|
Me.aTreeCollapseAll.Id = "aTreeCollapseAll"
|
|
Me.aTreeCollapseAll.ImageName = "arrow_up_blue"
|
|
Me.aTreeCollapseAll.Shortcut = Nothing
|
|
Me.aTreeCollapseAll.Tag = Nothing
|
|
Me.aTreeCollapseAll.TargetObjectsCriteria = Nothing
|
|
Me.aTreeCollapseAll.TargetViewId = Nothing
|
|
Me.aTreeCollapseAll.ToolTip = Nothing
|
|
Me.aTreeCollapseAll.TypeOfView = Nothing
|
|
'
|
|
'aTreeExpandAll
|
|
'
|
|
Me.aTreeExpandAll.Caption = "Expand all"
|
|
Me.aTreeExpandAll.Category = "View"
|
|
Me.aTreeExpandAll.ConfirmationMessage = Nothing
|
|
Me.aTreeExpandAll.Id = "aTreeExpandAll"
|
|
Me.aTreeExpandAll.ImageName = "arrow_down_blue"
|
|
Me.aTreeExpandAll.Shortcut = Nothing
|
|
Me.aTreeExpandAll.Tag = Nothing
|
|
Me.aTreeExpandAll.TargetObjectsCriteria = Nothing
|
|
Me.aTreeExpandAll.TargetViewId = Nothing
|
|
Me.aTreeExpandAll.ToolTip = Nothing
|
|
Me.aTreeExpandAll.TypeOfView = Nothing
|
|
|
|
End Sub
|
|
Friend WithEvents aTreeCollapseAll As DevExpress.ExpressApp.Actions.SimpleAction
|
|
Friend WithEvents aTreeExpandAll As DevExpress.ExpressApp.Actions.SimpleAction
|
|
|
|
End Class
|