Skip to content

Instantly share code, notes, and snippets.

@JayDouglass
Created May 14, 2013 20:36

Revisions

  1. JayDouglass created this gist May 14, 2013.
    33 changes: 33 additions & 0 deletions PagerLinkButton.vb
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,33 @@
    Namespace Controls
    Public Class PagerLinkButton
    Inherits LinkButton

    Dim _container As IPostBackContainer

    Public Sub New(container As IPostBackContainer)
    _container = container
    End Sub

    Protected Overrides Sub Render(writer As HtmlTextWriter)
    MyBase.Render(writer)
    End Sub

    Protected Overrides Function GetPostBackOptions() As PostBackOptions
    Return _container.GetPostBackOptions(Me)
    End Function

    Public Overrides Property CausesValidation() As Boolean
    Get
    Return False
    End Get
    Set(value As Boolean)

    End Set
    End Property

    'Protected Overrides Sub RenderContents(writer As HtmlTextWriter)

    'End Sub

    End Class
    End Namespace