VB6中如何访问ActiveX Image控件的picture属性？

本文共计330个文字，预计阅读时间需要2分钟。

在VB6中创建一个ActiveX+OCX控件，具有图片属性，并设置并获取控件中的图片属性。希望用户能在设计时选择图像。有以下方法：

1. 定义IPictureDisp类型的属性：vbPublic Property Picture() As IPictureDisp Get ' 返回图片对象 End Get Set(value As IPictureDisp) ' 设置图片对象 End SetEnd Property

2.在设计时，通过属性窗口设置图片：

vbPublic Sub SetPicture(ByVal filePath As String) ' 使用System.Drawing和System.Runtime.InteropServices命名空间 Dim pic As Picture Dim image As Image Dim picDisp As IPictureDisp

image=New Bitmap(filePath) pic=New Picture pic.Graphic=image picDisp=pic

Me.Picture=picDispEnd Sub

3.在代码中获取图片属性：

vbPublic Function GetPicture() As Picture ' 返回当前控件的图片对象 Dim picDisp As IPictureDisp=Me.Picture Dim pic As Picture=New Picture

pic=New Picture pic.Graphic=picDisp.Graphic

Return picEnd Function

我试图在VB6中创建一个带有图片属性的ActiveX OCX. picture属性设置并获取控件中图像的图片属性.我希望用户能够在设计时选择图像.

有任何想法吗？

谢谢

只需定义IPictureDisp类型的属性即可.

Public Property Get Picture() As IPictureDisp Set Picture = UserControl.Picture End Property Public Property Set Picture(ByVal p As IPictureDisp) Set UserControl.Picture = p PropertyChanged "Picture" End Property

不要忘记保存到手提包：

Private Sub UserControl_ReadProperties(PropBag As PropertyBag) With PropBag ... Set Me.Picture = .ReadProperty("Picture", Nothing) ... End With End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) With PropBag ... .WriteProperty "Picture", Me.Picture, Nothing ... End With End Sub