Imports System.Collections.Specialized
Imports Microsoft.ReportingServices.Interfaces
Imports Microsoft.ReportingServices.ReportRendering

Public Class Renderer
  Implements IRenderingExtension

  Public Function RenderStream( _
      ByVal streamName As String, ByVal report As Report, _
      ByVal reportServerParameters As NameValueCollection, _
      ByVal deviceInfo As NameValueCollection, _
      ByVal clientCapabilities As NameValueCollection, _
      ByVal headerFooterExpressions As _
      EvaluateHeaderFooterExpressions, _
      ByVal createAndRegisterStream As _
      CreateAndRegisterStream) _
         As Boolean Implements IRenderingExtension.RenderStream
      ... ' код визуализации отчета
      Return False
  End Function

  Public Function Render( _
      ByVal report As Report, _
      ByVal reportServerParameters As NameValueCollection, _
      ByVal deviceInfo As NameValueCollection, _
      ByVal clientCapabilities As NameValueCollection, _
      ByVal headerFooterExpressions As _
      EvaluateHeaderFooterExpressions, _
      ByVal createAndRegisterStream As CreateAndRegisterStream)
         As Boolean Implements IRenderingExtension.Render
      ... ' код визуализации отчета
      Return False
  End Function

  Public Sub GetRenderingResource( _
      ByVal createAndRegisterStreamCallback _
      As CreateAndRegisterStream, _
      ByVal deviceInfo As NameValueCollection) _
         Implements IRenderingExtension.GetRenderingResource
    ... ' визуализация встроенных ресурсов отчета
  End Sub

  Public ReadOnly Property LocalizedName() As String _
    Implements IRenderingExtension.LocalizedName
      Get
          ... ' возвращает имя расширения
      End Get
  End Property

  Public Sub SetConfiguration(ByVal configuration As String) _
    Implements IRenderingExtension.SetConfiguration
      ... ' получает конфигурационные данные
      ... ' из файла конфигурации RS
  End Sub
End Class

Friend Class TextBoxRender

    Friend Sub New()
    End Sub

    Friend Function Render(ByVal textBox As Microsoft.ReportingServices.ReportRendering.TextBox) As String
        Dim pHtml As New System.Text.StringBuilder
        Dim sh As New MSDNMagazine.CustomRSRenderer.StyleHandler(textBox.Style)