'可以使用commondialog控件
Dim strFontColor As String
commondialog1.CancelError = True
'On Error GoTo ErrHandler
'设置 Flags 属性
commondialog1.Flags = cdlCCRGBInit
' 显示“颜色”对话框
commondialog1.ShowColor' 设置字体的颜色为选定的颜色
text1.ForeColor = commondialog1.Color
' 这就是转换成十六进制的颜色值
strFontColor = Hex(commondialog1.Color)
说明:和网页上的#RGB正好倒置
Dim strFontColor As String
commondialog1.CancelError = True
'On Error GoTo ErrHandler
'设置 Flags 属性
commondialog1.Flags = cdlCCRGBInit
' 显示“颜色”对话框
commondialog1.ShowColor' 设置字体的颜色为选定的颜色
text1.ForeColor = commondialog1.Color
' 这就是转换成十六进制的颜色值
strFontColor = Hex(commondialog1.Color)
说明:和网页上的#RGB正好倒置
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货