s.push(line)_dialogresult.ok_item数据结构

VB.Net DialogResult的实例 代码如下：

form1代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ret As Windows.Forms.DialogResult = Form2.ShowDialog()

If (ret = Windows.Forms.DialogResult.OK) Then

MsgBox("单击了OK按钮")

End If

If (ret = Windows.Forms.DialogResult.Cancel) Then

MsgBox("单击了Cancel按钮")

End If

End Sub

End Class

form2代码：

Public Class Form2'更多vb.net源代码和实例，请关注乐博网lob.cn

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'设置Button1的标题以及返回值

Button1.Text = "OK"

Button1.DialogResult = Windows.Forms.DialogResult.OK

'设置Button2的标题以及返回值

Button2.Text = "Cancel"

Button2.DialogResult = Windows.Forms.DialogResult.Cancel

End Sub

End Class

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29925-1.html