Die Community zu .NET und Classic VB.
Menü

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

 von 

Beschreibung

Ein Toolstrip hostet standardmäßig nur Steuerelemente wie Buttons, Labels, Comboboxen, Textboxen, Progressbars und Separatoren. Darüber hinaus kann man aber zur Laufzeit 'fremde' Steuerelemente wie zum Beispiel den DateTimePicker über einen ToolStripControlHost hinzufügen.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Framework-Version(en):

.NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en):

Visual Basic 2005, Visual Basic 2008

Download:

Download des Beispielprojektes [10,36 KB]

' 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

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.