您的位置:首页 > 其它

接收MessageBox返回值

2012-06-14 17:02 113 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: