TC官方合作论坛

标题: 对话框选择多个文件问秒???来人啊..... [打印本页]

作者: wheok 时间: 2014-8-22 20:01
标题: 对话框选择多个文件问秒???来人啊.....
有哪个知道对话框的控制 MSComDlg.CommonDialog这个控件 flags 参数的值 cdlOFNAllowMultiselect &H200 在TC中支持吗
它指定文件名列表框允许选择多个文件。不知道能在TC中设置吗?

作者: kevinqq 时间: 2014-8-22 20:27
写成整形常量

作者: wheok 时间: 2014-8-22 20:37
能告诉下具体怎么写吗

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

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

作者: rainshine 时间: 2014-8-22 21:33

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

f=com("MSComDlg.CommonDialog")

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

作者: rainshine 时间: 2014-8-22 21:42
坑了我win8x64貌似没这控件。反正就是你赋值#200就对了。。。= =不如你去问美丽神- -。。。

作者: 如此美丽。 时间: 2014-8-22 23:26
本帖最后由如此美丽。于 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

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

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

作者: sziamchl 时间: 2014-8-23 08:57
什么高人都有，高手在民间

作者: wheok 时间: 2014-8-28 07:10

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

谢谢如此美丽

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)