求问MSDN实例（100分）

Question

Object  属性示例  
下列示例加载图标名称，到指定的对象（必须是个窗体）的图标列表中。  
 
Application.VBE.ActiveVBProject.VBComponents(1).Properties("Icon").Object  =  LoadPicture("Baseball.ico")  
 
以上为MSDN内容，  可在我的VB环境中不好用。注：VB6  +  SP6  
求好用的  
Properties("Icon").Object  事例。

Answer 1

奇怪，怎么你在VB版发的问题，跑到VC版来了

Answer 2

哪跟哪啊?是VBA吧?
实际就是form1.icon=loadicon("...")吧

Answer 3

是到是，可是我想设置Properties("XXX").Object老是不成功。

Answer 4

"实际就是form1.icon=loadicon("...")吧"我支持上面说法

Answer 5

晕。这是VBE环境啊。在Office里的，例如Word和Excel中编写宏时所用的环境，不在VB6环境中

Answer 6

Application.VBE.ActiveVBProject.VBComponents(1).Properties("Icon").Object  =  LoadPicture("Baseball.ico")                             起实呢 就是 窗体.对象=LoadPicture("Baseball.ico")

Answer 7

Application.VBE.ActiveVBProject 这些是做vb add-in时用到的
直接在普通vb工程里当然不好用了

Answer 8

在 VB ADD—IN工程下    
VBInstance.ActiveVBProject.VBComponents(1).Properties("Icon").Object  =  LoadPicture("Baseball.ico")  
这么也不好用。Application我还不知道在什么地方定义的，不会用。

Answer 9

最后还是查了一下msdn，发现这些东西还是Office里的，
中文的看不出来是哪的，看英文的就知道了！
到msdn里搜一下“Baseball.ico”就能看到了

Answer 10

Object 属性
         
返回或设置一个由属性所返回的对象的值，此属性可读/写。
说明
若一个属性返回对象，必须用 Object 属性返回或设置此对象的值。我只是想找个设置 Object的例子。

Answer 11

给你写个例子
打开word 按alt+f11进入vba环境，插入一个userform，再插入一个模块，在模块里写代码Sub a()
Set Application.VBE.ActiveVBProject.VBComponents(2).Properties("picture").Object = LoadPicture("Baseball.ico")
End Sub按f5运行，再打开userform看，"Baseball.ico"要指定完整的路径，userform没有icon属性所以换成picture属性