Question

VB 用自定义颜色对话框设置字体颜色

我在窗体上画了一个通用对话框，一个命令按钮，一个标签
按命令按钮显示颜色对话框，选择颜色，改变标签内字的颜色
Private Sub Command1_Click()
CommonDialog1.Flags = 1
Label1.ForeColor = CommonDialog1.Color
CommonDialog1.Action = 3
End Sub

选择颜色后，标签内字的颜色没有改变，但是再次按command1时，颜色才改变，请问这是怎么回事？

还有就是，如果不用label1，而是用print直接打印在窗体上的字
Private Sub Command1_Click()
CommonDialog1.Flags = 1
form1.ForeColor = CommonDialog1.Color
CommonDialog1.Action = 3
End Sub

Private Sub Form_Load()
Form1.Show
Print "VB 程序设计"
End Sub
这样，用颜色对话框设置颜色后，字体颜色没有变化，是哪里错了？应该怎么改？

Answer 1

Private Sub Command1_Click()
'这时最好也启用它的CancelError
CommonDialog1.CancelError = True
'再调用错误处理
On Error Goto Wrongs
CommonDialog1.Flags = 1
CommonDialog1.Action = 3 '上移
Label1.ForeColor = CommonDialog1.Color
Exit Sub
Wrongs:
Msgbox "用户点击了取消"
End Sub

Answer 2

汗.你command click以后才触发颜色设置.貌似应该放在form load里吧.第二歌问题也是一样.