XAML - 与 VB.NET 代码

• 

  简述

  在本章中，我们将在 VB.Net 中编写相同的示例，以便熟悉 VB.Net 的人也可以了解 XAML 的优点。

  让我们再看一下用 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> 
  

  在此示例中，我们创建了一个带有按钮和文本块的堆栈面板，并定义了按钮和文本块的一些属性，例如高度、宽度和边距。当上面的代码被编译并执行时，它将产生以下输出 -

  

  现在看看用 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 相比是多么简单。

  在上面的示例中，我们已经看到我们可以在 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" HorizontalMoognment = "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 
  

  编译并执行上述代码后，将显示以下屏幕 -

  

  现在点击上面写着“点击我”的按钮。它将显示以下消息 -