Public Class frmYesNo
Private Sub frmfrmYesNo_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim btnResult As MsgBoxResult
btnResult = MsgBox("这是您需要的效果吗？", 3, "这是提示框")
Select Case btnResult
Case 6 '用户点了"是"键
'这里什么都不用写，直接返回初始窗体，除非你非要做点什么，那就将代码写在这里吧！
Case 7 '用户点了"否"键
MsgBox("还需要再确认一次吗？")
Case 2 '用户点了"取消"键
MsgBox("不明白点击'取消'键了，还要弹窗出来是为什么？")
End Select
End Sub
End Class
以上结果是你需要的吗？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024