vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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.479 
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.