Tilføje xtra muligheder til adrotator bl.a. flash

Davs

Jeg er ved at forsøge at ændre webcontrollen adrotator til også at kunne benytte flash.

Indtil videre har jeg fået den til at vise flash-filmen 

Men desværre vises den ikke i den rigtige størrelse. Jeg skal derfor hav koblet en mulighed på for at angive height og width på flash-filmen.

Mit spørgsmål er nu: hvordan får jeg tilføjet muligheden for at angive 2 xtra parametre i xml-filen? Som det ses herunder, har jeg forsøgt mig med at hente ImageWidth og ImageHeight ud fra xml-filen, men jeg får den meddelelse når jeg vil compile, at ImageHeight og Imagewidth ikke er medlem af AdCreatedEventArgs. Hvordan gør jeg dem til medlem?



Xml-filen:

<?xml version="1.0" encoding="utf-8" ?>
<Advertisements>
  <Ad>
    <ImageUrl>test.swf</ImageUrl>
    <ImageWidth>770</ImageWidth>
    <ImageHeight>100</ImageHeight>
    <NavigateUrl>http://www.bt.dk</NavigateUrl>
    <AlternateText>bt</AlternateText>
    <Keyword>W</Keyword>
    <Impressions></Impressions>
  </Ad>
  <Ad>
    <ImageUrl>top.jpg</ImageUrl>
    <NavigateUrl>http://www.bt.dk</NavigateUrl>
    <AlternateText>bt</AlternateText>
    <Keyword>W</Keyword>
    <Impressions></Impressions>
  </Ad>
</Advertisements>





FlashAdrotator class:



Imports Microsoft.VisualBasic

Imports System.ComponentModel

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Text

Imports System.Web

Namespace Xtra.Controls
    <DefaultProperty("Text"), ToolboxData("<{0}:FlashAdRotator runat=""server""> </{0}:WelcomeLabel>")> _
    Public Class FlashAdRotator : Inherits System.Web.UI.WebControls.AdRotator
        Private blnSWF As Boolean
        Private strImgUrl As String
        Private strNavUrl As String
        Private strImageWidth As String
        Private strImageHeight As String

        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
            If Me.blnSWF Then
                Dim StringFormat As StringBuilder = New StringBuilder("<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" ")
                StringFormat.Append("codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"" >")
                StringFormat.Append("  <param name=""movie"" value=""{0}"">")
                StringFormat.Append(" <param name=""quality"" value=""high"">")
                StringFormat.Append("  <embed src=""{1}"" quality=""high"" ")
                StringFormat.Append("  pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash""></embed></object>")

                Dim OutPutString As StringBuilder = New StringBuilder()
                OutPutString.AppendFormat(StringFormat.ToString, Me.strImgUrl, Me.strImgUrl)
                writer.Write(OutPutString.ToString)
            Else
                MyBase.Render(writer)
            End If
        End Sub

        Protected Overrides Sub OnAdCreated(ByVal e As AdCreatedEventArgs)
            MyBase.OnAdCreated(e)
            If e.ImageUrl.ToLower().IndexOf(".swf") <> -1 Then
                Me.blnSWF = True
                Me.strImgUrl = e.ImageUrl
                Me.strNavUrl = e.NavigateUrl
                Me.strImageWidth = e.ImageWidth
                Me.strImageHeight = e.ImageHeight
            Else
                Me.blnSWF = False
            End If
        End Sub
    End Class
End Namespace