Animation Button 만들기

Step 1: 컨트롤 도구 상자의 버튼 만들기

버튼에 대해 질문을 하셨으니 먼저 버튼을 하나 만듭니다. 이벤트를 사용할 예정이므로 양식 도구모음의 버튼이 아닌, 컨트롤 도구모음의 그것을 사용해서 버튼을 하나 그립니다.

자 이제 한번은 이 버튼 내부와 외부를 번갈아 가며 눌러 보세요. 버튼 자체를 클릭할 때와 버튼 바깥의 셀을 클릭할 때, 버튼의 캡션이 바뀌지요? 버튼 오브젝트에도 여러 가지 이벤트가 발생할 수 있습니다. 세어 보니까 버튼 개체에는 KeyDown, KeyPress, KeyUp, MouseDown, MouseMove, MouseUp 등 총 13개의 이벤트가 발생할 수 있군요.

코드 자체는 아주 간단합니다. btnFocusTest라는 버튼의 GotFocus라는 이벤트와 LostFocus 이벤트가 발생했을 경우 Caption 속성을 지정해 주고 버튼의 색깔을 서로 다른 것으로 지정해 준 것 밖에 없습니다. GotFocus와 LostFocus 이벤트가 어떤 것인지는 설명을 드리지 않아도 되겠지요?

Step 2: GotFocus와 LostFocus 이벤트

Private Sub btnFocusTest_GotFocus()
    With btnFocusTest
        .Caption = "Welcome!!!"
        .BackColor = RGB(255, 0, 0)
        .ForeColor = RGB(255, 255, 255)
    End With
End Sub

Private Sub btnFocusTest_LostFocus()
    With btnFocusTest
        .Caption = "You've Gone!!!"
        .BackColor = RGB(0, 100, 255)
        .ForeColor = RGB(255, 255, 0)
    End With
End Sub

Step 3: 마우스 포인터 위치에 따라 그림 바꾸기

이상의 것들을 잘 응용하면 원하는 것을 만들 수 있습니다. 아래의 그림(사실은 버튼 오브젝트 위에 그림을 입혀놓은 것입니다)을 보세요. 그림 위에 마우스 포인터를 올렸다가 내렸다가 몇 번 반복해 보세요.

(PC에 따라 버튼 위에 약 1~2초 정도 포인터를 올려 두어야 하는 경우도 있습니다)

이 페이지에는 예제에서 사용한 그림 파일(Bathers.bmp, 소녀.gif)이 포함되어 있지 않습니다. 가지고 계신 아무 그림 파일이나 같은 이름으로 통합 문서와 같은 폴더에 두고 사용해 보시기 바랍니다.

마우스가 버튼 위에 있을 때와 버튼 밖에 있을 때, 서로 다른 그림이 표시되지요? (야한 그림을 사용했다고 뭐라 그러는 분은 없겠지? ^^ 이것은 외설 작품이 아니라 아니라 예전에도 한번 보여드렸지만 르노와르의 작품입니다. 작품명이 목욕하는 처녀들이었던가 뭐였든가…)

그건 그렇고… 코드를 보도록 하지요.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, _
    ByVal Y As Single)
    Static blnOK As Boolean
    '//위의 예제들과는 달리 MouseMove라는 이벤트를 사용해 보았습니다.
    '//그리고 blnOK라는 Static 변수, 즉 정적 변수를 하나 선언해 주었습니다.
    '//이것은 프로시저를 재실행하더라도 기존 값을 그대로 지니고 있도록 하기 위한 것입니다.
    '//"그러면 기존 값을 그대로 지녀서 뭐하는데 써먹나요?"

    '//아주 좋은 질문입니다! ^^ 버튼 위에 마우스 포인터가 놓여져 있는지 아닌지를 어떻게
    '//판단할 수 있을까요? 사람 같으면야 눈으로 보면 되지만 컴퓨터(EXCEL)는 눈이 없지요?
    '//그러므로 눈을 대신해서 표시를 해 주기 위한 무언가가 있어야 하겠는데, 바로 그 역할을
    '//담당하는 변수입니다.

    On Error GoTo ET
    '//버튼 위에 마우스 포인터가 놓여 있느냐 아니냐에 따라 서로 다른 그림을 Load합니다.

    With CommandButton1
        If blnOK Then
            .Picture = LoadPicture(ThisWorkbook.Path & "\소녀.gif")
        Else
            .Picture = LoadPicture(ThisWorkbook.Path & "\Bathers.bmp")
        End If
    End With
    blnOK = Not blnOK

ET:
End Sub

마무리

어려운 부분은 하나도 없을 것입니다. 여러 가지로 응용을 해 보시고 재미있는 것을 만드신 분은 알려주시기 바랍니다. 보내주시는 파일은 홈페이지에 등록해 드리겠습니다.

오늘은 여기까지…

정리 — 애니메이션 버튼 핵심

자주 묻는 질문 (FAQ)

마치며

명령 단추의 이벤트를 활용하면 마우스 상태에 따라 모양이 바뀌는 재미있는 버튼도 만들 수 있습니다.