#眉標=Silverlight
#副標=Silverlight開發技術（8）
#大標=Silverlight 2.0 beta閃耀登場
#作者=文／圖	董大偉


==<box>===========
程式1
        <Button x:Name="Button1" Click="Button_Click" Height="24" 
                HorizontalAlignment="Left" Margin="46,0,0,78" 
                VerticalAlignment="Bottom" Width="70" 
                Content="Button"/>
==<end>==============
　　



　　
==<box>===========
程式2
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.Button1.Content = "中文按鈕"
    End Sub
==<end>==============
　　


　　
==<box>===========
程式3
    '定義Web Services
    Dim WithEvents ws1 As New WebServiceReference1.WebServiceTestSoapClient
    '按下Silverlight 按鈕
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        '以非同不方式調用Web Services
        ws1.HelloWorldAsync()
    End Sub

    '非同步調用Web Services完成
    Private Sub ws1_HelloWorldCompleted(ByVal sender As Object, ByVal e As WebServiceReference1.HelloWorldCompletedEventArgs) Handles ws1.HelloWorldCompleted
        '將按鈕上的文字設為Web Services回傳值
        Me.Button1.Content = e.Result.ToString()
    End Sub
==<end>==============
　　



　　
==<反灰>===========
System.Windows.Browser.HtmlPage.Window.Eval(JavaScript); 
==<end>==============