請問我做了一個使用者控制項
要讓他能再表單載入時
動態的變更他的Picture 屬性
也就是說每次載入時控製項的圖形都不一樣
該如何做????
以下是我做的程式
但程式執行時都出現
不正確的屬性用法
請高手們幫幫忙~~~~~~~~~~~~`
Dim m_Picture As Picture
Private Sub UserControl_InitProperties()
Set m_Picture = Nothing
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim picMine As Picture
Set picMine = PropBag.ReadProperty("Picture", Nothing)
If Not picMine Is Nothing Then
Set Picture = picMine
End If
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Picture", m_Picture
End Sub
Public Property Get Picture() As Picture
Set Picture = m_Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set m_Picture = New_Picture
PropertyChanged "Picture"
Refresh
End Property
Private Sub Form_Load() '這邊會出錯
UserControl.Picture = LoadPicture("1.ico")
End Sub
要讓他能再表單載入時
動態的變更他的Picture 屬性
也就是說每次載入時控製項的圖形都不一樣
該如何做????
以下是我做的程式
但程式執行時都出現
不正確的屬性用法
請高手們幫幫忙~~~~~~~~~~~~`
Dim m_Picture As Picture
Private Sub UserControl_InitProperties()
Set m_Picture = Nothing
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim picMine As Picture
Set picMine = PropBag.ReadProperty("Picture", Nothing)
If Not picMine Is Nothing Then
Set Picture = picMine
End If
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Picture", m_Picture
End Sub
Public Property Get Picture() As Picture
Set Picture = m_Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set m_Picture = New_Picture
PropertyChanged "Picture"
Refresh
End Property
Private Sub Form_Load() '這邊會出錯
UserControl.Picture = LoadPicture("1.ico")
End Sub
全站熱搜
留言列表