对话框选择多个文件问秒???来人啊.....

wheok · 发表于 2014-8-22 20:01:18

马上加入TC

您需要登录才可以下载或查看，没有帐号？立即注册

x

有哪个知道对话框的控制 MSComDlg.CommonDialog这个控件 flags 参数的值 cdlOFNAllowMultiselect &H200 在TC中支持吗
它指定文件名列表框允许选择多个文件。不知道能在TC中设置吗?

kevinqq · 发表于 2014-8-22 20:27:44

写成整形常量

wheok · 发表于 2014-8-22 20:37:04

能告诉下具体怎么写吗

f=com("MSComDlg.CommonDialog")
f.InitDir=initdir
//traceprint(系统.获取程序路径())

f.Flags=类型.转整型("cdlOFNAllowMultiselect &H200") //这样写没反应

rainshine · 发表于 2014-8-22 21:33:36

wheok 发表于 2014-8-22 20:37
能告诉下具体怎么写吗

f=com("MSComDlg.CommonDialog")

写#200 我晚上写个源码公开。

rainshine · 发表于 2014-8-22 21:42:52

坑了我win8x64貌似没这控件。反正就是你赋值#200就对了。。。= =不如你去问美丽神- -。。。

如此美丽。 · 发表于 2014-8-22 23:26:15

本帖最后由如此美丽。于 2014-8-22 23:37 编辑

var Dlg,tmpstr
Dlg = com("MSComDlg.CommonDialog")
Dlg.Filter = "文本文档(*.txt)|*.txt"
Dlg.DialogTitle = "选择"
Dlg.Flags = #80200 // 多选+资源管理器样式如果只是单纯的多选样式会不一样是其一而且路径会缩减不能得到完整路径
Dlg.ShowOpen
tmpstr = Dlg.FileName
If(tmpstr == "")
traceprint("你取消了")
Else
traceprint(tmpstr)
EndIf

rainshine · 发表于 2014-8-23 00:30:02

如此美丽。发表于 2014-8-22 23:26
var Dlg,tmpstr
Dlg = com("MSComDlg.CommonDialog")
Dlg.Filter = "文本文档(*.txt)|*.txt"

因为你是大神。。。= =哈哈哈vb我不懂啊，我只知道cfiledialog- -。。

sziamchl · 发表于 2014-8-23 08:57:19

什么高人都有，高手在民间

wheok · 发表于 2014-8-28 07:10:42

如此美丽。发表于 2014-8-22 23:26
var Dlg,tmpstr
Dlg = com("MSComDlg.CommonDialog")
Dlg.Filter = "文本文档(*.txt)|*.txt"

谢谢如此美丽

帐号		自动登录	找回密码
密码			立即注册

[已解决] 对话框选择多个文件问秒???来人啊.....

马上加入TC

评分

站长推荐 /2