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. |