[VB] CommonDialog 클래스 : 색상 대화 상자 사용하기

■ CommonDialog 클래스에서 색상 대화 상자를 사용하는 방법을 보여준다.

▶ 예제 코드 (VB)


Private Sub CommandButton1_Click()

    Dim msg As String
    Dim button As Long
    Dim response As Long

    msg = "배경색을 바꾸시겠습니까?"
    button = vbYesNo + vbExclamation
    response = MsgBox(msg, button, "확인")

    If response = vbYes Then

        CommonDialog1.CancelError = True

        On Error GoTo ErrorLabel

        CommonDialog1.ShowColor

        Me.BackColor = CommonDialog1.Color

    End If

    Exit Sub

ErrorLabel:

    MsgBox "사용자가 취소 버튼을 클릭했습니다."

End Sub

Private Sub CommandButton1_Click()

Dim msg As String

Dim button As Long

Dim response As Long

msg = "배경색을 바꾸시겠습니까?"

button = vbYesNo + vbExclamation

response = MsgBox(msg, button, "확인")

If response = vbYes Then

CommonDialog1.CancelError = True

On Error GoTo ErrorLabel

CommonDialog1.ShowColor

Me.BackColor = CommonDialog1.Color

End If

Exit Sub

ErrorLabel:

MsgBox "사용자가 취소 버튼을 클릭했습니다."

End Sub