编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 颜色对话框

VB6 界面设计 颜色对话框

“颜色”对话框如下图所示


颜色对话框_界面设计_VB6


属性

Color

返回或设置选定的颜色。


[例8.2]用命令按钮的Click事件打开“颜色”对话框。


颜色对话框_界面设计_VB6

Private Sub Command1_Click()
    With CommonDialog1
        .CancelError = False  '按对对话框中的取消按钮不警告
        .ShowColor() '打开颜色对话框
        If Check1.Value = 1 Then Picture1.BackColor = .Color '取颜色
        If Check2.Value = 1 Then Label1.ForeColor = .Color
        Text1.Text = " " & .Color   '显示颜色值
    End With
End Sub

Private Sub Form_Load()
    Form2.Caption = "使用颜色对话框示例"
    Command1.Caption = "打开颜色对话框"
    Check1.Caption = "背景色"
    Check2.Caption = "前景色"
    Label1.FontSize = 30
    Label1.WordWrap = True
    Label1.Caption = "三人之行" + Chr(13) + Chr(10) _
    & "必有我师"
End Sub



编程学习 VB6 界面设计 颜色对话框 转载请保留此行.谢谢.

VB6