CommonDialog showopen 怎么确认用户按下了Open 按钮，而不是Cancel按钮

godidea 2003-12-26 10:09:15

...全文

195 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

davidlv 2003-12-26

打赏
举报

'定义对话框默认属性
dlg.CancelError = True '可以捕获按下cancel按钮
dlg.FileName = nFileName & ".txt"
dlg.DialogTitle = "保存日志"
dlg.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
dlg.ShowSave

shairy 2003-12-26

打赏
举报

或者在Show前设一下Dialog的CancelError属性为True。如果按下Cancel，就会触发一个错误，错误号为32775。判断一下错误号就可以进行不同的处理了。但是这样必须在函数头加上On Error Resume next。

godidea 2003-12-26

打赏
举报

解决了，楼上的不全对！！！，在第二次调用cancel时就不对

yassee 2003-12-26

打赏
举报

楼上的很对，做个判断就好啦。

liuyanghe111 2003-12-26

打赏
举报

按下了Open按钮,对话框的FileName属性返回选中的文件路径,按下cancel返回空字符串

使用 CommonDialog 控件　　　　CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。　　　　CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求...

function openfile()
{
  try
  {
   var fd = new ActiveXObject("MSComDlg.CommonDialog");
   fd.Filter = "上传文件 (*.doc,*.docx)|*.doc;*.docx";
   fd.FilterIndex = 2;
   // 必须设置MaxFileSize. 否则出错
   fd.MaxFileSize

input语句Private Sub Command1_Click() With CommonDialog1 .InitDir = App.Path .Filter = "文本文件|*.txt" .ShowOpen End With Open CommonDialog1.FileName For Binary As 1

破解Access数据库密码就是这样于 2004年 08月03日发表 2003-11-23 17:39:28 阅读687次我们在使用Ａｃｃｅｓｓ数据库时，有时忘记了密码，怎么办？网上的解密器不少，但我们要去找这样的解密器也很费时，如果你对程序的编写有一点基础，那么，让我们动手做一个专用解密器吧。原理：首先，我们要了解Ａｃｃｅｓｓ数

2012.3.11 判断一个文件或者文件夹是否存在 API函数 PathFileExists 声明 Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long PathFileExists("一个文件或...

VB基础类

7,788

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章