(VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG")返回值为空?

oyxx1023 · 发表于 2008-12-30 14:50:00

本帖最后由作者于 2008-12-30 15:31:10 编辑

(VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG")返回值为什么有时候为空?造成后面的程序执行不下去

有的机器可以,有的机器不可以

sfzyr · 发表于 2022-4-4 01:20:31

oyxx1023 发表于 2008-12-31 12:25
翻过,都是无解.有人说是控件未授权的原因.用comdlg32.ocx必须要装MS的开发工具才能使得(VLAX-CREATE-OBJECT ...

http://bbs.mjtd.com/thread-183398-1-1.html这个高老大的，确可以运行。我看里面也是采用通用对话框

nonsmall · 发表于 2008-12-31 08:40:00

(vlax-create-object "UserAccounts.CommonDialog")

用这个也一样的

oyxx1023 · 发表于 2008-12-31 11:10:00

useraccounts貌似只能适用于叉P哦.

nonsmall · 发表于 2008-12-31 11:23:00

那就先注册一下控件

论坛原来有讨论可以翻翻

oyxx1023 · 发表于 2008-12-31 12:25:00

翻过,都是无解.有人说是控件未授权的原因.用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

复制代码

wangph · 发表于 2009-1-1 17:08:00

看看这个就解决了

http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&replyid=68564&id=42463&page=1&skin=0&

oyxx1023 · 发表于 2009-1-2 10:51:00

楼上贴的贴子早看过了的.

也解决不了问题,COMDLG32.OCX非得要装了VB才能用.拷过来注册掉也是用不了的.

wangph · 发表于 2009-1-2 12:03:00

加入下面一句就行了

(vl-registry-write
"HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"
""
"gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
)

oyxx1023 · 发表于 2009-1-2 22:19:00

如果没授权的话用楼上的方法一样不行.

laorenhao999 · 发表于 2014-12-17 14:07:03

按8楼的成功了，厉害，本来我的程序里有这句，后来以为没用给删除了，再用就提示没安装控件，弄了一下午，终于OK了

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