activex dll问题

oyxx1023 · 发表于 2009-1-10 16:56:00

本帖最后由作者于 2009-1-16 16:21:35 编辑

想做一个可以选择多个文件的DLL供LISP调用,可是功力太浅,得不到正确的结果,哪位帮看看.附件是整个VB工程.

用LISP调用后的返回结果是"".

oyxx1023 · 发表于 2009-1-16 16:22:00

不会吧.

对VBA的人来说应该是小菜一碟啊.

再顶.

ayunger · 发表于 2009-2-18 12:31:00

使用该方法即可:

(setq inFileName (getfiled "打开文件" "" "Txt,Dwg" 4))

wuyunpeng888 · 发表于 2009-2-22 17:55:00

With Form1.dlg
        .CancelError = True
        .DialogTitle = "打开文档"
        .Flags = cdlOFNAllowMultiselect 'Or cdlOFNNoChangeDir Or cdlOFNFileMustExist 'cdlOFNLongNames Or cdlOFNNoValidate
        .FilterIndex = 1
        .Filter = "纯文本文件(*.Txt)|*.txt|所有文件(*.*)|*.*"
        '.FileName = ""
        .ShowOpen

        getfs = .FileName
    End With

账号		自动登录	找回密码
密码			注册

activex dll问题

本帖子中包含更多资源