本文整理匯總了VB.NET中System.Windows.Forms.Form.ShowDialog方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET Form.ShowDialog方法的具體用法？VB.NET Form.ShowDialog怎麽用？VB.NET Form.ShowDialog使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Windows.Forms.Form的用法示例。
在下文中一共展示了Form.ShowDialog方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ShowMyDialogBox
Public Sub ShowMyDialogBox()
Dim testDialog As New Form2()
' Show testDialog as a modal dialog and determine if DialogResult = OK.
If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
' Read the contents of testDialog's TextBox.
txtResult.Text = testDialog.TextBox1.Text
Else
txtResult.Text = "Cancelled"
End If
testDialog.Dispose()
End Sub示例2: New
Option Strict On
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1 : Inherits Form
Private WithEvents cmdClickCtr As Button = New Button()
Public Sub New()
Me.cmdClickCtr.Location = New Point(100, 75)
Me.cmdClickCtr.Size = New Size(100, 50)
Me.cmdClickCtr.Text = "Click Counter"
Me.Controls.Add(cmdClickCtr)
Me.Text = "Click Counter"
End Sub
Private Sub cmdClickCtr_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles cmdClickCtr.Click
Static ctr As Integer = 1
MsgBox("Button was clicked " & ctr & " times.")
ctr += 1
End Sub
Public Shared Sub Main()
Dim frm As New Form1()
frm.ShowDialog()
End Sub
End Class