原文： http://zetcode.com/gui/vbgtk/dialogs/

在 Visual Basic GTK# 编程教程的这一部分中，我们将介绍对话框。

对话框窗口或对话框是大多数现代 GUI 应用必不可少的部分。 对话被定义为两个或更多人之间的对话。 在计算机应用中，对话框是一个窗口，用于与应用“对话”。 对话框用于输入数据，修改数据，更改应用设置等。对话框是用户与计算机程序之间进行通信的重要手段。

MessageDialog

消息对话框是方便的对话框，可向应用的用户提供消息。 该消息包含文本和图像数据。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program shows message dialogs.
  4. '
  5. ' author jan bodnar
  6. ' last modified May 2009
  7. ' website www.zetcode.com
  9. Imports Gtk
  11. Public Class GtkVBApp
  12.     Inherits Window
  14.     Public Sub New
  16.         MyBase.New("Message dialogs")
  18.         Me.InitUI
  20.         Me.SetDefaultSize(250, 100)
  21.         Me.SetPosition(WindowPosition.Center)
  22.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  24.         Me.ShowAll  
  26.     End Sub
  28.     Private Sub InitUI
  30.         Dim table As New Table(2, 2, True)
  32.         Dim info As New Button("Information")
  33.         Dim warn As New Button("Warning")
  34.         Dim ques As New Button("Question")
  35.         Dim erro As New Button("Error")
  37.         AddHandler info.Clicked, AddressOf Me.OnInfo
  38.         AddHandler warn.Clicked, AddressOf Me.OnWarning
  39.         AddHandler ques.Clicked, AddressOf Me.OnQuestion
  40.         AddHandler erro.Clicked, AddressOf Me.OnError
  42.         table.Attach(info, 0, 1, 0, 1)
  43.         table.Attach(warn, 1, 2, 0, 1)
  44.         table.Attach(ques, 0, 1, 1, 2)
  45.         table.Attach(erro, 1, 2, 1, 2)
  47.         Me.Add(table)
  49.     End Sub
  51.     Private Sub OnInfo(ByVal sender As Object, ByVal args As EventArgs)
  52.         Dim md As MessageDialog = New MessageDialog(Me, _
  53.             DialogFlags.DestroyWithParent, MessageType.Info, _ 
  54.             ButtonsType.Close, "Download completed")
  55.         md.Run
  56.         md.Destroy
  57.     End Sub
  59.     Private Sub OnWarning(ByVal sender As Object, ByVal args As EventArgs)
  60.         Dim md As MessageDialog = New MessageDialog(Me, _
  61.             DialogFlags.DestroyWithParent, MessageType.Warning, _
  62.             ButtonsType.Close, "Unallowed operation")
  63.         md.Run
  64.         md.Destroy
  65.     End Sub
  67.     Private Sub OnQuestion(ByVal sender As Object, ByVal args As EventArgs)
  68.         Dim md As MessageDialog = New MessageDialog(Me, _
  69.             DialogFlags.DestroyWithParent, MessageType.Question, _
  70.             ButtonsType.Close, "Are you sure to quit?")
  71.         md.Run
  72.         md.Destroy
  73.     End Sub
  75.     Private Sub OnError(ByVal sender As Object, ByVal args As EventArgs)
  76.         Dim md As MessageDialog = New MessageDialog(Me, _
  77.             DialogFlags.DestroyWithParent, MessageType.Error, _
  78.             ButtonsType.Close, "Error loading file")
  79.         md.Run
  80.         md.Destroy
  81.     End Sub
  83.     Private Sub OnDelete(ByVal sender As Object, _
  84.             ByVal args As DeleteEventArgs)
  85.         Application.Quit
  86.     End Sub
  88.     Public Shared Sub Main
  90.         Application.Init
  91.         Dim app As New GtkVBApp
  92.         Application.Run
  94.     End Sub
  96. End Class

在我们的示例中，我们将显示四种消息对话框。 信息，警告，问题和错误消息对话框。

  1. Dim info As New Button("Information")
  2. Dim warn As New Button("Warning")
  3. Dim ques As New Button("Question")
  4. Dim erro As New Button("Error")

