通過使用【顏色】對話框,用戶可方便地從中選取所需要的顏色。單擊通用對話框控件【屬性頁】對話框的【顏色】選項卡,如圖6.13所示,從中可以設(shè)置【顏色】對話框的顏色(color)與標(biāo)志(Flags)屬性(也可以在【屬性】窗口中設(shè)置)。顏色(Color)屬性用來設(shè)置或返回在【顏色】對話框中選定的顏色值,每個顏色值對應(yīng)一種顏色。如255對應(yīng)紅色,0對應(yīng)黑色,17777215對應(yīng)白色,……
【顏色】對話框的標(biāo)志(Flags)屬性有4種可能值,如表6.11所示。
實例6.5使用【顏色】對話框
在該程序中,用戶可以通過【顏色】對話框來選取標(biāo)簽的背景色,并且能顯示出所選顏色的顏色值。
在窗體中放置兩個標(biāo)簽控件、一個文本框控件、一個按鈕控件和一個通用對話框控件。其中各對象的屬性如表6.12所示。
Private Sub ComColor_Click()
DiaColor.Acttion=3
LabColor.BackColor=DiaColor.Color
TexColor.Text=DiaColor.Color
End Sub |
運行該程序,單擊【設(shè)置顏色】按鈕,在彈出的【顏色】對話框中選擇一種顏色,單擊【確定】按鈕,標(biāo)簽的背景色就變成了用戶在【顏色】對話框中所選取的顏色了,如圖6.15所示。