vb6.0 打开对话框上的取消按钮我想做一个判断如果点取消不执行操作 如果点确定执行代码如下着急谢谢

如题所述

if msgbox("是否执行?",vbyesno,"是否执行")=vbyes then
'执行代码
else
exit sub'跳出程序段
end if

温馨提示:内容为网友见解,仅供参考
第1个回答  2013-07-26

就把你代码中的vbYesno换成VBOKcancel就可以了啊

一小段示例代码:

Private Sub Form_Load()
If MsgBox("示例", vbOKCancel, "示例") = vbOK Then '如果点确定
MsgBox "OK" '信息框,这里换成你要执行的代码
Else '其他,即“取消”或者关闭
End '结束程序,也可以直接去掉这一行
End If 
End Sub

第2个回答  2013-07-26
If MsgBox("你确定继续操作码?" & Chr(13) & "取消不操作!", vbExclamation + vbOKCancel + vbDefaultButton2, "提示") <> vbOK Then
MsgBox "你取消了操作"
End If

...打开对话框上的取消按钮我想做一个判断如果点取消不执行操作...
if msgbox("是否执行?",vbyesno,"是否执行")=vbyes then'执行代码elseexit sub'跳出程序段end if

vb6.0中如何设置:如下的路径选择?怎么让一个按钮被点击时直接打开路径...
commondialog控件,你去看看这个控件吧。在工程-部件里面可以找到microsoft common dialog control 6.0。CommonDialog 控件提供一组标准的操作对话框,进行诸如打开和保存文件,设置打印选项,以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。语法 CommonDialog 说明 CommonDialog 控件在 Vi...

VB6.0点击按钮自动打开一个.EXE文件
你先要判断文件是否存在,用一个API即可,在模块里声明 Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long 然后在按钮里写上 If CBool(PathFileExists(sFile)) Then msgbox "文件不存在"...

VB 我想知道如何仿做出如图的效果,我还想知道当鼠标放在按妞上,会显示...
可以调用部件 microsoft windows common controls 6.0 里面有一个tab 可以做到分页的效果 数字键要是用按钮来画 加上图片 再在mousemove上添加渐变的图片。。就能实现了。

vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法
1、首先启动vb6.0,执行文件-新建命令,弹出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入vb程序主界面。2、在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽,调节窗体的大小,直至自己满意为止。3、选择窗体,在其右边的属性中找到boderstyle属性,设置属性值为none,...

求一招好用的电脑技术
首先需要在桌面的空白处单击鼠标右键,并且新建立一个“快捷方式”,在弹出的创建快捷方式对话窗口中,在“命令行”中输入“C:windowsRUNDLL32.EXE user,ExitWindows”,然后单击“下一步”按钮,给该快捷方式命名为“一键关机”,这时系统的桌面上就会出现刚才建立的快捷方式了,打开该快捷方式的属性窗口,进入“快捷方式”页...

我每打开Internet主页的时候都是自动出现一个讨厌的网站,我很不喜欢...
击“启用”按钮,在弹出的“分级审查”对话框中切换到“许可站点”标签,输入您想屏蔽的网站网址,随 后点击“从不”按钮,再点“确定”即可! 注册表被修改的原因及手工修改解决办法: 1、IE默认连接首页被修改 受到更改的注册表项目为: HKEY_LOCAL_MACHINE\\\\SOFTWARE\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start ...

vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法
1、首先启动vb6.0,执行 文件-新建命令 ,弹出新建工程对话框,在该对话框中选择 标准的exe 后点击打开按钮, 进入vb程序主界面。2、在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽, 调节窗体的大小 ,直至自己满意为止。3、选择窗体,在其右边的属性中找到 boderstyle属性 ,设置 ...

相似回答