Configurable Silverlight Image Rotator

Imports System
Imports System.Configuration

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

#Region "Private Member Variables"

	Private imageRotatorDiv As String = ConfigurationManager.AppSettings("ImageRotatorDivID")

#End Region

	''' <summary> 
	''' Setup initParamaters for silverlight control when page initially loads, 
	''' special characters must be escaped with ASCII character. 
	''' </summary> 
	''' <param name="sender"></param> 
	''' <param name="e"></param> 
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

		Dim browserWindowOptions As String = "resizable=1|scrollbars=1|menubar=1|status=1|toolbar=1|titlebar=1|width=1000|height=725|left=5|top=5"

		If Not Me.Page.IsPostBack Then
			Dim autoPlay As String = ConfigurationManager.AppSettings("EnableAutoPlay").ToLower()
			Dim autoPlayInterval As String = ConfigurationManager.AppSettings("AutoPlayInterval")
			Dim numberedNavigation As String = ConfigurationManager.AppSettings("DisplayNumberedNavigation").ToLower()
			Dim arrowNavigation As String = ConfigurationManager.AppSettings("DisplayArrowNavigation").ToLower()
			Dim stopStartAutoPlay As String = ConfigurationManager.AppSettings("EnableStopStartAutoPlay").ToLower()
			Dim animation As String = ConfigurationManager.AppSettings("EnableAnimations").ToLower()
			Dim border As String = ConfigurationManager.AppSettings("DisplayBorder").ToLower()
			Dim borderThickness As String = ConfigurationManager.AppSettings("BorderThickness")
			Dim argb As String = ConfigurationManager.AppSettings("ARGB")

			Dim initParams As String = "autoPlay=" & autoPlay
			initParams += ",autoPlayInterval=" & autoPlayInterval
			initParams += ",numberedNavigation=" & numberedNavigation
			initParams += ",arrowNavigation=" & arrowNavigation
			initParams += ",stopStartAutoPlay=" & stopStartAutoPlay
			initParams += ",animation=" & animation
			initParams += ",border=" & border
			initParams += ",borderThickness=" & borderThickness
			initParams += ",argb=" & argb
			initParams += ",imageRotatorDiv=" & imageRotatorDiv
			initParams += ",browserWindowOptions=" & browserWindowOptions

			imageRotator.InitParameters = initParams
		End If

	End Sub

	''' <summary> 
	''' Setup initParamaters for silverlight control when refresh button is clicked, 
	''' special characters must be escaped with ASCII character. 
	''' </summary> 
	''' <param name="sender"></param> 
	''' <param name="e"></param> 
	Protected Sub refresh_Click(ByVal sender As Object, ByVal e As EventArgs)

		Dim browserWindowOptions As String = "resizable=1|scrollbars=1|menubar=1|status=1|toolbar=1|titlebar=1|width=900|height=725|left=5|top=5"

		Dim initParams As String = "autoPlay=" & autoPlay.Checked.ToString()
		initParams += ",autoPlayInterval=" & autoPlayInterval.Text
		initParams += ",numberedNavigation=" & numberedNavigation.Checked.ToString()
		initParams += ",arrowNavigation=" & arrowNavigation.Checked.ToString()
		initParams += ",stopStartAutoPlay=" & stopStartAutoPlay.Checked.ToString()
		initParams += ",animation=" & animation.Checked.ToString()
		initParams += ",border=" & border.Checked.ToString()
		initParams += ",borderThickness=" & borderThickness.SelectedValue
		initParams += (((",argb=" & a.Text & "|") + r.Text & "|") + g.Text & "|") + b.Text
		initParams += ",imageRotatorDiv=" & imageRotatorDiv
		initParams += ",browserWindowOptions=" & browserWindowOptions
		imageRotator.InitParameters = initParams

	End Sub

End Class