첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ CommonDialog 클래스 : 색상 대화 상자 사용하기

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요