vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Verschiedenes / Sonstiges   |   VB-Versionen: VB2008 - VB201506.02.17
ReportViewer-Toolbar mit deutschen oder individuellen Texten versehen

Es wird eine Klasse gezeigt, die die beliebige Änderung der im ReportViewer verwendeten Texte der Toolbar gestattet.

Autor:   Dietrich HerrmannBewertung:     [ Jetzt bewerten ]Views:  5.501 
ohne HomepageSystem:  Win7, Win8, Win10, Win11kein Beispielprojekt 

Verweise auf ReportViewer setzen!

Zunächst der Code der Klasse:

Imports Microsoft.Reporting.WinForms   
 
Public Class GermanReportViewerMessages
  Implements IReportViewerMessages
 
  Public ReadOnly Property BackButtonToolTip As String _
    Implements IReportViewerMessages.BackButtonToolTip
    Get
      Return ("Zurück zum übergeordneten Bericht")
    End Get
  End Property
 
  Public ReadOnly Property BackMenuItemText As String _
    Implements IReportViewerMessages.BackMenuItemText
    Get
      Return ("Zurück zum übergeordneten Bericht")
    End Get
  End Property
 
  Public ReadOnly Property ChangeCredentialsText As String _
    Implements IReportViewerMessages.ChangeCredentialsText
    Get
      Return ("Anmeldeinformationen ändern")
    End Get
  End Property
 
  Public ReadOnly Property CurrentPageTextBoxToolTip As String _
    Implements IReportViewerMessages.CurrentPageTextBoxToolTip
    Get
      Return ("Aktuelle Seite")
    End Get
  End Property
 
  Public ReadOnly Property DocumentMapButtonToolTip As String _
    Implements IReportViewerMessages.DocumentMapButtonToolTip
    Get
      Return ("Übersicht anzeigen / ausblenden")
    End Get
  End Property
 
  Public ReadOnly Property DocumentMapMenuItemText As String _
    Implements IReportViewerMessages.DocumentMapMenuItemText
    Get
      Return ("Dokumentübersicht")
    End Get
  End Property
 
  Public ReadOnly Property ExportButtonToolTip As String _
    Implements IReportViewerMessages.ExportButtonToolTip
    Get
      Return ("Exportieren")
    End Get
  End Property
 
  Public ReadOnly Property ExportMenuItemText As String _
    Implements IReportViewerMessages.ExportMenuItemText
    Get
      Return ("Exportieren")
    End Get
  End Property
 
  Public ReadOnly Property FalseValueText As String _
    Implements IReportViewerMessages.FalseValueText
    Get
      Return ("Falsch")
    End Get
  End Property
 
  Public ReadOnly Property FindButtonText As String _
    Implements IReportViewerMessages.FindButtonText
    Get
      Return ("Suchen")
    End Get
  End Property
 
  Public ReadOnly Property FindButtonToolTip As String _
    Implements IReportViewerMessages.FindButtonToolTip
    Get
      Return ("Suchen")
    End Get
  End Property
 
  Public ReadOnly Property FindNextButtonText As String _
    Implements IReportViewerMessages.FindNextButtonText
    Get
      Return ("Weitersuchen")
    End Get
  End Property
 
  Public ReadOnly Property FindNextButtonToolTip As String _
    Implements IReportViewerMessages.FindNextButtonToolTip
    Get
      Return ("Weitersuchen")
    End Get
  End Property
 
  Public ReadOnly Property FirstPageButtonToolTip As String _
    Implements IReportViewerMessages.FirstPageButtonToolTip
    Get
      Return ("Erste Seite")
    End Get
  End Property
 
  Public ReadOnly Property LastPageButtonToolTip As String _
    Implements IReportViewerMessages.LastPageButtonToolTip
    Get
      Return ("Letzte Seite")
    End Get
  End Property
 
  Public ReadOnly Property NextPageButtonToolTip As String _
    Implements IReportViewerMessages.NextPageButtonToolTip
    Get
      Return ("Nächste Seite")
    End Get
  End Property
 
  Public ReadOnly Property NoMoreMatches As String _
    Implements IReportViewerMessages.NoMoreMatches
    Get
      Return ("Der gesamte Bericht wurde durchsucht.")
    End Get
  End Property
 
  Public ReadOnly Property NullCheckBoxText As String _
    Implements IReportViewerMessages.NullCheckBoxText
    Get
      Return ("NULL")
    End Get
  End Property
 
  Public ReadOnly Property NullCheckBoxToolTip As String _
    Implements IReportViewerMessages.NullCheckBoxToolTip
    Get
      Return ("Null")
    End Get
  End Property
 
  Public ReadOnly Property NullValueText As String _
    Implements IReportViewerMessages.NullValueText
    Get
      Return ("Null")
    End Get
  End Property
 
  Public ReadOnly Property PageOf As String _
    Implements IReportViewerMessages.PageOf
    Get
      Return ("von")
    End Get
  End Property
 
  Public ReadOnly Property PageSetupButtonToolTip As String _
    Implements IReportViewerMessages.PageSetupButtonToolTip
    Get
      Return ("Seite einrichten")
    End Get
  End Property
 
  Public ReadOnly Property PageSetupMenuItemText As String _
    Implements IReportViewerMessages.PageSetupMenuItemText
    Get
      Return ("Seite einrichten")
    End Get
  End Property
 
  Public ReadOnly Property ParameterAreaButtonToolTip As String _
    Implements IReportViewerMessages.ParameterAreaButtonToolTip
    Get
      Return ("Parameter anzeigen / ausblenden")
    End Get
  End Property
 
  Public ReadOnly Property PasswordPrompt As String _
    Implements IReportViewerMessages.PasswordPrompt
    Get
      Return ("Passwort:")
    End Get
  End Property
 
  Public ReadOnly Property PreviousPageButtonToolTip As String _
    Implements IReportViewerMessages.PreviousPageButtonToolTip
    Get
      Return ("Vorherige Seite")
    End Get
  End Property
 
  Public ReadOnly Property PrintButtonToolTip As String _
    Implements IReportViewerMessages.PrintButtonToolTip
    Get
      Return ("Drucken")
    End Get
  End Property
 
  Public ReadOnly Property PrintLayoutButtonToolTip As String _
    Implements IReportViewerMessages.PrintLayoutButtonToolTip
      Get
      Return ("Seitenlayout")
    End Get
  End Property
 
  Public ReadOnly Property PrintLayoutMenuItemText As String _
    Implements IReportViewerMessages.PrintLayoutMenuItemText
    Get
      Return ("Seitenlayout")
    End Get
  End Property
 
  Public ReadOnly Property PrintMenuItemText As String _
    Implements IReportViewerMessages.PrintMenuItemText
    Get
      Return ("Drucken")
    End Get
  End Property
 
  Public ReadOnly Property ProgressText As String _
    Implements IReportViewerMessages.ProgressText
    Get
      Return ("Wird geladen…")
    End Get
  End Property
 
  Public ReadOnly Property RefreshButtonToolTip As String _
    Implements IReportViewerMessages.RefreshButtonToolTip
    Get
      Return ("Aktualisieren")
    End Get
  End Property
 
  Public ReadOnly Property RefreshMenuItemText As String _
    Implements IReportViewerMessages.RefreshMenuItemText
    Get
      Return ("Aktualisieren")
    End Get
  End Property
 
  Public ReadOnly Property SearchTextBoxToolTip As String _
    Implements IReportViewerMessages.SearchTextBoxToolTip
    Get
      Return ("Text in Bericht suchen")
    End Get
  End Property
 
  Public ReadOnly Property SelectAll As String _
    Implements IReportViewerMessages.SelectAll
    Get
      Return ("Alles auswählen")
    End Get
  End Property
 
  Public ReadOnly Property SelectAValue As String _
    Implements IReportViewerMessages.SelectAValue
    Get
      Return ("Wert auswählen")
    End Get
  End Property
 
  Public ReadOnly Property StopButtonToolTip As String _
    Implements IReportViewerMessages.StopButtonToolTip
    Get
      Return ("Stop")
    End Get
  End Property
 
  Public ReadOnly Property StopMenuItemText As String _
    Implements IReportViewerMessages.StopMenuItemText
    Get
      Return ("Stop")
    End Get
  End Property
 
  Public ReadOnly Property TextNotFound As String _
    Implements IReportViewerMessages.TextNotFound
    Get
      Return ("Der Suchtext wurde nicht gefunden.")
    End Get
  End Property
 
  Public ReadOnly Property TotalPagesToolTip As String _
    Implements IReportViewerMessages.TotalPagesToolTip
    Get
      Return ("Seiten gesamt")
    End Get
  End Property
 
  Public ReadOnly Property TrueValueText As String _
    Implements IReportViewerMessages.TrueValueText
    Get
      Return ("Wahr")
    End Get
  End Property
 
  Public ReadOnly Property UserNamePrompt As String _
    Implements IReportViewerMessages.UserNamePrompt
    Get
      Return ("Benutzername:")
    End Get
  End Property
 
  Public ReadOnly Property ViewReportButtonText As String _
    Implements IReportViewerMessages.ViewReportButtonText
    Get
      Return ("ViewReportButtonText")
    End Get
  End Property
 
  Public ReadOnly Property ViewReportButtonToolTip As String _
    Implements IReportViewerMessages.ViewReportButtonToolTip
    Get
      Return ("ViewReportButtonText")
    End Get
  End Property
 
  Public ReadOnly Property ZoomControlToolTip As String _
    Implements IReportViewerMessages.ZoomControlToolTip
    Get
      Return ("Zoom")
    End Get
  End Property
 
  Public ReadOnly Property ZoomMenuItemText As String _
    Implements IReportViewerMessages.ZoomMenuItemText
    Get
      Return ("Zoom")
    End Get
  End Property
 
  Public ReadOnly Property ZoomToPageWidth As String _
    Implements IReportViewerMessages.ZoomToPageWidth
    Get
      Return ("Seitenbreite")
    End Get
  End Property
 
  Public ReadOnly Property ZoomToWholePage As String _
    Implements IReportViewerMessages.ZoomToWholePage
    Get
      Return ("Gesamte Seite")
    End Get
  End Property
End Class

Die Anwendung

Public Shared rpV As ReportViewer = Nothing
Public Shared rpDS As ReportDataSource = Nothing
Dim myMsg As GermanReportViewerMessages

im Sub OnLoad-Ereignis einer Form:

myMsg = New GermanReportViewerMessages

und bspw.

rpV = New ReportViewer
rpDS = New ReportDataSource
With rpV ' Reportviewer Ansicht einstellen
  .Messages = myMsg
  .Reset()
  .AutoScroll = True
  .BorderStyle = BorderStyle.None
  .BringToFront()
  .Dock = DockStyle.Fill
  .ShowFindControls = False
  .ShowBackButton = False
  .ShowStopButton = False
  .ShowDocumentMapButton = False
  .ShowRefreshButton = False
  .ShowFindControls = True
  .ShowParameterPrompts = True
  .SetDisplayMode(DisplayMode.PrintLayout)
  .ZoomMode = ZoomMode.PageWidth
  .Visible = True
End With
Controls.Add(rpV)

That's it.

Dieser Tipp wurde bereits 5.501 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!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.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel