眉標=Silverlight 2.0、ASP.NET、.xap
#副標=Silverlight開發技術（16）
#大標=把Silverlight封裝為ASP.NET Web控制項
#作者=文／圖	董大偉


程式一：
Imports System.Web.UI.SilverlightControls

<DefaultProperty("Text"), ToolboxData("<{0}:SilverlightBMIControl runat=server></{0}:SilverlightBMIControl>")> _
Public Class SilverlightBMIControl
    Inherits System.Web.UI.SilverlightControls.Silverlight



程式二：
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

<Assembly: AssemblyTitle("SilverlightBMI")> 
<Assembly: AssemblyDescription("")> 
<Assembly: AssemblyProduct("SilverlightBMI")> 
<Assembly: AssemblyTrademark("")> 
<Assembly: System.Web.UI.WebResource("SilverlightBMI.BasicBMI.xap", "image/gif")> 
<Assembly: ComVisible(False)>
(…略…)
　




程式三：
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.SilverlightControls

<DefaultProperty("Text"), ToolboxData("<{0}:SilverlightBMIControl runat=server></{0}:SilverlightBMIControl>")> _
Public Class SilverlightBMIControl
    Inherits System.Web.UI.SilverlightControls.Silverlight
  (…略…)
    Protected Overrides Sub RenderContents(ByVal output As HtmlTextWriter)
        Me.Source = Page.ClientScript.GetWebResourceUrl(Me.GetType(), "SilverlightBMI.BasicBMI.xap")
        output.Write(Text)
    End Sub

    Public Sub New()
        Me.Width = Unit.Pixel(312)
        Me.Height = Unit.Pixel(200)
    End Sub
End Class