VB.Net by API/System.Windows.Forms/ToolStrip

ToolStrip.DockChanged

<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Imports System.Data.SqlClient public class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1
      Application.Run(form1)
  End Sub

End Class

Public Class Form1

   Private Sub ToolStrip1_DockChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStrip1.DockChanged
       OrientToolStrip(ToolStrip1)
   End Sub
   Private Sub OrientToolStrip(ByVal tool_strip As ToolStrip)
       If tool_strip.Parent Is Nothing Then Exit Sub
       Dim new_orientation As ToolStripTextDirection = ToolStripTextDirection.Horizontal
       Select Case tool_strip.Parent.Dock
           Case DockStyle.Left
               new_orientation = ToolStripTextDirection.Vertical270
           Case DockStyle.Right
               new_orientation = ToolStripTextDirection.Vertical90
       End Select
       For Each ctl As ToolStripItem In tool_strip.Items
           ctl.TextDirection = new_orientation
           Console.WriteLine(ctl.Name)
       Next ctl
   End Sub
   Private Sub ToolStrip2_ParentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStrip2.ParentChanged
       OrientToolStrip(ToolStrip2)
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads 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 Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.ToolStripContainer1 = New System.Windows.Forms.ToolStripContainer
       Me.ToolStrip4 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel
       Me.ToolStrip5 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel
       Me.PictureBox1 = New System.Windows.Forms.PictureBox
       Me.ToolStrip3 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel
       Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel
       Me.ToolStrip2 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel
       Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout()
       Me.ToolStripContainer1.ContentPanel.SuspendLayout()
       Me.ToolStripContainer1.RightToolStripPanel.SuspendLayout()
       Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout()
       Me.ToolStripContainer1.SuspendLayout()
       Me.ToolStrip4.SuspendLayout()
       Me.ToolStrip5.SuspendLayout()
       CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.ToolStrip3.SuspendLayout()
       Me.ToolStrip1.SuspendLayout()
       Me.ToolStrip2.SuspendLayout()
       Me.SuspendLayout()
       "
       "ToolStripContainer1
       "
       "
       "ToolStripContainer1.BottomToolStripPanel
       "
       Me.ToolStripContainer1.BottomToolStripPanel.Controls.Add(Me.ToolStrip4)
       Me.ToolStripContainer1.BottomToolStripPanel.Controls.Add(Me.ToolStrip5)
       "
       "ToolStripContainer1.ContentPanel
       "
       Me.ToolStripContainer1.ContentPanel.Controls.Add(Me.PictureBox1)
       Me.ToolStripContainer1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.ToolStripContainer1.Location = New System.Drawing.Point(0, 0)
       Me.ToolStripContainer1.Name = "ToolStripContainer1"
       "
       "ToolStripContainer1.RightToolStripPanel
       "
       Me.ToolStripContainer1.RightToolStripPanel.Controls.Add(Me.ToolStrip3)
       Me.ToolStripContainer1.Size = New System.Drawing.Size(292, 273)
       Me.ToolStripContainer1.TabIndex = 1
       Me.ToolStripContainer1.Text = "ToolStripContainer1"
       "
       "ToolStripContainer1.TopToolStripPanel
       "
       Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.ToolStrip1)
       Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.ToolStrip2)
       "
       "ToolStrip4
       "
       Me.ToolStrip4.Dock = System.Windows.Forms.DockStyle.None
       Me.ToolStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel4})
       Me.ToolStrip4.Location = New System.Drawing.Point(40, 0)
       Me.ToolStrip4.Name = "ToolStrip4"
       Me.ToolStrip4.Size = New System.Drawing.Size(109, 25)
       Me.ToolStrip4.TabIndex = 2
       Me.ToolStrip4.Text = "ToolStrip4"
       "
       "ToolStripLabel4
       "
       Me.ToolStripLabel4.Name = "ToolStripLabel4"
       Me.ToolStripLabel4.Text = "ToolStrip4"
       "
       "ToolStrip5
       "
       Me.ToolStrip5.Dock = System.Windows.Forms.DockStyle.None
       Me.ToolStrip5.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel5})
       Me.ToolStrip5.Location = New System.Drawing.Point(183, 0)
       Me.ToolStrip5.Name = "ToolStrip5"
       Me.ToolStrip5.Size = New System.Drawing.Size(109, 25)
       Me.ToolStrip5.TabIndex = 3
       Me.ToolStrip5.Text = "ToolStrip5"
       "
       "ToolStripLabel5
       "
       Me.ToolStripLabel5.Name = "ToolStripLabel5"
       Me.ToolStripLabel5.Text = "ToolStrip5"
       "
       "PictureBox1
       "
       Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
       Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
       Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
       Me.PictureBox1.Name = "PictureBox1"
       Me.PictureBox1.Size = New System.Drawing.Size(267, 223)
       Me.PictureBox1.TabIndex = 0
       Me.PictureBox1.TabStop = False
       "
       "ToolStrip3
       "
       Me.ToolStrip3.Dock = System.Windows.Forms.DockStyle.None
       Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel3})
       Me.ToolStrip3.Location = New System.Drawing.Point(0, 25)
       Me.ToolStrip3.Name = "ToolStrip3"
       Me.ToolStrip3.Size = New System.Drawing.Size(25, 81)
       Me.ToolStrip3.TabIndex = 3
       Me.ToolStrip3.Text = "ToolStrip3"
       Me.ToolStrip3.TextDirection = System.Windows.Forms.ToolStripTextDirection.Vertical90
       "
       "ToolStripLabel3
       "
       Me.ToolStripLabel3.AutoSize = False
       Me.ToolStripLabel3.Name = "ToolStripLabel3"
       Me.ToolStripLabel3.Size = New System.Drawing.Size(25, 69)
       Me.ToolStripLabel3.Text = "ToolStrip3"
       "
       "ToolStrip1
       "
       Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.None
       Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1})
       Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
       Me.ToolStrip1.Name = "ToolStrip1"
       Me.ToolStrip1.Size = New System.Drawing.Size(109, 25)
       Me.ToolStrip1.TabIndex = 0
       Me.ToolStrip1.Text = "ToolStrip1"
       "
       "ToolStripLabel1
       "
       Me.ToolStripLabel1.Name = "ToolStripLabel1"
       Me.ToolStripLabel1.Text = "ToolStrip1"
       "
       "ToolStrip2
       "
       Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None
       Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2})
       Me.ToolStrip2.Location = New System.Drawing.Point(109, 0)
       Me.ToolStrip2.Name = "ToolStrip2"
       Me.ToolStrip2.Size = New System.Drawing.Size(145, 25)
       Me.ToolStrip2.TabIndex = 1
       Me.ToolStrip2.Text = "ToolStrip2"
       "
       "ToolStripLabel2
       "
       Me.ToolStripLabel2.Name = "ToolStripLabel2"
       Me.ToolStripLabel2.Text = "ToolStripLabel2"
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 273)
       Me.Controls.Add(Me.ToolStripContainer1)
       Me.Name = "Form1"
       Me.Text = "UseToolStripContainer2"
       Me.ToolStripContainer1.BottomToolStripPanel.ResumeLayout(False)
       Me.ToolStripContainer1.BottomToolStripPanel.PerformLayout()
       Me.ToolStripContainer1.ContentPanel.ResumeLayout(False)
       Me.ToolStripContainer1.RightToolStripPanel.ResumeLayout(False)
       Me.ToolStripContainer1.RightToolStripPanel.PerformLayout()
       Me.ToolStripContainer1.TopToolStripPanel.ResumeLayout(False)
       Me.ToolStripContainer1.TopToolStripPanel.PerformLayout()
       Me.ToolStripContainer1.ResumeLayout(False)
       Me.ToolStripContainer1.PerformLayout()
       Me.ToolStrip4.ResumeLayout(False)
       Me.ToolStrip5.ResumeLayout(False)
       CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ToolStrip3.ResumeLayout(False)
       Me.ToolStrip1.ResumeLayout(False)
       Me.ToolStrip2.ResumeLayout(False)
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents ToolStripContainer1 As System.Windows.Forms.ToolStripContainer
   Friend WithEvents ToolStrip4 As System.Windows.Forms.ToolStrip
   Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel
   Friend WithEvents ToolStrip5 As System.Windows.Forms.ToolStrip
   Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel
   Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
   Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip
   Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel
   Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
   Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
   Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
   Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel

End Class

 </source>