Public Class Form1

? ? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? ? ? ? Dim intResult As DialogResult
? ? ? ? '五個參數的意義分別是消息內容，對話框標題，顯示的按鈕，消息類型，獲得焦點的默認按鈕
? ? ? ? intResult = MessageBox.Show( _
? ? ? ? ? ? "Do you want save changes to New Document?", _
? ? ? ? ? ? "MyWord Processor", _
? ? ? ? ? ? MessageBoxButtons.YesNoCancel, _
? ? ? ? ? ? MessageBoxIcon.Warning, _
? ? ? ? ? ? MessageBoxDefaultButton.Button3)
? ? ? ? Select Case intResult
? ? ? ? ? ? Case Windows.Forms.DialogResult.Yes
? ? ? ? ? ? ? ? Label1.Text = "Yes clicked"
? ? ? ? ? ? Case Windows.Forms.DialogResult.No
? ? ? ? ? ? ? ? Label1.Text = "No clicked"
? ? ? ? ? ? Case Windows.Forms.DialogResult.Cancel
? ? ? ? ? ? ? ? Label1.Text = "Cancel clicked"
? ? ? ? End Select
? ? End Sub
End Class
?

總結

以上是生活随笔為你收集整理的VB2010(17)_消息对话框MessageBox的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。