在窗体画一个Command1,加入以下代码:
Option Explicit
Private Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” (pChoosecolor As ChooseColor) As Long
Private Type ChooseColor
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Sub Command1_Click()
Dim WinColor As ChooseColor
With WinColor
.lStructSize = Len(WinColor)
.hwndOwner = Me.hwnd
.hInstance = App.hInstance
.flags = 0
.lpCustColors = String$(16 * 4, 0)
End With
If ChooseColor(WinColor) > 0 Then
Me.BackColor = WinColor.rgbResult
End If
End Sub