Dim Result As DialogResult = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.Yes Then Output.show("Yes")Else Output.show("No")End If
MessageBoxDefaultButton 枚举有三个 用于设置默认按钮
button1 0 第一个按钮
button2 256 第二个按钮
button3 512 第三个按钮