{% raw %}

Qyoto 中的小部件

原文： http://zetcode.com/gui/vbqyoto/widgets/

在 Visual Basic Qyoto 编程教程的这一部分中，我们将介绍 Qyoto 小部件。

小部件是 GUI 应用的基本构建块。 多年来，几个小部件已成为所有 OS 平台上所有工具包中的标准。 例如，按钮，复选框或滚动条。 Qyoto 有一组丰富的小部件，可以满足大多数编程需求。 可以将更多专门的窗口小部件创建为自定义窗口小部件。

QCheckBox

QCheckBox是具有两种状态的窗口小部件：开和关。 开状态通过复选标记显示。 它用来表示一些布尔属性。 QCheckBox小部件提供一个带有文本标签的复选框。

  1. ' ZetCode Mono Visual Basic Qt tutorial
  3. ' This program toggles the title of the
  4. ' window with the QCheckBox widget
  5. '
  6. ' author jan bodnar
  7. ' last modified April 2009
  8. ' website www.zetcode.com
  10. Imports Qyoto
  12. Public Class VBQApp 
  13.     Inherits QWidget
  15.     Public Sub New()
  17.         Me.SetWindowTitle("QCheckBox")
  19.         Me.InitUI()
  21.         Me.Resize(250, 200)
  22.         Me.Move(300, 300)
  23.         Me.Show()
  25.     End Sub
  27.     Private Sub InitUI()
  29.         Dim cb As New QCheckBox("Show title", Me)
  30.         cb.Move(50, 50)
  31.         cb.SetCheckState(True)
  32.         Connect(cb, SIGNAL("clicked(bool)"), Me, SLOT("OnToggle(bool)"))
  34.     End Sub
  36.     <Q_SLOT()> _
  37.     Private Sub OnToggle(ByVal state As Boolean)
  39.         If state
  40.              Me.SetWindowTitle("QCheckBox")
  41.         Else
  42.              Me.SetWindowTitle("")
  43.         End If
  45.     End Sub
  47.     Public Shared Sub Main(ByVal args() As String)
  48.         Dim qapp As New QApplication(args)
  49.         Dim app As New VBQApp
  50.         QApplication.Exec()
  51.     End Sub
  53. End Class

在我们的示例中，我们在窗口上放置了一个复选框。 复选框显示/隐藏窗口的标题。

  1. Me.SetWindowTitle("QCheckBox")

在构建窗口期间，我们为窗口设置标题。

  1. Dim cb As New QCheckBox("Show title", Me)

QCheckBox小部件已创建。 构造器的第一个参数是其文本标签。 第二个参数是父窗口小部件。

  1. cb.SetCheckState(True)

标题在应用的开始处可见。 因此，也必须选中该复选框。 我们使用SetCheckState()方法来选中该复选框。

  1. Connect(cb, SIGNAL("clicked(bool)"), Me, SLOT("OnToggle(bool)"))

当我们单击复选框时，将发出clicked(bool)信号。 发出信号时，我们触发OnToggle()方法。

  1. <Q_SLOT()> _
  2. Private Sub OnToggle(ByVal state As Boolean)
  3. ...
  4. End Sub

方法定义之前带有Q_SLOT()属性。 此属性通知编译器有关自定义槽的信息。

  1. If state
  2.     Me.SetWindowTitle("QCheckBox")
  3. Else
  4.     Me.SetWindowTitle("")
  5. End If

根据复选框的状态，我们显示或隐藏窗口的标题。

300.md - 图1

图：QCheckBox

QLabel

