請問我做了一個使用者控制項
要讓他能再表單載入時
動態的變更他的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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()