Question

VB用户控件的问题：用Label控件做了一个按钮，定义了一个字体颜色的属性，怎样像Command一样改变颜色呢？

Public Property Get LabelFontColor() As Variant
LabelFontColor = Label1.ForeColor

End Property

Public Property Let LabelFontColor(ByVal MFontfore As Variant)
Label1.ForeColor = MFontfore
PropertyChanged (MFontfore)
End Property
程序如上，但在使用这个控件的时候，并没有出现，像其他的可以出现颜色选择对话框
怎样做可以呢？
谢谢！

Answer 1

Private m_i As Integer
Private m_j As Integer
Private m_k As Integer

Public Property Get i() As Integer
i= m_i
End Property

Public Property Let i(ByVal ii As Integer)
m_i = ii
End Property
'j、k参照写出,RGB(i,j,k)给哪个变量赋值，自己考虑吧

追问

像我那样做也可以改变字体颜色啊，我想的是，能否出现一个使用label1.forecolor属性一样出现一个调色板的对话框进行颜色的选择呢！

Answer 2

不好意思，这个我不是很清楚