通过使用【颜色】对话框,用户可方便地从中选取所需要的颜色。单击通用对话框控件【属性页】对话框的【颜色】选项卡,如图6.13所示,从中可以设置【颜色】对话框的颜色(color)与标志(Flags)属性(也可以在【属性】窗口中设置)。颜色(Color)属性用来设置或返回在【颜色】对话框中选定的颜色值,每个颜色值对应一种颜色。如255对应红色,0对应黑色,17777215对应白色,……
3 H( ?/ h) E' t7 C 【颜色】对话框的标志(Flags)属性有4种可能值,如表6.11所示。" {4 p T, c8 c5 x
/ @. D" ~1 o% S+ I3 }, ^
实例6.5使用【颜色】对话框, y! e: l0 j6 M7 w! Y# P
在该程序中,用户可以通过【颜色】对话框来选取标签的背景色,并且能显示出所选颜色的颜色值。
* z2 k! C, C# I6 h* N2 s 在窗体中放置两个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。其中各对象的属性如表6.12所示。/ b/ J/ v& `1 F% ?/ t
8 s) c) {5 K3 K! Z2 N. Q7 ?6 Q7 m
Private Sub ComColor_Click() DiaColor.Acttion=3: K) ?$ I J7 I6 a, a, T: g* `8 F
LabColor.BackColor=DiaColor.Color. H& Q! j; W3 N' ^* `
TexColor.Text=DiaColor.Color
5 o1 x, s9 {1 b, p1 T: i6 M0 A# I; z End Sub
/ M- h1 |+ _4 a! V) T4 J( I! F: g1 l8 ?- i0 o
运行该程序,单击【设置颜色】按钮,在弹出的【颜色】对话框中选择一种颜色,单击【确定】按钮,标签的背景色就变成了用户在【颜色】对话框中所选取的颜色了,如图6.15所示。
( J# t+ J4 M) A# r7 I* j |