Web Development

' --------------- Property Style --------------------------------
	' Setting Browsable to False to hide this property from the Designer Property window.
	' This property uses Shadow to allow me declare the Browsable directive.

	<Browsable(False), Category("Component"), DefaultValue(""), _
	 Description("Component level inline CSS string")> _
	Public Shadows ReadOnly Property [Style]() As System.Web.UI.CssStyleCollection
		Get
			Return MyBase.Style
		End Get
	End Property ' Style

	' ----------- Property ComponentStyle --------------------------
	' This is the public version of the above property.
	'
	' The Getter uses the CssStyleCollectionAsString
	' function to build a string containing the
	' MyBase Style settings.
	'
	' The Setter uses the
	' ApplyCssStyleStringToCssStyleCollection function
	' to set the MyBase Style setting from a string.
	'
	' I know that these helper functions work, I use
	' them on through out my program on the other
	' components, including CssStyleCollectionAsString
	' in the designer to render the component's styles
	' for the editor.
	'

	<Browsable(True), Category("Component"), DefaultValue(""), _
	 Description("Component level inline CSS string")> _
	Public Property [ComponentStyle]() As String
		Get
			Return CssStyleCollectionAsString(MyBase.Style)
		End Get
		Set(ByVal Value As String)
			ApplyCssStyleStringToCssStyleCollection(Value, MyBase.Style)
		End Set
	End Property ' ComponentStyle

	'
	' CssStyleCollectionAsString
	'
	' Convert a CssStyleCollection to a CSS Style Inline String.
	'
	' This method is also used by the designer,
	' so it must be public.
	'

	Public Function CssStyleCollectionAsString( _
		ByRef SrcCssStyleCollection As System.Web.UI.CssStyleCollection) As String
		Dim SrcCssStyleCollectionCounter As Integer = SrcCssStyleCollection.Count
		Dim KeyName As String
		Dim KeyValue As String
		Dim DestCssStyleString As String

		If SrcCssStyleCollectionCounter > 0 Then
			Dim Keys(SrcCssStyleCollectionCounter - 1) As String

			'
			' Copy the keys to a new array.
			' Can't iterate on the Keys collection directly
			' when the values are being changed.  The code
			' that makes all style names lower case isn't
			' shown here, to reduce the code in this listing.
			'
			SrcCssStyleCollectionCounter = 0
			For Each KeyName In SrcCssStyleCollection.Keys
				If KeyName <> "" Then
					Keys(SrcCssStyleCollectionCounter) = KeyName
					SrcCssStyleCollectionCounter += 1
				End If
			Next

			For Each KeyName In Keys
				KeyValue = SrcCssStyleCollection( KeyName )
				If Not KeyValue Is Nothing Then
					DestCssStyleString &= KeyName & ": " & KeyValue
					SrcCssStyleCollectionCounter -= 1
					If SrcCssStyleCollectionCounter > 0 Then
						DestCssStyleString &= "; "
					End If
				End If
			Next
		End If
		Return DestCssStyleString
	End Function ' End of CssStyleCollectionAsString

	'
	' ApplyCssStyleCollectionToCssStyleCollection
	'
	' Apply the CSS Style settings in one CssStyleCollection to another.
	'

	Public Sub ApplyCssStyleCollectionToCssStyleCollection( _
		ByRef SrcCssStyleCollection As System.Web.UI.CssStyleCollection, _
		ByRef DestCssStyleCollection As System.Web.UI.CssStyleCollection, _
		Optional ByVal Mode As String = "REPLACE")

		Dim KeyName As String
		Dim KeyValue As String
		Dim OldKeyValue As String

		If Mode.ToUpper <> "REPLACE" Or Mode.ToUpper <> "ADD" Then
			MessageBox.MessageBox("Invalid Mode, it must either be Replace or Add.",, _
				"ApplyCssStyleCollectionToCssStyleCollection")
		ElseIf SrcCssStyleCollection Is Nothing Then
			MessageBox.MessageBox("Source CSS Style misssing",, _
				"ApplyCssStyleCollectionToCssStyleCollection")
		ElseIf DestCssStyleCollection Is Nothing Then
			MessageBox.MessageBox("Destination CSS Style misssing",, _
				"ApplyCssStyleCollectionToCssStyleCollection")
		Else
			If SrcCssStyleCollection.Count > 0 Then
				Dim Keys(SrcCssStyleCollection.Count - 1) As String
				Dim KeyCounter As Integer = 0

				For Each KeyName In SrcCssStyleCollection.Keys
					If KeyName <> "" Then
						Keys(KeyCounter) = KeyName
						KeyCounter += 1
					End If
				Next

				If Mode.ToUpper = "REPLACE"
					DestCssStyleCollection.Clear()
				End If

				For Each KeyName In Keys
					KeyValue = SrcCssStyleCollection.Item( KeyName )

					' if the key doesn't already exist, add it.
					If DstCssStyleCollection(KeyName) Is Nothing Then
						DestCssStyleCollection.Add(KeyName, KeyValue)
					Else
						DestCssStyleCollection.Item(KeyName) = KeyValue
					End If
				Next
			End If
		End If
	End Sub ' End of ApplyCssStyleCollectionToCssStyleCollection