📄 access实例-18.htm

📁 微软数据库开发梦工场多媒体教学-ACCESS篇.rar
💻 HTM
字号:
<body bgcolor="#000000">
<P align=center><FONT color="#FFFFFF" 
            size=4><B><font color="#009900">获取用户单击了哪一个按钮</font></B></FONT><font color="#009900"> 
  </font><font color="#FFFFFF">　</font></P>
<SPAN 
            class=large><FONT color=#000000>
<P><font color="#FFFFFF">在我们前面的例子中，一直用了这样的语句：MsgBox&nbsp; prompt[, buttons] [, 
  title] ，虽然在消息框中显示了多个按钮，可是不管按下哪个按钮效果都是一样的：继续执行下一条语句。这就失去了我们设置消息框的作用，我们希望通过消息框获得用户对当前操作的选择。</font></P>
<P><font color="#FFFFFF">要获得用户单击了哪一个按钮就需要用到 MsgBox 函数，MsgBox 函数语法如下：<BR>
  MsgBox(prompt[, buttons] [, title] [, helpfile, context])</font></P>
<P><font color="#FFFFFF">先声明一个 Integer 类型的变量，然后让这个变量等于 MsgBox 函数即可。如：</font></P>
<P><font color="#FFFFFF">Dim userchoice as Integer<BR>
  userchoice := MsgBox("第三个按钮是缺省值的例子", 3 + 64 + 512, "消息框演示")</font></P>
<P><font color="#FFFFFF">userchoice 将等于1-7中的一个值，返回值的定义如下表：</font></P>
<DIV align=center> 
  <CENTER>
    <TABLE width=194 border=1>
      <CAPTION>
      <FONT color=#FFFFFF>消息框按钮的返回值</FONT> 
      </CAPTION>
      <TBODY>
        <TR> 
          <TD width=79 bgColor=#c0c0c0> <P align=center><FONT color=#FFFFFF>VBA常量名称 
              </FONT></P></TD>
          <TD align=middle width=28 bgColor=#c0c0c0><FONT 
                  color=#FFFFFF>值</FONT></TD>
          <TD align=middle width=69 bgColor=#c0c0c0><FONT 
                  color=#FFFFFF>描述</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbOK</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>1</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>确定</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbCancel</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>2</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>取消</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbAbort</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>3</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>放弃</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbRetry&nbsp;</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>4</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>重试</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbIgnore</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>5</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>忽略</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbYes</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>6</FONT></TD>
          <TD align=middle width=69><FONT color=#FFFFFF>是</FONT></TD>
        </TR>
        <TR> 
          <TD width=79><FONT color=#FFFFFF>vbNo</FONT></TD>
          <TD align=middle width=28><FONT color=#FFFFFF>7</FONT></TD>
          <TD align=middle width=69><FONT 
              color=#FFFFFF>否</FONT></TD>
        </TR>
      </TBODY>
    </TABLE>
    <P>&nbsp;</P>
  </CENTER>
</DIV>
<P><font color="#FFFFFF">当获得了用户单击了哪一个按钮后，就可以根据用户的选择执行不同的语句。形式如下：</font></P>
<P><FONT color=#FFFFFF>Select Case userchoice&nbsp;&nbsp; ' 判断 userchoice 的值<BR>
  Case 3&nbsp;&nbsp;&nbsp; ' userchoice 的值是3，转向处理放弃的程序<BR>
  &nbsp;&nbsp;&nbsp; Goto pro_Abort<BR>
  Case 4&nbsp;&nbsp;&nbsp;&nbsp; ' userchoice 的值是4，转向处理重试的程序<BR>
  &nbsp;&nbsp;&nbsp; Goto pro_Retry<BR>
  Case 5&nbsp;&nbsp;&nbsp; ' userchoice 的值是5，转向处理忽略的程序<BR>
  &nbsp;&nbsp;&nbsp; Goto pro_Ignore<BR>
  End Select</FONT> </FONT></SPAN>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -