
msgbox命令是vbs中的,bat脚本没有该命令。因此您如果需要使用msgbox,那么就需要调用vbs代码。
在msgbox中“是”返回的值是6,“否”返回的值是7,因此您在bat中调用vbs后获取对应的值进行判断即可。
假设以下msgbox的相关代码保存为YesNovbs
YN = MsgBox("选择“是”或“否”",vbYesNo,"选择")
WScriptEcho YN
然后bat中写调用和判断代码
for /f "delims=" %%a in ('cscript /nologo YesNovbs') do set "V=%%~a"
if %V% equ 6 goto Yes
if %V% equ 7 goto No
exit
:Yes
echo 选择了“是”
pause
exit
:No
echo 选择了“否”
pause
exit
是的,可以的,如:
s = 0For i = 1 To 5
s = s + i
Next i
MsgBox "s=" & s & " i=" & i
如果是帖子文字这样所有的IF都是判断一个变量,使用SELECT CASE文件是完美解决方案,在最后的CASE ELSE里面MSGBOX "全部都不满足"
真没办法看清楚,好像和帖子文本的不同,不是所有IF都判断一个变量,那还只有用IF判断,最后要检测所有的IF都没有满足,需要增加一个变量,按照帖子代码的框架这么写:
dim passed as boolean '定义变量
passed = false'初始化
if t1text =xx then
t2text=号码1
t3text=号码2
passed = true '设置标记
end if
if t1text =yy then
t2text=号码3
t3text=号码4
passed = true '设置标记
end if
'最后判断
if not passed then msgbox "全部都不满足"
‘程序打开时d出输入框要你设定一时间,格式时---时:分:秒
‘到设定时间时d出消息框提示你已到时间。
Private Sub Form_Load()
Form1AutoRedraw = True ‘设置窗体自动重画
'设定用到的变量
Dim t() As String, th As Integer, tm As Integer, nh As Integer, nm As Integer
t1 = InputBox("设定闹钟时间", "闹铃设置", Time) ‘d出输入对话框,要求输入时间,时间格式是:(时:分:秒)---没有秒也可以
t = Split(t1, ":"): th = t(0): tm = t(1)’把小时,分钟分开存入th和tm变量
'当电脑现在时间与设定的闹钟想同时Beep闹钟
Do ‘不断的循环,检测当前时间是否已到设置的时间
DoEvents’这个很重要,暂时让权给 *** 作系统处理其它事件,要不来会卡死的
Form1Cls’显示数据前清除旧信息
Print "闹钟时间设定为"; t1: Print "现在时刻为"; Time '显示闹钟时间和当前时间
t = Split(Time, ":"): nh = t(0): nm = t(1)’把当前时间的时数,分数分别存入nh,nm变量
If th = nh And tm = nm Then MsgBox "Beep Beep闹钟响了": Exit Do ‘判断小时和分钟与当前时分匹配时,d出消息框,提示你时间已到了。
Loop
End Sub
我把实例文件发给你。
怎样用msgbox()函数输出变量又同时输出文本的方法。
如下参考:
1首先,选择Excel工作表,双击打开,如下图所示。
2然后在界面中,选择源中的工作表,右键单击“查看代码”选项,如下图所示。
3此外,在VBA窗口中,输入代码“Private Sub Form_click() Dim n n = 29 msgbox(" February 2020" & n & "day ") End Sub",用msgbox()函数输出变量,同时输出文本。
4然后,在VBA窗口中,单击上面的执行按钮询问,如下所示。
5最后,在界面中d出一个d出框,可以同时显示输出变量和输出文本,如下图所示。
以上就是关于bat批处理中,如何实现msgbox(“是或 否”)选 是 执行一个语句 ,选 否 执行另一个语句全部的内容,包括:bat批处理中,如何实现msgbox(“是或 否”)选 是 执行一个语句 ,选 否 执行另一个语句、关于VB里的msgbox的使用、纯小白用VB写查询电话的程序,并列多条if then语句,想弄msgboxd窗怎么写,具体看下面等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)