我们有四个按钮。 这些按钮中的每个按钮都会显示不同类型的消息对话框。

  1. Private Sub OnInfo(ByVal sender As Object, ByVal args As EventArgs)
  2.     Dim md As MessageDialog = New MessageDialog(Me, _
  3.         DialogFlags.DestroyWithParent, MessageType.Info, _ 
  4.         ButtonsType.Close, "Download completed")
  5.     md.Run
  6.     md.Destroy
  7. End Sub

如果单击信息按钮，将显示“信息”对话框。 MessageType.Info指定对话框的类型。 ButtonsType.Close指定要在对话框中显示的按钮。 最后一个参数是已分发的消息。 该对话框使用Run方法显示。 程序员还必须调用Destroy或Hide方法。

对话框 - 图1

对话框 - 图2

对话框 - 图3

对话框 - 图4

AboutDialog

AboutDialog显示有关应用的信息。 AboutDialog可以显示徽标，应用名称，版本，版权，网站或许可证信息。 也有可能对作者，文档撰写者，翻译者和艺术家予以赞扬。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program shows the about
  4. ' dialog
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports Gtk
  12. Public Class GtkVBApp
  13.     Inherits Window
  15.     Public Sub New
  17.         MyBase.New("About dialog")
  19.         Me.InitUI
  21.         Me.SetDefaultSize(350, 300)
  22.         Me.SetPosition(WindowPosition.Center)
  23.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  25.         Me.ShowAll
  27.     End Sub
  29.     Private Sub InitUI
  31.         Dim button As New Button("About")
  33.         AddHandler button.Clicked, AddressOf Me.ShowDialog
  35.         Dim fixed As New Fixed
  36.         fixed.Put(button, 20, 20)
  37.         Me.Add(fixed)
  39.     End Sub
  41.     Private Sub ShowDialog(ByVal sender As Object, _
  42.             ByVal args As EventArgs)
  44.         Dim about As New AboutDialog
  45.         about.ProgramName = "Battery"
  46.         about.Version = "0.1"
  47.         about.Copyright = "(c) Jan Bodnar"
  48.         about.Comments = "Battery is a simple tool for battery checking"
  49.         about.Website = "http://www.zetcode.com"
  50.         about.Logo = New Gdk.Pixbuf("battery.png")
  51.         about.Run
  52.         about.Destroy
  54.     End Sub
  56.     Sub OnDelete(ByVal sender As Object, _
  57.             ByVal args As DeleteEventArgs)
  58.         Application.Quit
  59.     End Sub
  61.     Public Shared Sub Main
  63.         Application.Init
  64.         Dim app As New GtkVBApp
  65.         Application.Run
  67.     End Sub
  69. End Class

该代码示例使用具有某些功能的AboutDialog。

  1. Dim about As New AboutDialog

我们创建一个AboutDialog。

  1. Dim about As New AboutDialog
  2. about.ProgramName = "Battery"
  3. about.Version = "0.1"
  4. about.Copyright = "(c) Jan Bodnar"

通过设置对话框的属性，我们指定名称，版本和版权。

  1. about.Logo = New Gdk.Pixbuf("battery.png")

此行创建徽标。

对话框 - 图5

图：AboutDialog

FontSelectionDialog

FontSelectionDialog是用于选择字体的对话框。 它通常用于进行一些文本编辑或格式化的应用中。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program shows the FontSelectionDialog
  4. '
  5. ' author jan bodnar
  6. ' last modified May 2009
  7. ' website www.zetcode.com
  9. Imports Gtk
  11. Public Class GtkVBApp
  12.     Inherits Window
  14.     Dim label As Label 
  16.     Public Sub New
  18.         MyBase.New("Font dialog")
  20.         Me.InitUI
  22.         Me.SetDefaultSize(350, 300)
  23.         Me.SetPosition(WindowPosition.Center)
  24.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  26.         Me.ShowAll  
  28.     End Sub
  30.     Private Sub InitUI 
  32.         label = New Label("The only victory over love is flight.")
  33.         Dim button As New Button("Select font")
  35.         AddHandler button.Clicked, AddressOf Me.ShowDialog
  37.         Dim fixed As New Fixed
  38.         fixed.Put(button, 100, 30)
  39.         fixed.Put(label, 30, 90)
  40.         Me.Add(fixed)
  42.     End Sub
  44.     Private Sub ShowDialog(ByVal sender As Object, _
  45.             ByVal args As EventArgs)
  47.         Dim fdia As New FontSelectionDialog("Select font name")
  49.         AddHandler fdia.Response, AddressOf Me.SelectFont
  51.         fdia.Run
  52.         fdia.Destroy
  54.     End Sub
  56.     Private Sub SelectFont(ByVal sender As Object, _
  57.             ByVal args As ResponseArgs)
  59.         If args.ResponseId = ResponseType.Ok
  60.             Dim fontdesc As Pango.FontDescription = _
  61.                 Pango.FontDescription.FromString(sender.FontName)
  62.             label.ModifyFont(fontdesc)
  63.         End If
  65.     End Sub
  67.     Sub OnDelete(ByVal sender As Object, _
  68.             ByVal args As DeleteEventArgs)
  69.         Application.Quit
  70.     End Sub
  72.     Public Shared Sub Main
  74.         Application.Init
  75.         Dim app As New GtkVBApp
  76.         Application.Run
  78.     End Sub
  80. End Class

