VB.NET-Tipp 0109: Beliebige Controls in ToolStrip einfügen

 
' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2005
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.Deployment
'  - System.Drawing
'  - System.Windows.Forms
'  - System.Xml
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Collections.Generic
'  - System.Data
'  - System.Drawing
'  - System.Diagnostics
'  - System.Windows.Forms
'

' ##############################################################################
' ################################# Form1.vb ###################################
' ##############################################################################
'--------------------------------------------------
'  einem ToolStrip zur Laufzeit Controls hinzufügen
'
'  Toolstrip1 mit 3 Labeln
'  "Zeitraum von"
'  "bis"
'  "CheckMe"
'--------------------------------------------------

Public Class Form1

    Private WithEvents dtpFrom As New DateTimePicker
    Private WithEvents dtpTo As New DateTimePicker
    Private WithEvents chkBox As New CheckBox

    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Dim d As Date = New Date(Date.Now.Year, Date.Now.Month, 1)
        With dtpFrom
            .Width = 84
            .Format = DateTimePickerFormat.Short
            .Name = "dtpFrom"
            .Value = d.AddMonths(-1)
        End With
        With dtpTo
            .Width = 84
            .Format = DateTimePickerFormat.Short
            .Name = "dtpTo"
            .Value = d.AddDays(-1)
        End With
        With chkBox
            .Text = ""
        End With

        Dim Index As Integer = 1
        ToolStrip1.Items.Insert(Index, New ToolStripControlHost(dtpFrom))
        ToolStrip1.Items.Insert(Index + 2, New ToolStripControlHost(dtpTo))
        ToolStrip1.Items.Insert(Index + 4, New ToolStripControlHost(chkBox))
    End Sub
End Class