# Visual Basic Winforms 簡介 > 原文： [http://zetcode.com/gui/vbwinforms/introduction/](http://zetcode.com/gui/vbwinforms/introduction/) 在 Visual Basic Winforms 編程教程的這一部分中，我們將介紹 Winforms 庫并使用 Visual Basic 編程語言創建第一個程序。 本教程的目的是使您開始使用 Winforms 和 Visual Basic。 可以在此處下載本教程中使用的圖像。 我使用了 Gnome 項目的探戈圖標包中的一些圖標。 ## 關于 Windows 窗體是圖形用戶界面應用編程接口（API），包含在 Microsoft .NET Framework 中。 截至 2008 年 5 月 13 日，Mono 的`System.Windows.Forms` 2.0 已完成 API。 簡而言之，Winforms 是一個用于創建 GUI 應用的庫。 Mono 是一個跨平臺的開源.NET 開發框架。 它是.NET 兼容的工具集，其中包括 C# 編譯器，Visual Basic 編譯器，公共語言運行時，ADO.NET，ASP.NET 和 Winforms 庫。 ```vb vbnc -r:/usr/lib/mono/2.0/System.Windows.Forms.dll quitbutton.vb ``` 上面的命令顯示了如何編譯`quitbutton`示例。 mono VB 編譯器的`-r`參數加載 Winforms 程序集。 這是一個動態庫。 該命令顯示了 Ubuntu 系統上 DLL 庫的路徑。 ## 使窗口居中 在第二個示例中，我們將窗口置于屏幕中央。 ```vb ' ZetCode Mono Visual Basic Winforms tutorial ' ' This program centers a window ' on the screen ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports System.Windows.Forms Imports System.Drawing Public Class WinVBApp Inherits Form Public Sub New Me.Text = "Center" Me.Size = New Size(250, 200) Me.CenterToScreen End Sub Public Shared Sub Main Application.Run(New WinVBApp) End Sub End Class ``` 此代碼示例在屏幕中央顯示一個小窗口。 ```vb Imports System.Windows.Forms Imports System.Drawing ``` `Imports`關鍵字導入我們將在應用中使用的必需品類型。 ```vb Public Class WinVBApp Inherits Form ``` 在 Winforms 中，任何窗口或對話框都是窗體。 該控件是一個基本容器，其目的是顯示其他子控件。 我們的類繼承于一種形式。 這樣，它本身就成為一種形式。 ```vb Public Sub New ... End Sub ``` 在構造器中，我們設置了應用。 ```vb Me.Text = "Center" ``` 在這里，我們為表格設置標題。 ```vb Me.Size = New Size(250, 200) ``` 我們為表單設置大小。 ```vb Me.CenterToScreen ``` 此代碼行使屏幕上的窗口居中。 ```vb Public Shared Sub Main Application.Run(New WinVBApp) End Sub ``` 我們運行示例。 ## 圖標 Mono 在西班牙語中意為猴子。 如果我們不為應用提供圖標，則默認情況下，我們的頭是猴子。 下一個示例顯示如何更改此設置。 ```vb ' ZetCode Mono Visual Basic Winforms tutorial ' ' This program shows an icon in the ' title bar ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports System.Windows.Forms Imports System.Drawing Public Class WinVBApp Inherits Form Public Sub New Me.Text = "Icon" Me.Size = New Size(250, 200) Try Icon = New Icon("web.ico") Catch e As Exception Console.WriteLine(e.Message) Environment.Exit(1) End Try Me.CenterToScreen End Sub Public Shared Sub Main Application.Run(New WinVBApp) End Sub End Class ``` 該代碼示例在窗體的左上角顯示一個圖標。 表單的圖標是代表任務欄中表單的圖片以及為表單的控制框顯示的圖標。 ```vb Try Icon = New Icon("web.ico") Catch e As Exception Console.WriteLine(e.Message) Environment.Exit(1) End Try ``` 最好將所有輸入輸出工作放在`Try/Catch`關鍵字之間。 `web.ico`文件必須在當前工作目錄中可用。 這是我們執行（`./icon.exe`）應用的目錄。  圖：圖標 ## 退出按鈕 在本節的最后一個示例中，我們將創建一個退出按鈕。 當我們按下此按鈕時，應用終止。 ```vb ' ZetCode Mono Visual Basic Winforms tutorial ' ' This program creates a quit ' button. When we press the button, ' the application terminates. ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports System.Windows.Forms Imports System.Drawing Public Class WinVBApp Inherits Form Public Sub New Me.Text = "Quit button" Me.Size = New Size(250, 200) Me.InitUI Me.CenterToScreen End Sub Private Sub InitUI Dim button As New Button button.Location = New Point(30, 20) button.Text = "Quit" button.Parent = Me AddHandler button.Click, AddressOf Me.OnClick Me.CenterToScreen End Sub Private Sub OnClick(ByVal sender As Object, ByVal e As EventArgs) Me.Close End Sub Public Shared Sub Main Application.Run(New WinVBApp) End Sub End Class ``` 我們使用`Button`。 這是一個非常常見的小部件。 它是一個矩形，通常顯示一個文本標簽。 ```vb Me.InitUI ``` 我們將用戶界面的創建委托給`InitUI`方法。 ```vb Dim button As New Button button.Location = New Point(30, 20) button.Text = "Quit" button.Parent = Me ``` 我們創建按鈕小部件。 我們將其放置在表單上。 為其提供標簽，并將其放入表單容器中。 ```vb AddHandler button.Click, AddressOf Me.OnClick ``` 當我們單擊按鈕時，將觸發`Click`事件。 我們使用`OnClick`方法對此事件做出反應。 ```vb Private Sub OnClick(ByVal sender As Object, ByVal e As EventArgs) Me.Close End Sub ``` `OnClick`方法終止應用。  圖：退出按鈕 本節介紹了使用 Visual Basic 語言的 Winforms 庫。