XAMLVs。 VB.NET

この章では、VB.Netに精通している人もXAMLの利点を理解できるように、VB.Netで同じ例を作成します。

XAMLで書かれた同じ例をもう一度見てみましょう-

<Window x:Class = "XAMLVsCode.MainWindow"
   xmlns = "http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   xmlns:x = "http://schemas.microsoft.com/winfx/2006/xaml" Title = "MainWindow" Height = "350" Width = "604">

   <StackPanel>
      <TextBlock Text = "Welcome to XAML Tutorial with VB.net" Height = "20" Width = "220" Margin = "5"/>
      <Button Content = "Ok" Height = "20" Width = "60" Margin = "5"/>
   </StackPanel>

</Window>

この例では、ボタンとテキストブロックを含むスタックパネルを作成し、ボタン、および高さ、幅、マージンなどのテキストブロックのプロパティの一部を定義しました。上記のコードをコンパイルして実行すると、次の出力が生成されます-

Xaml Vb.net

今VB.Netで書かれている同じコードを見てください-

Public Class MainWindow
   Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
      Dim panel As New StackPanel()
      panel.Orientation = Orientation.Vertical
      Me.Content = panel
      Dim txtInput As New TextBlock

      txtInput.Text = "Welcome to XAML Tutorial with VB.net"
      txtInput.Width = 220
      txtInput.Height = 20
      txtInput.Margin = New Thickness(5)

      panel.Children.Add(txtInput)
      Dim btn As New Button()

      btn.Content = "Ok"
      btn.Width = 60
      btn.Height = 20
      btn.Margin = New Thickness(5)

      panel.Children.Add(btn)
   End Sub
End Class

上記のコードをコンパイルして実行すると、出力はXAMLコードの出力とまったく同じになります。

Xaml Vb.Net

VB.Netと比較して、XAMLを使用することがいかに簡単かを視覚化できます。

上記の例では、XAMLで実行できることは、C＃やVB.Netなどの他の手続き言語でも実行できることがわかりました。

XAMLとVB.Netの両方を使用する別の例を見てみましょう。 XAMLでGUIを設計し、VB.Netで動作を実装します。

この例では、ボタンがメインウィンドウに追加されます。ユーザーがこのボタンをクリックすると、メッセージボックスにメッセージが表示されます。以下は、ボタンオブジェクトがいくつかのプロパティで宣言されているXAMLのコードです。

<Window x:Class="MainWindow"
   xmlns = "http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   xmlns:x = "http://schemas.microsoft.com/winfx/2006/xaml" Title = "MainWindow" Height = "350" Width = "604">

   <Grid>
      <Button Name = "btn" HorizontalAlignment = "Center" Width = "60" Height = "30" Content = "Click Me"/>
   </Grid>

</Window>

VB.Netでは、ボタンクリックイベント（動作）が実装されています。このイベントは、メッセージボックスにメッセージを表示します。

Public Class MainWindow
   Private Sub btn_Click(sender As Object, e As RoutedEventArgs) Handles btn.Click
      MessageBox.Show("Button is Clicked")
   End Sub
End Class

上記のコードをコンパイルして実行すると、次の画面が表示されます-

メッセージボックス

次に、「Click Me」という上記のボタンをクリックします。次のメッセージが表示されます-

クリックミー

Xaml-vs-vb.net

XAMLVs。 VB.NET