VB 窗体怎么引用UserControl上的image的picture属性

2013-07-04

VB 窗体如何引用UserControl上的image的picture属性本帖最后由 bcrun 于 2013-04-26 08:43:57 编辑’UserCo

VB 窗体如何引用UserControl上的image的picture属性
本帖最后由 bcrun 于 2013-04-26 08:43:57 编辑

’UserControl
Public Property Get Image1Picture() As String
    Image1Picture = Image1.Picture
End Property

Public Property Let Image1Picture(ByVal New_Image1Picture As String)
    Image1.Picture() = New_Image1Picture
    PropertyChanged "Image1Picture"
End Property
’他说类型不匹配
'form
Form2.UserControl11(0).Image1Picture = LoadPicture(App.Path & "" & "图\form2的\2.jpg")
'咋办啊！！！！！！！

VB UserControl 引用属性 image
[解决办法]
楼主竟然把String类型和StdPicture类型搞到一起，似乎没啥编程基础啊，试试

’UserControl
Public Property Get Image1Picture() As StdPicture
    Set Image1Picture = Image1.Picture
End Property
 
Public Property Let Image1Picture(ByVal New_Image1Picture As StdPicture)
    Set Image1.Picture = New_Image1Picture
    PropertyChanged "Image1Picture"
End Property

'form
Form2.UserControl11(0).Image1Picture = LoadPicture(App.Path & "" & "图\form2的\2.jpg")

[解决办法]
Public Property Let Image1Picture(ByVal New_Image1Picture As stdpicture)
Image1.Picture = New_Image1Picture
PropertyChanged "Image1Picture"

End Property

热点排行