想請問一下, 如果在 User Control 中用 Property Let 自訂一個屬性, 怎樣可以把這個屬性做到好像 Form 的 Picture 屬性一樣可以點下去就會開一個視窗問你 File 的位置?
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

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


留言列表 (1)

發表留言
  • Tommy
  • When you try to set a property of control, it'll enter "Property Let"
    So, if you put a commondialog in to your UserControl and make some code such as below, it may works. Good Luck
    Public Property Let PickFig(ByVal vNewValue As Variant)
    With dlgopenbmp
      .Flags = cdlOFNFileMustExist 'Or cdlOFNExplorer
      .FileName = ""
      .Filter = "INI Files (*.bmp)!*.bmp"
      .FilterIndex = 1
      .InitDir = CurDir
      .ShowOpen
     End With
     Picture1.Picture = Str(dlgopeninit.FileName)
    End Property