QLabel小部件用于显示文本或图像。 没有用户交互。

  1. ' ZetCode Mono Visual Basic Qt tutorial
  2. '
  3. ' This program shows lyrics on the
  4. ' window
  5. '
  6. ' author jan bodnar
  7. ' last modified April 2009
  8. ' website www.zetcode.com
  10. Imports Qyoto
  12. Public Class VBQApp 
  13.     Inherits QWidget
  15.     Public Sub New()
  17.         Me.SetWindowTitle("You know I'm no Good")
  19.         Me.InitUI()
  21.         Me.Resize(250, 200)
  22.         Me.Move(300, 300)
  23.         Me.Show()
  25.     End Sub
  27.     Private Sub InitUI()
  29.         Dim text As String
  30.         text = "Meet you downstairs in the bar and heard" + vbNewLine + _
  31. "your rolled up sleeves and your skull t-shirt" + vbNewLine + _
  32. "You say why did you do it with him today?" + vbNewLine + _
  33. "and sniff me out like I was Tanqueray" + vbNewLine + _
  34. "" + vbNewLine + _
  35. "cause you're my fella, my guy" + vbNewLine + _
  36. "hand me your stella and fly" + vbNewLine + _
  37. "by the time I'm out the door" + vbNewLine + _
  38. "you tear men down like Roger Moore" + vbNewLine + _
  39. "" + vbNewLine + _
  40. "I cheated myself" + vbNewLine + _
  41. "like I knew I would" + vbNewLine + _
  42. "I told ya, I was trouble" + vbNewLine + _
  43. "you know that I'm no good" 
  45.         Dim label As New QLabel(text, Me)
  46.         label.Font = New QFont("Purisa", 9)
  48.         Dim vbox As New QVBoxLayout()
  49.         vbox.AddWidget(label)
  50.         SetLayout(vbox)
  52.     End Sub
  54.     Public Shared Sub Main(ByVal args() As String)
  55.         Dim qapp As New QApplication(args)
  56.         Dim app As New VBQApp
  57.         QApplication.Exec()
  58.     End Sub
  60. End Class

我们的示例在窗口中显示了歌曲的歌词。

  1. Dim text As String
  2. text = "Meet you downstairs in the bar and heard" + vbNewLine + _
  3. "your rolled up sleeves and your skull t-shirt" + vbNewLine + _
  4. ...

我们定义了多行文字。 与 C# ，Python 或 Ruby 不同，没有简单的结构可以用 Visual Basic 语言创建多行文本。 若要在 Visual Basic 中创建多行文本，我们使用vbNewLine打印常量，+连接字符和_行终止字符。

  1. Dim label As New QLabel(text, Me)
  2. label.Font = New QFont("Purisa", 9)

我们创建标签小部件并更改其字体。

  1. Dim vbox As New QVBoxLayout()
  2. vbox.AddWidget(label)
  3. SetLayout(vbox)

代替手动编码标签的位置和大小，我们将标签放入盒子布局中。

300.md - 图2

图：QLabel

QLineEdit

QLineEdit是一个小部件，允许输入和编辑单行纯文本。 QLineEdit小部件具有撤消/重做，剪切/粘贴和拖放功能。

  1. ' ZetCode Mono Visual Basic Qt tutorial
  2. '
  3. ' This program demonstrates the 
  4. ' QLineEdit widget. Text entered in the QLineEdit
  5. ' widget is shown in a QLabel widget.
  6. '
  7. ' author jan bodnar
  8. ' last modified April 2009
  9. ' website www.zetcode.com
  11. Imports Qyoto
  13. Public Class VBQApp 
  14.     Inherits QWidget
  16.     Dim label As QLabel
  18.     Public Sub New()
  20.         Me.InitUI()
  22.         Me.SetWindowTitle("QLineEdit")
  23.         Me.Resize(250, 200)
  24.         Me.Move(300, 300)
  25.         Me.Show()
  27.     End Sub
  29.     Private Sub InitUI()
  31.         label = New QLabel(Me)
  33.         Dim edit As New QLineEdit(Me)
  34.         Connect(edit, SIGNAL("textChanged(QString)"), Me, _
  35.             SLOT("OnChanged(QString)"))
  37.         edit.Move(60, 100)
  38.         label.Move(60, 40)
  40.     End Sub
  42.     <Q_SLOT()> _
  43.     Private Sub OnChanged(ByVal text As String)
  45.         label.SetText(text)
  46.         label.AdjustSize()
  48.     End Sub
  50.     Public Shared Sub Main(ByVal args() As String)
  51.         Dim qapp As New QApplication(args)
  52.         Dim app As New VBQApp
  53.         QApplication.Exec()
  54.     End Sub
  56. End Class

在我们的示例中，我们显示了两个小部件。 行编辑和标签小部件。 输入到行编辑中的文本显示在标签窗口小部件中。

  1. Dim edit As New QLineEdit(Me)

QLineEdit小部件已创建。

  1. Connect(edit, SIGNAL("textChanged(QString)"), Me, _
  2.     SLOT("OnChanged(QString)"))

