vba中,vbyesno的用法,msgbox中是否选择的用法
用法1:
Dim YesNo_XuanZe As
String
'选择的按钮
YesNo_XuanZe = MsgBox("
<4.重要字段>初始化
操作,会将您原来设置的所有(比如:查询字段,排序字段,分组字段,明细表字段,汇总聚合函数)的<重要字段>信息,<全部清除>
是否继续??", vbYesNo + vbDefaultButton2 +
vbInformation, "提醒")
If YesNo_XuanZe = vbNo
Then
JianCha_TongGuo = False
Exit Sub
Else
'继续
End If
----------------------------------------------
用法2:
Dim YesNo_XuanZe As
String
'选择的按钮
YesNo_XuanZe =
MsgBox("您填写的相应数据库中的<连接关系的:数据表或字段>
<可能>
不存在！ 已经为您标注了底色, " _
& vbCrLf & "" _
& vbCrLf & "
如果您确认连接关系,是正确的
可点击<是>继续执行" _
& vbCrLf & "" _
& vbCrLf & "
如果您需要停止检查
请<否>,调整您的设置后,再次进行检查", vbYesNo + vbDefaultButton2 +
vbInformation, "提醒")
If YesNo_XuanZe = vbNo Then
JianCha_TongGuo = False
'点击<否>,则检查通过的变量值<不改变>(即不通过)
ElseIf YesNo_XuanZe = vbYes Then
JianCha_TongGuo = True
'点击<是>,则检查通过的变量值<改变>(即通过)
End If
-------------------------------------------
加载中，请稍候......
加载中…
(2016-04-10 20:40:32)