# Visual Basic GTK# 簡介 > 原文： [http://zetcode.com/gui/vbgtk/introduction/](http://zetcode.com/gui/vbgtk/introduction/) 在 Visual Basic GTK# 編程教程的這一部分中，我們將介紹 GTK# 庫，并使用 Visual Basic 編程語言創建第一個程序。 本教程的目的是使您開始使用 GTK# 和 Visual Basic。 可以在此處下載本教程中使用的圖像。 我使用了 Gnome 項目的探戈圖標包中的一些圖標。 ## 關于 GTK# 是一個庫，提供 GTK+ 與 Mono .NET 語言（如 C# 或 Visual Basic）的綁定。 GTK+ 是用于創建圖形用戶界面的領先工具包之一。 GTK# 和 Visual Basic 都是 Mono 開發平臺的一部分。 ```vb vbnc -r:/usr/lib/mono/gtk-sharp-2.0/gtk-sharp.dll quitbutton.vb ``` 上面的命令顯示了如何編譯`quitbutton`示例。 mono VB 編譯器的`-r`參數加載 GTK# 程序集。 這是一個動態庫。 該命令顯示了 Ubuntu 系統上 dll 庫的路徑。 ## 簡單的例子 在第一個示例中，我們創建一個簡單的窗口。 窗口在屏幕上居中。 ```vb ' ZetCode Mono Visual Basic GTK# tutorial ' ' This program centers a window on ' the screen ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports Gtk Public Class GtkVBApp Inherits Window Public Sub New MyBase.New("Center") Me.SetDefaultSize(250, 150) Me.SetPosition(WindowPosition.Center) AddHandler Me.DeleteEvent, AddressOf Me.OnDeleteEvent Me.Show End Sub Sub OnDeleteEvent(ByVal sender as Object, _ ByVal args as DeleteEventArgs) Application.Quit End Sub Public Shared Sub Main Application.Init Dim app As New GtkVBApp Application.Run End Sub End Class ``` 本示例在屏幕中央顯示一個`250x150`像素的窗口。 ```vb Imports Gtk ``` `Imports`關鍵字導入我們將在應用中使用的必需品類型。 ```vb Public Class GtkVBApp Inherits Window ``` 該示例繼承自`Window`。 窗口是頂級容器。 ```vb MyBase.New("Center") ``` 在這里，我們稱為父級的構造器。 ```vb Me.SetDefaultSize(250, 150) ``` 我們為應用窗口設置默認大小。 ```vb Me.SetPosition(WindowPosition.Center) ``` 這條線使窗口在屏幕上居中。 ```vb AddHandler Me.DeleteEvent, AddressOf Me.OnDeleteEvent ``` 我們將處理器插入`DeleteEvent`。 ```vb Me.Show ``` 一切準備就緒后，我們在屏幕上顯示窗口。 ```vb Sub OnDeleteEvent(ByVal sender as Object, _ ByVal args as DeleteEventArgs) Application.Quit End Sub ``` 當我們單擊標題欄中的關閉按鈕或按 `Alt + F4` 時，事件被觸發。 該方法永久退出該應用。 ```vb Application.Init Dim app As New GtkVBApp Application.Run ``` 這三行設置了應用。 ## 創建工具提示 第二個示例將顯示一個工具提示。 工具提示是一個小的矩形窗口，它提供有關對象的簡短信息。 它通常是一個 GUI 組件。 它是應用幫助系統的一部分。 ```vb ' ZetCode Mono Visual Basic GTK# tutorial ' ' This program shows a tooltip ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports Gtk Public Class GtkVBApp Inherits Window Public Sub New MyBase.New("Tooltip") Me.SetDefaultSize(250, 150) Me.SetPosition(WindowPosition.Center) AddHandler Me.DeleteEvent, AddressOf Me.OnDeleteEvent Me.TooltipText = "This is a Window" Me.Show End Sub Sub OnDeleteEvent(ByVal sender as Object, _ ByVal args as DeleteEventArgs) Application.Quit End Sub Public Shared Sub Main Application.Init Dim app As New GtkVBApp Application.Run End Sub End Class ``` 該示例創建一個窗口。 如果將鼠標指針懸停在窗口區域上方，則會彈出一個工具提示。 ```vb Me.TooltipText = "This is a Window" ``` 我們通過`TooltipText`屬性設置工具提示。  圖：工具提示 ## 退出按鈕 在本節的最后一個示例中，我們將創建一個退出按鈕。 當我們按下此按鈕時，應用終止。 ```vb ' ZetCode Mono Visual Basic GTK# 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 Gtk Public Class GtkVBApp Inherits Window Public Sub New MyBase.New("Quit button") Me.InitUI Me.SetDefaultSize(250, 150) Me.SetPosition(WindowPosition.Center) AddHandler Me.DeleteEvent, AddressOf Me.OnDelete Me.ShowAll End Sub Private Sub InitUI Dim quitButton As New Button("Quit") quitButton.SetSizeRequest(80, 30) AddHandler quitButton.Clicked, AddressOf Me.OnQuit Dim fix As New Fixed fix.Put(quitButton, 50, 50) Me.Add(fix) End Sub Sub OnQuit(ByVal sender As Object, _ ByVal args As EventArgs) Application.Quit End Sub Sub OnDelete(ByVal sender As Object, _ ByVal args As DeleteEventArgs) Application.Quit End Sub Public Shared Sub Main Application.Init Dim app As New GtkVBApp Application.Run End Sub End Class ``` 我們使用`Button`小部件。 這是一個非常常見的小部件。 它顯示文本標簽，圖像或兩者。 ```vb Me.InitUI ``` 我們將用戶界面的創建委托給`InitUI`方法。 ```vb Me.ShowAll ``` 我們有兩個選擇。 在所有小部件上調用`Show`，或調用`ShowAll`（顯示容器及其所有子代）。 ```vb Dim quitButton As New Button("Quit") ``` 在這里，我們創建一個按鈕小部件。 ```vb quitButton.SetSizeRequest(80, 30) ``` 我們為按鈕設置大小。 ```vb AddHandler quitButton.Clicked, AddressOf Me.OnQuit ``` 我們將`OnQuit`方法插入按鈕`Clicked`事件。 ```vb Dim fix As New Fixed fix.Put(quitButton, 50, 50) ``` 我們將退出按鈕放入`x = 50`，`y = 50`的固定容器中。 ```vb Sub OnQuit(ByVal sender As Object, _ ByVal args As EventArgs) Application.Quit End Sub ``` 在`OnQuit`方法內部，我們終止了該應用。  圖：退出按鈕 本節介紹了使用 Visual Basic 語言的 GTK# 庫。