Mathemathics Framework

Imports System.Windows.Forms
Imports System.Drawing

Public Class BVToolBar2
    Inherits System.Windows.Forms.UserControl

#Region " C�digo generado por el Dise�ador de Windows Forms "

    Public Sub New()
        MyBase.New()

        'El Dise�ador de Windows Forms requiere esta llamada.
        InitializeComponent()

        'Agregar cualquier inicializaci�n despu�s de la llamada a InitializeComponent()
        Initialize()
    End Sub

    'UserControl reemplaza a Dispose para limpiar la lista de componentes.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Requerido por el Dise�ador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Dise�ador de Windows Forms requiere el siguiente procedimiento
    'Puede modificarse utilizando el Dise�ador de Windows Forms. 
    'No lo modifique con el editor de c�digo.
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.SuspendLayout()
        '
        'ToolBar1
        '
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(480, 42)
        Me.ToolBar1.TabIndex = 0
        '
        'BVToolBar
        '
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "BVToolBar"
        Me.Size = New System.Drawing.Size(480, 48)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Protected Sub Initialize()
        Me.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right
        Me.Location = New Point(0, 0)
        If Not Me.Parent Is Nothing Then
            Me.Width = Me.Parent.Width
        End If
    End Sub

    Protected Sub On_Resize(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Resize
        If Not Me.Parent Is Nothing Then
            Me.Width = Me.Parent.Width
        End If
    End Sub

    Private Sub BVToolBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(0, 0)
        Me.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right
        If Not Me.Parent Is Nothing Then
            Me.Width = Me.Parent.Width
        End If
    End Sub

    Public ReadOnly Property Buttons() As System.Windows.Forms.ToolBar.ToolBarButtonCollection
        Get
            Return Me.ToolBar1.Buttons
        End Get
    End Property

    Public Property ImageList() As ImageList
        Get
            Return Me.ToolBar1.ImageList
        End Get
        Set(ByVal Value As ImageList)
            ToolBar1.ImageList = Value
        End Set
    End Property

    Public Property Appearance() As System.Windows.Forms.ToolBarAppearance
        Get
            Return ToolBar1.Appearance
        End Get
        Set(ByVal Value As System.Windows.Forms.ToolBarAppearance)
            ToolBar1.Appearance = Value
        End Set
    End Property

    Public Property AutoSize() As Boolean
        Get
            Return Me.ToolBar1.AutoSize
        End Get
        Set(ByVal Value As Boolean)
            ToolBar1.AutoSize = Value
        End Set
    End Property

    Public Property ButtonSize() As System.Drawing.Size
        Get
            Return ToolBar1.ButtonSize
        End Get
        Set(ByVal Value As System.Drawing.Size)
            ToolBar1.ButtonSize = Value
        End Set
    End Property

    Public Property Divider() As Boolean
        Get
            Return Me.ToolBar1.Divider
        End Get
        Set(ByVal Value As Boolean)
            ToolBar1.Divider = Value
        End Set
    End Property

    Public Property BorderStyle() As System.Windows.Forms.BorderStyle
        Get
            Return Me.ToolBar1.BorderStyle
        End Get
        Set(ByVal Value As System.Windows.Forms.BorderStyle)
            ToolBar1.BorderStyle = Value
        End Set
    End Property

End Class