当我们在行编辑中键入或删除某些文本时，将触发OnChanged()方法。 该方法采用字符串参数。

  1. <Q_SLOT()> _
  2. Private Sub OnChanged(ByVal text As String)
  4.     label.SetText(text)
  5.     label.AdjustSize()
  7. End Sub

在OnChanged()方法中，我们将行编辑的内容设置为标签窗口小部件。 AdjustSize()方法确保所有文本都是可见的。

300.md - 图3

图：QLineEdit小部件

ToggleButton

切换按钮是设置了可检查标志的按钮。 切换按钮是具有两种状态的按钮。 已按下但未按下。 通过单击可以在这两种状态之间切换。 在某些情况下此功能非常合适。

  1. ' ZetCode Mono Visual Basic Qt tutorial
  2. '
  3. ' This program uses toggle buttons to 
  4. ' change the background color of
  5. ' a widget
  6. '
  7. ' author jan bodnar
  8. ' last modified April 2009
  9. ' website www.zetcode.com
  11. Imports Qyoto
  13. Public Class VBQApp 
  14.     Inherits QWidget
  16.     Dim square As QWidget
  17.     Dim color As QColor
  19.     Dim redb As QPushButton
  20.     Dim greenb As QPushButton
  21.     Dim blueb As QPushButton
  23.     Public Sub New()
  25.         Me.InitUI()
  27.         Me.SetWindowTitle("Toggle buttons")
  28.         Me.Resize(350, 240)
  29.         Me.Move(300, 300)
  30.         Me.Show()
  32.     End Sub
  34.     Private Sub InitUI()
  36.         color = New QColor()
  38.         redb = New QPushButton("Red", Me)
  39.         redb.Checkable = True
  40.         greenb = New QPushButton("Green", Me)
  41.         greenb.Checkable = True
  42.         blueb = New QPushButton("Blue", Me)
  43.         blueb.Checkable = True
  45.         Connect(redb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))
  46.         Connect(greenb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))
  47.         Connect(blueb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))
  49.         square = New QWidget(Me)
  50.         square.SetStyleSheet("QWidget { background-color: black }")
  52.         redb.Move(30, 30)
  53.         greenb.Move(30, 80)
  54.         blueb.Move(30, 130)
  55.         square.SetGeometry(150, 25, 150, 150)
  57.     End Sub
  59.     <Q_SLOT()> _
  60.     Private Sub OnToggled()
  62.         Dim red As Integer = color.Red()
  63.         Dim green As Integer = color.Green()
  64.         Dim blue As Integer = color.Blue()
  66.         If redb.Checked 
  67.             red = 255
  68.         Else 
  69.             red = 0
  70.         End If
  72.         If greenb.Checked
  73.             green = 255
  74.         Else 
  75.             green = 0
  76.         End If
  78.         If blueb.Checked
  79.             blue = 255
  80.         Else 
  81.             blue = 0
  82.         End If
  84.         color = New QColor(red, green, blue)
  86.         Dim sheet As String = String.Format("QWidget {{ background-color: {0} }}", _
  87.             color.Name())
  88.         square.SetStyleSheet(sheet)
  90.     End Sub
  92.     Public Shared Sub Main(ByVal args() As String)
  93.         Dim qapp As New QApplication(args)
  94.         Dim app As New VBQApp
  95.         QApplication.Exec()
  96.     End Sub
  98. End Class

在代码示例中，我们使用三个切换按钮来更改矩形小部件的颜色。

  1. Dim square As QWidget
  2. Dim color As QColor
  4. Dim redb As QPushButton
  5. Dim greenb As QPushButton
  6. Dim blueb As QPushButton

我们定义了五个对象。 正方形小部件是QWidget，它显示颜色。 color变量用于保存颜色值。 这三个按钮是切换按钮，用于混合颜色值。

  1. redb = New QPushButton("Red", Me)
  2. redb.Checkable = True

我们创建一个QPushButton小部件。 Checkable属性将按钮更改为切换按钮。

  1. Connect(redb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))
  2. Connect(greenb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))
  3. Connect(blueb, SIGNAL("toggled(bool)"), Me, SLOT("OnToggled()"))

所有三个按钮都插入到一个方法调用中，即OnToggled()方法。

  1. square = New QWidget(Me)
  2. square.SetStyleSheet("QWidget { background-color: black }")

