VB.net取得对话框返回值

来源:百度知道 编辑:UC知道 时间:2024/05/22 13:38:02
对于一个自己定义的窗体类(我现在是继承System.Windows.Forms.Form)
,怎么设定它的返回值,然后怎么获取它的返回值?
比如
dim a as new form1
dim b as dialogresult
b=a.showdialog()
这个a的值能设定吗?

'form1 窗体上添加一个button1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Button1.DialogResult = Windows.Forms.DialogResult.OK
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub

'以上是form1的代码
'然后就可以
dim a as new form1
dim b as dialogresult
b=a.showdialog()