Msgbox消息框

于“自”《软件开发工具》一本书有这样的制剂，让我回忆——程序员可以做，让用户做；它允许用户做的少，即使是那些谁需要做的程序设置。我们应该做的。

这不是宣言。该是践行。

在程序执行过程中，经常须要弹出一些提示信息，与用户交流。

需採用强制方式，将焦点移动到提示框上来。待用户处理完预先设置的对话之后，才干接着后面的操作。

这些提示框的使用都是本着协助用户更准确。更有效地与计算机交互的意义而设置的，是一个贴心的使用助手。一个有力的助手。就要能在繁杂处给予清晰的指引，在危急处提出警示，在关心的问题上及时给予回馈，在选择问题上要将不同选择的厉害关系讲明了。这样才干成为好助手。既然是协助，就又不能老在眼前晃，要在适当的时候适时地出现。出现得太多，影响效率，反而帮了倒忙。由于仅仅是助手，那么提建议、摆观点时尽量使用感叹语气、出警示的时候又不能太生硬，

(1)捷报：力度最轻、亲。

MsgBox("   操作成功！", vbOKOnly + vbInformation, "提示")

Msgbox消息框-LMLPHP

(2)选择：力度中等，需认真对待。

       If MsgBox("是否继续？", vbYesNo + vbQuestion, "选择") = MsgBoxResult.Ok Then

            '//继续

        Else

            Exit Sub  '//否则退出，或做其它操作。

        End If

Msgbox消息框-LMLPHP

(3)警告：力度最大，问题严重。需用户停止如今的操作。更改操作。

        If MsgBox("电量不足，请尽快蓄电！

", vbOKOnly + vbExclamation, "警示") = MsgBoxResult.Ok Then

        Else

            Exit Sub

        End If

Msgbox消息框-LMLPHP

在编程中，发现有些信息少数字描写叙述不清楚。字数多了以后发现重要信息易被淹没，用户较难找到重点。

这时。我找到一种方法。就是採用转行的方式，将最重要的简练写在第一行，其它内容转行详写。这时仅仅需用转行符（“vbCr”或“vbCrLf”）就能够解决。

例：MsgBox("系统的基本数据未设定好,暂不支持上机操作。" &
vbCrLf & "请联系管理员！

", MsgBoxStyle.Exclamation, "提示")

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvd2FuZ3FpbmdibzA4Mjk=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="">

最后，再看看一条MsgBox语句

        If MsgBox("是否继续？", vbYesNo + vbQuestion + vbQuestion + vbMsgBoxSetForeground + vbDefaultButton1, "选择") = MsgBoxResult.Ok Then

            '//继续

        Else

            Exit Sub  '//否则退出。或做其它操作。

        End If</span>

上面的程序没有语法错误。中间以vb开头的keyword也没有顺序的要求，从这里能够看出使用非常easy。

以下对一些经常使用的进行整理：

+ vbAbort：弹出“中止”button

+ vbIgnore ：弹出“忽略”button

+ vbRetry ：弹出“重视”button

MsgBoxResult.Abort：单击"中止"button

MsgBoxResult.Ignore ：单击"忽略"button

MsgBoxResult.Retry ：单击"重试"button

VbCrLf

Msgbox消息框