本文整理汇总了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