Ich setze voraus, dass das ReportViewer-Control und seine Funktion bekannt sind. Um die im Folgenden gezeigte Funktion anwenden zu können, muss folgende Imports-Anweisung eingefügt werden: Imports Microsoft.Reporting.WinForms Man vereinbart: Private WithEvents bt As New ToolStripButton Schreibt bspw. im Load-Event der Form: With bt .Name = "newButton" .Text = "New Button" .BackColor = Color.Green .ForeColor = Color.Yellow ' .Alignment = ToolStripItemAlignment.Right .Margin = New Padding(10, 2, 10, 2) End With und gleich danach den Funktionsaufruf: AddButtonToReportViewer(ReprtViewer1, bt, 8) Dann wird die folgende Funktion zum Einfügen benutzt: ''' <summary> ''' Zum Toolstrip des ReportViewer-Controls einen Button hinzufügen ''' </summary> ''' <param name="repCtrl">der ReportViewer</param> ''' <param name="newButton">der neue Button</param> ''' <param name="idx">der Index für die Stelle, an der der Button eingefügt werden soll</param> Public Sub AddButtonToReportViewer(repCtrl As ReportViewer, _ newButton As ToolStripButton, _ Optional idx As Short = Nothing) Dim ts() As Control = repCtrl.Controls.Find("ToolStrip1", True) If Not IsNothing(ts) Then Dim tsItem As ToolStrip = DirectCast(ts(0), ToolStrip) If IsNothing(idx) Then ' wenn kein Einfügeindex angegeben, Button nur hinzufügen tsItem.Items.Add(newButton) Else ' wenn Einfügeindex angegeben, wird Button an dieser Stelle eingefügt tsItem.Items.Insert(idx, newButton) End If End If End Sub Dieser Tipp wurde bereits 8.261 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |