home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Shareware / Programare / netxp / netxp.exe / Samples / VB / Docking / Form1.vb < prev   
Encoding:
Text File  |  2004-04-09  |  12.3 KB  |  243 lines
  1. Imports System
  2. Imports System.Drawing
  3. Imports System.Collections
  4. Imports System.ComponentModel
  5. Imports System.Windows.Forms
  6. Imports System.Data
  7. Imports NETXP.Controls.Docking
  8.  
  9. Namespace Docking
  10.     Public Class Form1
  11.         Inherits System.Windows.Forms.Form
  12.         Private dockingManagerExtender1 As NETXP.Controls.Docking.DockingManagerExtender
  13.         Private panelSettings As System.Windows.Forms.Panel
  14.         Private propertyGrid1 As System.Windows.Forms.PropertyGrid
  15.         Private label1 As System.Windows.Forms.Label
  16.         Private imageList1 As System.Windows.Forms.ImageList
  17.         Private panel1 As System.Windows.Forms.Panel
  18.         Private tabbedGroups1 As NETXP.Controls.Docking.TabbedGroups
  19.         Private treeView2 As System.Windows.Forms.TreeView
  20.         Private WithEvents radioButton1 As System.Windows.Forms.RadioButton
  21.         Private WithEvents radioButton2 As System.Windows.Forms.RadioButton
  22.         Private WithEvents radioButton3 As System.Windows.Forms.RadioButton
  23.         Private components As System.ComponentModel.IContainer
  24.  
  25.         Public Sub New()
  26.             '
  27.             ' Required for Windows Form Designer support
  28.             '
  29.             InitializeComponent()
  30.         End Sub
  31.  
  32.         Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  33.             If disposing Then
  34.                 If Not components Is Nothing Then
  35.                     components.Dispose()
  36.                 End If
  37.             End If
  38.             MyBase.Dispose(disposing)
  39.         End Sub
  40.  
  41. #Region "Windows Form Designer generated code"
  42.         Private Sub InitializeComponent()
  43.             Me.components = New System.ComponentModel.Container
  44.             Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  45.             Me.dockingManagerExtender1 = New NETXP.Controls.Docking.DockingManagerExtender(Me.components)
  46.             Me.panel1 = New System.Windows.Forms.Panel
  47.             Me.tabbedGroups1 = New NETXP.Controls.Docking.TabbedGroups
  48.             Me.label1 = New System.Windows.Forms.Label
  49.             Me.panelSettings = New System.Windows.Forms.Panel
  50.             Me.radioButton3 = New System.Windows.Forms.RadioButton
  51.             Me.radioButton2 = New System.Windows.Forms.RadioButton
  52.             Me.radioButton1 = New System.Windows.Forms.RadioButton
  53.             Me.propertyGrid1 = New System.Windows.Forms.PropertyGrid
  54.             Me.treeView2 = New System.Windows.Forms.TreeView
  55.             Me.imageList1 = New System.Windows.Forms.ImageList(Me.components)
  56.             Me.panel1.SuspendLayout()
  57.             CType(Me.tabbedGroups1, System.ComponentModel.ISupportInitialize).BeginInit()
  58.             Me.panelSettings.SuspendLayout()
  59.             Me.SuspendLayout()
  60.             '
  61.             'dockingManagerExtender1
  62.             '
  63.             Me.dockingManagerExtender1.ContainerControl = Me
  64.             Me.dockingManagerExtender1.InnerControl = Me.panel1
  65.             Me.dockingManagerExtender1.OuterControl = Me.label1
  66.             '
  67.             'panel1
  68.             '
  69.             Me.panel1.Controls.Add(Me.tabbedGroups1)
  70.             Me.panel1.Dock = System.Windows.Forms.DockStyle.Fill
  71.             Me.dockingManagerExtender1.SetFullTitle(Me.panel1, "panel1")
  72.             Me.panel1.Location = New System.Drawing.Point(144, 0)
  73.             Me.panel1.Name = "panel1"
  74.             Me.panel1.Size = New System.Drawing.Size(280, 390)
  75.             Me.panel1.TabIndex = 8
  76.             Me.dockingManagerExtender1.SetTitle(Me.panel1, "panel1")
  77.             '
  78.             'tabbedGroups1
  79.             '
  80.             Me.tabbedGroups1.ActiveNode = Nothing
  81.             Me.tabbedGroups1.AllowDrop = True
  82.             Me.tabbedGroups1.AtLeastOneNode = False
  83.             Me.tabbedGroups1.CloseShortcut = System.Windows.Forms.Shortcut.CtrlShiftC
  84.             Me.tabbedGroups1.Dirty = True
  85.             Me.tabbedGroups1.Dock = System.Windows.Forms.DockStyle.Fill
  86.             Me.tabbedGroups1.Location = New System.Drawing.Point(0, 0)
  87.             Me.tabbedGroups1.MoveNextShortcut = System.Windows.Forms.Shortcut.CtrlShiftN
  88.             Me.tabbedGroups1.MovePreviousShortcut = System.Windows.Forms.Shortcut.CtrlShiftP
  89.             Me.tabbedGroups1.Name = "tabbedGroups1"
  90.             Me.tabbedGroups1.ProportionalResizeShortcut = System.Windows.Forms.Shortcut.CtrlShiftR
  91.             Me.tabbedGroups1.SelectedNode = Nothing
  92.             Me.tabbedGroups1.SelectedShortcut = System.Windows.Forms.Shortcut.CtrlShiftT
  93.             Me.tabbedGroups1.Size = New System.Drawing.Size(280, 390)
  94.             Me.tabbedGroups1.SplitHorizontalShortcut = System.Windows.Forms.Shortcut.CtrlShiftH
  95.             Me.tabbedGroups1.SplitVerticalShortcut = System.Windows.Forms.Shortcut.CtrlShiftV
  96.             Me.tabbedGroups1.TabIndex = 0
  97.             '
  98.             'label1
  99.             '
  100.             Me.label1.Dock = System.Windows.Forms.DockStyle.Bottom
  101.             Me.label1.Location = New System.Drawing.Point(0, 390)
  102.             Me.label1.Name = "label1"
  103.             Me.label1.Size = New System.Drawing.Size(592, 0)
  104.             Me.label1.TabIndex = 7
  105.             Me.label1.Text = "label1"
  106.             '
  107.             'panelSettings
  108.             '
  109.             Me.dockingManagerExtender1.SetAllowDocking(Me.panelSettings, True)
  110.             Me.panelSettings.Controls.Add(Me.radioButton3)
  111.             Me.panelSettings.Controls.Add(Me.radioButton2)
  112.             Me.panelSettings.Controls.Add(Me.radioButton1)
  113.             Me.panelSettings.Dock = System.Windows.Forms.DockStyle.Left
  114.             Me.dockingManagerExtender1.SetFullTitle(Me.panelSettings, "Settings")
  115.             Me.dockingManagerExtender1.SetIcon(Me.panelSettings, CType(resources.GetObject("panelSettings.Icon"), System.Drawing.Image))
  116.             Me.panelSettings.Location = New System.Drawing.Point(0, 0)
  117.             Me.dockingManagerExtender1.SetMinimumSize(Me.panelSettings, 80)
  118.             Me.panelSettings.Name = "panelSettings"
  119.             Me.panelSettings.Size = New System.Drawing.Size(144, 390)
  120.             Me.panelSettings.TabIndex = 4
  121.             Me.dockingManagerExtender1.SetTitle(Me.panelSettings, "Settings")
  122.             '
  123.             'radioButton3
  124.             '
  125.             Me.radioButton3.Location = New System.Drawing.Point(16, 64)
  126.             Me.radioButton3.Name = "radioButton3"
  127.             Me.radioButton3.Size = New System.Drawing.Size(112, 24)
  128.             Me.radioButton3.TabIndex = 2
  129.             Me.radioButton3.Text = "Windows Default"
  130.             '
  131.             'radioButton2
  132.             '
  133.             Me.radioButton2.Location = New System.Drawing.Point(16, 40)
  134.             Me.radioButton2.Name = "radioButton2"
  135.             Me.radioButton2.Size = New System.Drawing.Size(112, 24)
  136.             Me.radioButton2.TabIndex = 1
  137.             Me.radioButton2.Text = "Office XP"
  138.             '
  139.             'radioButton1
  140.             '
  141.             Me.radioButton1.Checked = True
  142.             Me.radioButton1.Location = New System.Drawing.Point(16, 16)
  143.             Me.radioButton1.Name = "radioButton1"
  144.             Me.radioButton1.Size = New System.Drawing.Size(112, 24)
  145.             Me.radioButton1.TabIndex = 0
  146.             Me.radioButton1.TabStop = True
  147.             Me.radioButton1.Text = "Office 2003"
  148.             '
  149.             'propertyGrid1
  150.             '
  151.             Me.dockingManagerExtender1.SetAllowDocking(Me.propertyGrid1, True)
  152.             Me.propertyGrid1.CommandsVisibleIfAvailable = True
  153.             Me.propertyGrid1.Dock = System.Windows.Forms.DockStyle.Right
  154.             Me.dockingManagerExtender1.SetFullTitle(Me.propertyGrid1, "Properties")
  155.             Me.dockingManagerExtender1.SetIcon(Me.propertyGrid1, CType(resources.GetObject("propertyGrid1.Icon"), System.Drawing.Image))
  156.             Me.propertyGrid1.LargeButtons = False
  157.             Me.propertyGrid1.LineColor = System.Drawing.SystemColors.ScrollBar
  158.             Me.propertyGrid1.Location = New System.Drawing.Point(424, 0)
  159.             Me.dockingManagerExtender1.SetMinimumSize(Me.propertyGrid1, 80)
  160.             Me.propertyGrid1.Name = "propertyGrid1"
  161.             Me.propertyGrid1.Size = New System.Drawing.Size(168, 390)
  162.             Me.propertyGrid1.TabIndex = 5
  163.             Me.propertyGrid1.Text = "propertyGrid1"
  164.             Me.dockingManagerExtender1.SetTitle(Me.propertyGrid1, "Properties")
  165.             Me.propertyGrid1.ViewBackColor = System.Drawing.SystemColors.Window
  166.             Me.propertyGrid1.ViewForeColor = System.Drawing.SystemColors.WindowText
  167.             '
  168.             'treeView2
  169.             '
  170.             Me.dockingManagerExtender1.SetAllowDocking(Me.treeView2, True)
  171.             Me.treeView2.Dock = System.Windows.Forms.DockStyle.Bottom
  172.             Me.dockingManagerExtender1.SetFullTitle(Me.treeView2, "Tree View")
  173.             Me.dockingManagerExtender1.SetIcon(Me.treeView2, CType(resources.GetObject("treeView2.Icon"), System.Drawing.Image))
  174.             Me.treeView2.ImageIndex = -1
  175.             Me.treeView2.Location = New System.Drawing.Point(144, 238)
  176.             Me.dockingManagerExtender1.SetMinimumSize(Me.treeView2, 100)
  177.             Me.treeView2.Name = "treeView2"
  178.             Me.treeView2.SelectedImageIndex = -1
  179.             Me.treeView2.Size = New System.Drawing.Size(280, 152)
  180.             Me.treeView2.TabIndex = 9
  181.             Me.dockingManagerExtender1.SetTitle(Me.treeView2, "Tree View")
  182.             '
  183.             'imageList1
  184.             '
  185.             Me.imageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
  186.             Me.imageList1.ImageSize = New System.Drawing.Size(16, 16)
  187.             Me.imageList1.ImageStream = CType(resources.GetObject("imageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
  188.             Me.imageList1.TransparentColor = System.Drawing.Color.Transparent
  189.             '
  190.             'Form1
  191.             '
  192.             Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  193.             Me.ClientSize = New System.Drawing.Size(592, 390)
  194.             Me.Controls.Add(Me.treeView2)
  195.             Me.Controls.Add(Me.panel1)
  196.             Me.Controls.Add(Me.propertyGrid1)
  197.             Me.Controls.Add(Me.panelSettings)
  198.             Me.Controls.Add(Me.label1)
  199.             Me.Name = "Form1"
  200.             Me.Text = "Form1"
  201.             Me.panel1.ResumeLayout(False)
  202.             CType(Me.tabbedGroups1, System.ComponentModel.ISupportInitialize).EndInit()
  203.             Me.panelSettings.ResumeLayout(False)
  204.             Me.ResumeLayout(False)
  205.  
  206.         End Sub
  207. #End Region
  208.  
  209.         <STAThread()> _
  210.         Public Shared Sub Main(ByVal args As String())
  211.             Application.Run(New Form1)
  212.         End Sub
  213.  
  214.         Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  215.             Dim tn As TabGroupNode = Me.tabbedGroups1.RootSequence.AddNewNode()
  216.             tn.TabPages.Add(New NETXP.Controls.Docking.TabPage("Test 1"))
  217.             tn.TabPages.Add(New NETXP.Controls.Docking.TabPage("Test 2"))
  218.             tn = Me.tabbedGroups1.RootSequence.AddNewNode()
  219.             tn.TabPages.Add(New NETXP.Controls.Docking.TabPage("Test 3"))
  220.         End Sub
  221.  
  222.         Private Sub radioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton1.CheckedChanged
  223.             If radioButton1.Checked Then
  224.                 Me.dockingManagerExtender1.DockingManager.Renderer = New NETXP.Controls.Docking.Renderers.Office2003
  225.                 Me.tabbedGroups1.Renderer = New NETXP.Controls.Docking.Renderers.Office2003
  226.             End If
  227.         End Sub
  228.  
  229.         Private Sub radioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton2.CheckedChanged
  230.             If radioButton2.Checked Then
  231.                 Me.dockingManagerExtender1.DockingManager.Renderer = New NETXP.Controls.Docking.Renderers.OfficeXP
  232.                 Me.tabbedGroups1.Renderer = New NETXP.Controls.Docking.Renderers.OfficeXP
  233.             End If
  234.         End Sub
  235.  
  236.         Private Sub radioButton3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton3.CheckedChanged
  237.             If radioButton3.Checked Then
  238.                 Me.dockingManagerExtender1.DockingManager.Renderer = New NETXP.Controls.Docking.Renderers.WindowsDefault
  239.                 Me.tabbedGroups1.Renderer = New NETXP.Controls.Docking.Renderers.WindowsDefault
  240.             End If
  241.         End Sub
  242.     End Class
  243. End Namespace