yang686526

(vlax-create-object "mscomdlg.commondialog")返回值为空?
www.dimcax.com
(vlax-create-object "mscomdlg.commondialog")返回值为空?
(vlax-create-object "mscomdlg.commondialog")返回值为什么有时候为空?造成后面的程序执行不下去
有的机器可以,有的机器不可以
小学的时候老师在台上讲“帅”的含义， 我听不懂，同桌的女孩红着脸递给我一面 镜子，那一霎那，我明白了。
d
(vlax-create-object "useraccounts.commondialog")
用这个也一样的
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
useraccounts貌似只能适用于叉p哦.
小学的时候老师在台上讲“帅”的含义， 我听不懂，同桌的女孩红着脸递给我一面 镜子，那一霎那，我明白了。
d
那就先注册一下控件
论坛原来有讨论可以翻翻
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
翻过,都是无解.有人说是控件未授权的原因.用comdlg32.ocx必须要装ms的开发工具才能使得(vlax-create-object "mscomdlg.commondialog")可以得到正确结果.
useraccounts试了一下,得不到想要的结果 .不知啥原因,选择多个文件时只能得到路径.vbs代码如下:
set objdialog = createobject("useraccounts.commondialog")
objdialog.filter = "dwg|*.dwg|all files|*.*"
objdialog.flags = 1574404
objdialog.filterindex = 1
objdialog.initialdir = "c:\"
intresult = objdialog.showopen
if intresult = 0 then
wscript.quit
else
wscript.echo objdialog.filename
end if
小学的时候老师在台上讲“帅”的含义， 我听不懂，同桌的女孩红着脸递给我一面 镜子，那一霎那，我明白了。
d
看看这个就解决了