在VB.Net中如何设置IPictureDisp型属性？

[Python]

在VB.Net中调用COM组件，在COM组件中，有一属性Picture(IPictureDisp*)，请问在VB.Net中如何给该属性赋值？
在VB 6中，加入一个PictureBox，将Picture1.Picture赋给该属性，没有问题，但是，在VB.Net中，将PictureBox1.Image赋给给属性，却不行，为什么？？
谢谢了。

[Python]

Help me pls~~~~~~~~~~~~
up

[acptvb]

感谢您使用微软产品。

在VB.NET中，picturebox的Image属性是system.Drawing.Image类型的，在VB6中，Picturebox.picture属性是IPictureDisp接口类型的，所以.NET中无法将Picturebox.Image属性直接赋值给IPictureDisp接口类型而VB6中可以。在.NET您可以使用Microsoft.VisualBasic.Compatibility中VB6类提供的方法进行类型转换：
首先Add reference:在Com选项卡中选择OLE Automation,然后请参考如下代码：
Imports Microsoft.VisualBasic.Compatibility
Private Sub Convert()
Dim picPicture As stdole.IPictureDisp
picPicture = VB6.ImageToIPictureDisp(PictureBox1.Image)
End Sub

微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。

[sumtec]

gz