我们创建方形小部件。 一开始是黑色的。 在 Qyoto 中，我们使用样式表来自定义小部件的外观。

在OnToggled()方法内部，我们确定颜色值并将正方形小部件更新为新颜色。

  1. Dim red As Integer = color.Red()
  2. Dim green As Integer = color.Green()
  3. Dim blue As Integer = color.Blue()

在这里，我们确定方形小部件的当前颜色。

  1. If redb.Checked 
  2.     red = 255
  3. Else 
  4.     red = 0
  5. End If

根据红色切换按钮的状态，更改颜色的红色部分。

  1. color = New QColor(red, green, blue)

我们创建一个新的颜色值。

  1. Dim sheet As String = String.Format("QWidget {{ background-color: {0} }}", _
  2.     color.Name())

我们使用 Visual Basic 格式对象创建适当的样式表。

  1. square.SetStyleSheet(sheet)

正方形的颜色已更新。

300.md - 图4

图：开关按钮

QComboBox

QComboBox是一个小部件，允许用户从选项列表中进行选择。 这是一个显示当前项目的选择小部件，可以弹出可选择项目的列表。 组合框可能是可编辑的。 它以占用最少屏幕空间的方式向用户显示选项列表。

  1. ' ZetCode Mono Visual Basic Qt tutorial
  2. '
  3. ' In this program, we use the QComboBox
  4. ' widget to select an option. 
  5. ' The selected option is shown in the
  6. ' QLabel widget
  7. '
  8. ' author jan bodnar
  9. ' last modified April 2009
  10. ' website www.zetcode.com
  12. Imports Qyoto
  14. Public Class VBQApp 
  15.     Inherits QWidget
  17.     Dim label As QLabel
  19.     Public Sub New()
  21.         Me.SetWindowTitle("QComboBox")
  23.         Me.InitUI()
  25.         Me.Resize(250, 200)
  26.         Me.Move(300, 300)
  27.         Me.Show()
  29.     End Sub
  31.     Private Sub InitUI()
  33.         label = New QLabel("Ubuntu", Me)
  35.         Dim combo As New QComboBox(Me)
  36.         combo.AddItem("Ubuntu")
  37.         combo.AddItem("Mandriva")
  38.         combo.AddItem("Fedora")
  39.         combo.AddItem("Red Hat")
  40.         combo.AddItem("Gentoo")
  42.         combo.Move(50, 30)
  43.         label.Move(50, 100)
  45.         Connect(combo, SIGNAL("activated(QString)"), _
  46.                  Me, SLOT("OnActivated(QString)"))
  48.     End Sub
  50.     <Q_SLOT()> _
  51.     Private Sub OnActivated(ByVal text As String)
  53.         label.SetText(text)
  54.         label.AdjustSize()
  56.     End Sub
  58.     Public Shared Sub Main(ByVal args() As String)
  59.         Dim qapp As New QApplication(args)
  60.         Dim app As New VBQApp
  61.         QApplication.Exec()
  62.     End Sub
  64. End Class

在我们的代码示例中，我们有两个小部件。 组合框和标签小部件。 从组合框中选择的选项显示在标签中。

  1. label = New QLabel("Ubuntu", Me)

这是一个标签，它将显示组合框中当前选择的选项。

  1. Dim combo As New QComboBox(Me)

我们创建QComboBox小部件的实例。

  1. combo.AddItem("Ubuntu")
  2. combo.AddItem("Mandriva")
  3. combo.AddItem("Fedora")
  4. combo.AddItem("Red Hat")
  5. combo.AddItem("Gentoo")

组合框将填充值。

  1. Connect(combo, SIGNAL("activated(QString)"), _
  2.           Me, SLOT("OnActivated(QString)"))

当我们从组合框中选择一个选项时，将触发OnActivated()方法。

  1. <Q_SLOT()> _
  2. Private Sub OnActivated(ByVal text As String)
  4.     label.SetText(text)
  5.     label.AdjustSize()
  7. End Sub

在OnActivated()方法中，我们将标签小部件更新为从组合框中选择的当前字符串。

300.md - 图5

图：QComboBox小部件

在 Visual Basic Qyoto 教程的这一部分中，我们介绍了几个 Qyoto 小部件。

{% endraw %}