# Qyoto 介紹 > 原文： [http://zetcode.com/gui/vbqyoto/introduction/](http://zetcode.com/gui/vbqyoto/introduction/) 在 Visual Basic Qyoto 編程教程的這一部分中，我們將介紹 Qyoto 庫并使用 Visual Basic 編程語言創建第一個 Qyoto 程序。 本教程的目的是幫助您開始使用 Qyoto 和 Visual Basic。 可以在此處下載本教程中使用的圖像。 我使用了 Gnome 項目的探戈圖標包中的一些圖標。 ## 關于 `Qyoto`是一個庫，提供 Qt 庫與.NET 語言（如 C# 或 Visual Basic）的綁定。 Qt 是功能強大的跨平臺應用開發框架。 它的母語是 C++ 。 Qyoto 是 KDE 桌面環境的一部分。 ```vb vbnc -r:/usr/lib/cli/qyoto-4.3/qt-dotnet.dll quitbutton.vb ``` 上面的命令顯示了如何編譯`quitbutton`示例。 mono VB 編譯器的`-r`參數加載 Qt 程序集。 這是一個動態庫。 該命令顯示了 Ubuntu 系統上 dll 庫的路徑。 ## 創建工具提示 第一個示例將顯示一個工具提示。 工具提示是一個小的矩形窗口，它提供有關對象的簡短信息。 它通常是一個 GUI 組件。 它是應用幫助系統的一部分。 ```vb ' ZetCode Mono Visual Basic Qt tutorial ' ' This program displays ' a tooltip ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports Qyoto Public Class VBQApp Inherits QWidget Public Sub New() Me.InitUI() End Sub Private Sub InitUI() Me.Tooltip = "This is QWidget" Me.SetWindowTitle("Tooltip") Me.Resize(250, 150) Me.Move(300, 300) Me.Show() End Sub Public Shared Sub Main(ByVal args() As String) Dim qapp As New QApplication(args) Dim app As New VBQApp QApplication.Exec() End Sub End Class ``` 該示例創建一個窗口。 如果將鼠標指針懸停在窗口區域上方，則會彈出一個工具提示。 ```vb Imports Qyoto ``` `Imports`關鍵字導入我們將在應用中使用的必要類型。 ```vb Public Class VBQApp Inherits QWidget ``` 該示例繼承自`QWidget`。 QWidget 類是所有用戶界面對象的基類。 小部件是用戶界面的原子。 它從窗口系統接收鼠標，鍵盤和其他事件。 ```vb Me.SetWindowTitle("Tooltip") ``` 此方法調用為窗口創建標題。 ```vb Me.Tooltip = "This is QWidget" ``` 我們通過`ToolTip`屬性設置工具提示。 ```vb Me.Resize(250, 150) ``` 在這里，我們設置窗口的寬度和高度。 ```vb Me.Move(300, 300) ``` `Move()`方法在屏幕上移動窗口。 ```vb Me.Show() ``` 一切準備就緒后，我們在屏幕上顯示窗口。 ```vb Dim qapp As New QApplication(args) Dim app As New VBQApp QApplication.Exec() ``` 這三行設置了應用。  圖：工具提示 ## 使窗口居中 在第二個示例中，我們將窗口置于屏幕中央。 ```vb ' ZetCode Mono Visual Basic Qt tutorial ' ' This program centers a window ' on the screen ' ' author jan bodnar ' last modified May 2009 ' website www.zetcode.com Imports Qyoto Public Class VBQApp Inherits QWidget Dim WIDTH As Integer = 250 Dim HEIGHT As Integer = 150 Public Sub New() Me.InitUI() End Sub Private Sub InitUI() Dim qdw As New QDesktopWidget Dim screenWidth As Integer = qdw.Width() Dim screenHeight As Integer = qdw.Height() Dim x As Integer = (screenWidth - WIDTH) / 2 Dim y As Integer = (screenHeight - HEIGHT) / 2 Me.SetWindowTitle("Center") Me.Resize(WIDTH, HEIGHT) Me.Move(x, y) Me.Show() End Sub Public Shared Sub Main(ByVal args() As String) Dim qapp As New QApplication(args) Dim app As New VBQApp QApplication.Exec() End Sub End Class ``` Qyoto 沒有使窗口居中的單一方法。 ```vb Dim WIDTH As Integer = 250 Dim HEIGHT As Integer = 150 ``` 這兩個常數定義了應用窗口的寬度和高度。 ```vb Dim qdw As New QDesktopWidget ``` `QDesktopWidget`類提供有關屏幕的信息。 ```vb Dim screenWidth As Integer = qdw.Width() Dim screenHeight As Integer = qdw.Height() ``` 在這里，我們確定屏幕的寬度和高度。 ```vb Dim x As Integer = (screenWidth - WIDTH) / 2 Dim y As Integer = (screenHeight - HEIGHT) / 2 ``` 在這里，我們計算居中窗口的 x，y 坐標。 為了使窗口在屏幕上居中，我們需要知道屏幕的大小和窗口的大小。 ```vb Me.Move(x, y) ``` 我們將窗口移至計算出的 x，y 坐標。 ## 退出按鈕 在本節的最后一個示例中，我們將創建一個退出按鈕。 當我們按下此按鈕時，應用終止。 ```vb ' ZetCode Mono Visual Basic Qt 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 Qyoto Public Class VBQApp Inherits QWidget Public Sub New() Me.SetWindowTitle("Quit button") Me.InitUI() Me.Resize(250, 150) Me.Move(300, 300) Me.Show() End Sub Private Sub InitUI() Dim quit As New QPushButton("Quit", Me) Connect(quit, SIGNAL("clicked()"), qApp, SLOT("quit()")) quit.Move(30, 30) End Sub Public Shared Sub Main(ByVal args() As String) Dim qapp As New QApplication(args) Dim app As New VBQApp QApplication.Exec() End Sub End Class ``` 我們使用`QPushButton`。 這是一個非常常見的小部件。 它是矩形的，通常顯示一個文本標簽。 ```vb Me.InitUI() ``` 我們將用戶界面的創建委托給`InitUI()`方法。 ```vb Dim quit As New QPushButton("Quit", Me) ``` 我們創建按鈕小部件。 構造器的第一個參數是標簽，按鈕將顯示該標簽。 第二個參數是按鈕的父窗口小部件。 ```vb Connect(quit, SIGNAL("clicked()"), qApp, SLOT("quit()")) ``` 當我們點擊按鈕時，會發出`clicked()`信號。 `Connect()`方法將信號連接到對象的特定槽。 該方法的第一個參數是接收信號的對象。 在我們的例子中，它是應用對象。 第二個參數是方法，稱為。 在我們的情況下，它是應用對象的`quit()`方法。 `qApp`是對應用對象的全局引用。  圖：退出按鈕 本節介紹了使用 Visual Basic 語言的 Qyoto 庫。