Visual Basic 6.0 사용자를 위한 MousePointer

업데이트: 2007년 11월

Visual Basic 2008에서는 MousePointer 속성이 Cursor 속성으로 대체되었으며 MousePointer 상수의 이름도 변경되었습니다.

개념적 차이

Visual Basic 6.0에서는 폼이나 컨트롤의 MousePointer 속성을 사용하여 커서가 해당 폼이나 컨트롤 위를 지날 때 표시할 커서의 모양을 변경할 수 있습니다.

Visual Basic 2008에서 Cursor 속성은 MousePointer와 같은 기능을 제공합니다.

사용자 지정 마우스 포인터

Visual Basic 6.0에서는 모든 아이콘 파일(.ico)이나 커서 파일(.cur)을 사용자 지정 MousePointer로 사용할 수 있습니다.

Visual Basic 2008에서는 커서 파일만 지원되므로 커서 파일을 Cursor 속성에 할당하여 런타임에 사용자 지정 커서를 설정할 수 있습니다.

vbIconPointer 상수

Visual Basic 6.0에는 커서를 아이콘 기호(사각형 안의 작은 사각형)로 변경하는 MousePointer 상수 vbIconPointer가 포함되어 있습니다. 이 상수는 레거시용으로 제공되므로 최신 운영 체제에서는 아무런 영향을 미치지 않고 기본 커서가 표시됩니다. Visual Basic 2008에는 이에 해당하는 요소가 없습니다.

MousePointer 속성에 대한 코드 변경 사항

다음 예제에서는 Visual Basic 6.0의 코딩 기술과 Visual Basic 2008의 코딩 기술이 어떻게 다른지 보여 줍니다.

커서 모양 변경

다음 코드에서는 런타임에 커서가 텍스트 상자 컨트롤 위를 지날 때 커서 모양을 기본 화살표 모양에서 모래 시계 모양 커서로 변경할 수 있는 방법을 보여 줍니다. Visual Basic 6.0 예제에서는 MousePointer 속성을 설정합니다. Visual Basic 2008 예제에서는 Cursor 속성이 MousePointer 속성과 동일한 역할을 합니다. Visual Basic 2008 예제에서는 새 MouseEnter 이벤트도 사용합니다.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MousePointer = vbHourGlass
End Sub

' Visual Basic
Private Sub TextBox1_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
    TextBox1.Cursor = System.Windows.Forms.Cursors.WaitCursor
End Sub

사용자 지정 커서 표시

다음 코드에서는 커서가 텍스트 상자 컨트롤 위를 지날 때 커서를 손 모양 커서로 변경할 수 있는 방법을 보여 줍니다. Visual Basic 6.0 예제에서는 MouseIcon 속성과 MousePointer 속성을 모두 설정하고 Visual Basic 2005 예제에서는 Cursor 속성을 Cursor 개체의 새 인스턴스로 설정합니다.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MouseIcon = LoadPicture("C:\Windows\Cursors\hmove.cur")
    Text1.MousePointer = vbHourGlass
End Sub

' Visual Basic
Private Sub TextBox2_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox2.MouseEnter
    TextBox2.Cursor = New System.Windows.Forms.Cursor _
    ("C:\mypath\mycursor.cur")
End Sub

MousePointer 상수에 해당하는 요소

다음 표에서는 Visual Basic 6.0 상수와 이에 해당하는 Visual Basic 2008 요소를 보여 줍니다.

업그레이드 참고 사항

Visual Basic 6.0 응용 프로그램을 Visual Basic 2008로 업그레이드하면 MousePointer 속성이 Cursor 속성으로 대체됩니다. MousePointer 상수를 사용하는 코드는 Visual Basic 2008의 Cursors 열거형을 사용하도록 수정됩니다.

Visual Basic 6.0 응용 프로그램에서 사용자 지정 MousePointer를 사용하는 경우에는 디자인 타임 설정 또는 사용자 지정 MousePointer 코드는 업그레이드되지 않고 경고가 발생합니다.

또한 Visual Basic 6.0 응용 프로그램에서 디자인 타임이나 런타임에 MousePointer를 vbIconPointer 상수로 설정하면 업그레이드하는 동안 기본 커서로 대체됩니다.

참고 항목

참조

사용자 지정 MousePointer를 설정할 수 없습니다.

기타 리소스

Visual Basic 6.0 사용자를 위한 Windows Forms 컨트롤

Visual Basic 6.0 사용자를 위한 컨트롤 속성, 메서드 및 이벤트 변경 내용