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

oyxx1023

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

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

sfzyr

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

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

nonsmall

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

用这个也一样的

oyxx1023

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

nonsmall

那就先注册一下控件

论坛原来有讨论可以翻翻

oyxx1023

翻过,都是无解.有人说是控件未授权的原因.用comdlg32.ocx必须要装MS的开发工具才能使得(VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG")可以得到正确结果.
useraccounts试了一下,得不到想要的结果 .不知啥原因,选择多个文件时只能得到路径.vbs代码如下:

1. Set objDialog = CreateObject("UserAccounts.CommonDialog")
2. objDialog.Filter = "dwg|*.dwg|All Files|*.*"
3. objDialog.Flags = 1574404
4. objDialog.FilterIndex = 1
5. objDialog.InitialDir = "C:"
6. intResult = objDialog.ShowOpen
7. If intResult = 0 Then
8.      Wscript.Quit
9. Else
10.      Wscript.Echo objDialog.FileName
11. End If

复制代码

wangph

看看这个就解决了

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

oyxx1023

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

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

wangph

加入下面一句就行了

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

oyxx1023

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

laorenhao999

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