VB.NET-Tipp 0109: Beliebige Controls in ToolStrip einfügen
von pks
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: | 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: |
' 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.