Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Imports APNSoft.WebControls

Partial Public Class Rating_CallBack
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        'Apply event-handling method
        AddHandler myRating.OnSegmentClick, AddressOf myRating_OnSegmentClick
    End Sub

    'The event-handling method
    Private Sub myRating_OnSegmentClick(ByVal sender As Object, ByVal e As APNSoft.WebControls.RatingEventArgs)
        'Get component instance
        Dim myRating As APNSoftRating = CType(sender, APNSoftRating)

        'Get clicked Segment
        Dim mySegment As RatingSegment = e.RatingSegment

        'Set custom parameter to pass it from the server to the client.
        e.Parameter = "Server parameter for: " & _
            e.SegmentID
    End Sub

End Class