Imports BVSoftware.BVC.Core Public Class CheckoutSteps Inherits System.Web.UI.UserControl #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents MainTable As System.Web.UI.WebControls.Table Protected WithEvents lnkLogin As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkShipping As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkAddress As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkReview As System.Web.UI.WebControls.HyperLink 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Public Enum CheckoutStepName None = 0 Login = 1 Address = 2 Shipping = 3 Review = 4 End Enum Private _CurrentStep As CheckoutStepName = CheckoutStepName.None Public Property CurrentStep() As CheckoutStepName Get Return _CurrentStep End Get Set(ByVal Value As CheckoutStepName) _CurrentStep = Value End Set End Property Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Select Case _CurrentStep Case CheckoutStepName.Address Me.lnkAddress.CssClass = "CheckoutStepCurrent" Case CheckoutStepName.Login Me.lnkLogin.CssClass = "CheckoutStepCurrent" Case CheckoutStepName.Review Me.lnkReview.CssClass = "CheckoutStepCurrent" Case CheckoutStepName.Shipping Me.lnkShipping.CssClass = "CheckoutStepCurrent" End Select End Sub End Class