通过托管代码来访问HTML DOM

<Canvas
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="Samples.Silverlight.CS.BasicCanvas;assembly=HtmlDOM1.dll"
x:Name="rootCanvas"
Height="500"
Width="500"
Loaded="OnLoaded"
Background="Red"
>
</Canvas> 

<Canvas x:Name="parentCanvas"
xmlns="http://schemas.microsoft.com/client/2007"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Loaded="OnLoaded"
x:Class="HtmlDOM1.BasicCanvas;assembly=ClientBin/HtmlDOM1.dll"
Width="640"
Height="480"
Background="White"
>
</Canvas>

public void OnLoaded(object sender, EventArgs e)

Public Sub OnLoaded(ByVal sender As Object, ByVal e As EventArgs)

document = HtmlPage.Document;

document = HtmlPage.Document

HtmlElement btnEchoText = document.GetElementByID("btnEchoText");

Dim btnEchoText As HtmlElement = document.GetElementByID("btnEchoText")

bool ec1 = btnEchoText.AttachEvent("onclick", new Eventhanlder<HtmlEventArgs>(this.OnEchoTextClicked));

Dim ec1 As Boolean = btnEchoText.AttachEvent("onclick", AddressOf Me.OnEchoTextClicked)

private void OnEchoTextClicked(object sender, HtmlEventArgs e)

Private Sub OnEchoTextClicked(ByVal sender As Object, ByVal e As HtmlEventArgs)

string outputText = HtmlPage.DocumentUri.AbsolutePath + " - " + HtmlPage.CurrentBookmark;

Dim outputText As String = HtmlPage.DocumentUri.AbsolutePath & " - " & _
HtmlPage.CurrentBookmark

document.GetElementByID("txtOutputProperties").SetAttribute("value", outputText);

document.GetElementByID("txtOutputProperties").SetAttribute("value", outputText)

private void OnJump(object sender, EventArgs e)
{
HtmlPage.Navigate("http://www.msn.com");
}

Private Sub OnJump(ByVal sender As Object, ByVal e As EventArgs)
HtmlPage.Navigate("http://www.msn.com")
End Sub