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/) Powered by Discuz! X3.1