i've post:
Private Sub UserControl_Initialize()
Set mFont = New StdFont
Set mBAG = New PropertyBag
UserControl_ReadProperties mBAG
...
end sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
.WriteProperty "Font", mFont
End With
End Sub...
hello!
i had problem with property in my user control! i use:
i hade this code in my User contrlo
Private WithEvents mFont As StdFont
Private Sub UserControl_Initialize()
' FONT
Set mFont = New StdFont
Set UserControl.Font = mFont
Set mTEXTBOX.Font = mFont
End Sub
Public Property Get Font()...
hello!
i had problem with Font property! i use:
Public Property Get Font() As StdFont
Set Font = mTEXTBOX.Font
End Property
Public Property Set Font(mnewFont As StdFont)
Set mTEXTBOX.Font = mnewFont
PropertyChanged "Font"
End Property
now, in project windows it works, i...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.