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.272 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. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! 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 Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |