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

activex dll问题

本帖最后由 作者 于 2009-1-16 16:21:35 编辑 <br /><br /> <p>想做一个可以选择多个文件的DLL供LISP调用,可是功力太浅,得不到正确的结果,哪位帮看看.附件是整个VB工程.</p><p>用LISP调用后的返回结果是"".</p><p></p>

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

<p>不会吧.</p><p>对VBA的人来说应该是小菜一碟啊.</p><p>再顶.</p>

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

<p>使用该方法即可:</p><p>(setq inFileName (getfiled "打开文件" "" "Txt,Dwg" 4))</p>

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

With Form1.dlg<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CancelError = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .DialogTitle = "打开文档"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Flags = cdlOFNAllowMultiselect 'Or cdlOFNNoChangeDir Or cdlOFNFileMustExist&nbsp; 'cdlOFNLongNames Or cdlOFNNoValidate<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .FilterIndex = 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Filter = "纯文本文件(*.Txt)|*.txt|所有文件(*.*)|*.*"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '.FileName = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ShowOpen<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; getfs = .FileName<br/>&nbsp;&nbsp;&nbsp; End With
页: [1]
查看完整版本: activex dll问题