在代码示例中，我们有一个按钮和一个标签。 单击按钮显示FontSelectionDialog。

  1. Dim fdia As New FontSelectionDialog("Select font name")

我们创建FontSelectionDialog。

  1. If args.ResponseId = ResponseType.Ok
  2.     Dim fontdesc As Pango.FontDescription = _
  3.         Pango.FontDescription.FromString(sender.FontName)
  4.     label.ModifyFont(fontdesc)
  5. End If

如果单击“确定”按钮，则标签小部件的字体将更改为我们在对话框中选择的字体。

对话框 - 图6

图：FontSelectionDialog

ColorSelectionDialog

ColorSelectionDialog是用于选择颜色的对话框。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program shows the ColorSelectionDialog
  4. '
  5. ' author jan bodnar
  6. ' last modified May 2009
  7. ' website www.zetcode.com
  9. Imports Gtk
  11. Public Class GtkVBApp
  12.     Inherits Window
  14.     Dim label As Label 
  16.     Public Sub New
  18.         MyBase.New("Color dialog")
  20.         Me.InitUI
  22.         Me.SetDefaultSize(350, 300)
  23.         Me.SetPosition(WindowPosition.Center)
  24.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  26.         Me.ShowAll    
  28.     End Sub
  30.     Private Sub InitUI
  32.         label = New Label("The only victory over love is flight.")
  33.         Dim button As New Button("Select color")
  35.         AddHandler button.Clicked, AddressOf Me.ShowDialog
  37.         Dim fixed As New Fixed
  38.         fixed.Put(button, 100, 30)
  39.         fixed.Put(label, 30, 90)
  40.         Me.Add(fixed)
  42.     End Sub
  44.     Private Sub ShowDialog(ByVal sender As Object, _
  45.             ByVal args As EventArgs)
  47.         Dim cdia As New ColorSelectionDialog("Select color")
  49.         AddHandler cdia.Response, AddressOf Me.SelectColor
  51.         cdia.Run
  52.         cdia.Destroy
  54.     End Sub
  56.     Private Sub SelectColor(ByVal sender As Object, _
  57.             ByVal args As ResponseArgs)
  59.         If args.ResponseId = ResponseType.Ok
  60.             label.ModifyFg(StateType.Normal, _
  61.                 sender.ColorSelection.CurrentColor)
  62.         End If
  64.     End Sub
  66.     Sub OnDelete(ByVal sender As Object, _
  67.             ByVal args As DeleteEventArgs)
  68.         Application.Quit
  69.     End Sub
  71.     Public Shared Sub Main
  73.         Application.Init
  74.         Dim app As New GtkVBApp
  75.         Application.Run
  77.     End Sub
  79. End Class

该示例与上一个示例非常相似。 这次我们更改标签的颜色。

  1. Dim cdia As New ColorSelectionDialog("Select color")

我们创建ColorSelectionDialog。

  1. If args.ResponseId = ResponseType.Ok
  2.     label.ModifyFg(StateType.Normal, _
  3.         sender.ColorSelection.CurrentColor)
  4. End If

如果用户按下 OK，我们将获得颜色值并修改标签的颜色。

对话框 - 图7

图：颜色 electionDialog

在 Visual Basic GTK# 教程的这一部分中，我们介绍了对话框。