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
汗.你command click以后才触发颜色设置.貌似应该放在form load里吧.第二歌问题也是一样.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024