Dim dlgRtn As DialogResult
dlgRtn = MessageBox.Show( "错误信息 ", "提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Select Case dlgRtn
Case DialogResult.Yes
MessageBox.Show( " ", "ok ")
Case DialogResult.No
MessageBox.Show( " ", "no ")
End Select
dlgRtn = MessageBox.Show( "错误信息 ", "提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Select Case dlgRtn
Case DialogResult.Yes
MessageBox.Show( " ", "ok ")
Case DialogResult.No
MessageBox.Show( " ", "no ")
End Select

728

被折叠的 条评论
为什么被折叠?



