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_PostBack
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        'Apply the 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

        'Display clicked Segment data
        Dim ClickedSegment As String = ""
        ClickedSegment &= "Component ID: <b>" & _
            myRating.ID & "</b>"
        ClickedSegment &= "<br/>Segment ID: <b>" & _
            mySegment.id & "</b>"
        ClickedSegment &= "<br/>Segment value: <b>" & _
            mySegment.value & "</b>"
        lblClickedSegment.Text = ClickedSegment & "<br/><br/>"
    End Sub
End Class