[分享][原创]打造带预览功能的增强型打开对话框

ldhyob · 发表于 2007-4-13 11:41

_

因工作原因,很长时间没在论坛发帖了,今天偶尔整理本本硬盘时,发现自己原先写过的一个东西忘了拿到HOME给大家分享,赶紧今天补上,呵呵~~

一般我们在VBA里会通过Application.GetOpenFilename方法来获取用户选择的结果,非常方便好用.不过如果想让选择某类型文件前,让用户有一个预览,则需要通过API来解决了,本示例尝试修改打开对话框,增加进了对"文本文件""图片文件""音频文件"的提前预览.

实现原理:利用API函数GetOpenFileName来显示打开文件对话框,该函数的调用参数OPENFILENAME是一个结构型变量,其中有一成员lpfnHook 是用来指定窗体从产生到灭失一系列事件的挂勾响应过程句柄,因此我们只要自定义一个过程,在里面对窗体的不同消息事件中编写相应的代码进行控制就实现了打开窗口的扩展功能.

rwDGDown.rar (44.29 KB, 下载次数: 407)

欢迎大家下载试用.

[此贴子已经被作者于2007-5-17 7:38:52编辑过]

ldhyob · 发表于 2007-5-17 07:28

对楼上运行出现"找不到工程或库"的情况,只要在VBE环境里在"工具"菜单"引用"里把一些丢失和不必要的引用项目前面的勾去掉就可以了.

一楼的下载链接现已更新,去掉了不必要的引用.

冰山上的来客 · 发表于 2007-4-13 12:06

哦，发现 gif动画不会动啊。

benkyou · 发表于 2007-4-13 12:06

提示:找到不工程或库

strongclx · 发表于 2007-5-15 19:55

QUOTE:

以下是引用benkyou在2007-4-13 12:06:35的发言：
提示:找到不工程或库

zbs112 · 发表于 2007-5-15 20:36

WIN2000+OFFICE2000

[此贴子已经被作者于2007-5-15 20:47:19编辑过]

lonan2979 · 发表于 2007-5-15 23:29

QUOTE:

以下是引用strongclx在2007-5-15 19:55:37的发言：

同样。winxp sp2+excel2000

DJFN · 发表于 2007-5-16 08:40

LDHYOB真是太强了 + 看不懂啊！

yxxxx · 发表于 2007-5-16 09:51

ldhyob高人重现江湖，强！

poongsan · 发表于 2007-5-16 21:16

提示:找到不工程或库,纳闷啊!

		自动登录	找回密码
密码			免费注册

[分享][原创]打造带预览功能的增强型打开对话框

点评

提示如下