Bener, bisa pakai event Mouse Move.
Misal:
Private Sub ctlLabVSplit_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
MouseCursor (IDC_SIZEWE)
End Sub
Tapi anda harus punya module yg isinya berikut ini:
Option Compare Database
'*********** Code Start ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function
Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************
Haer Talib
On 8/20/07, har_i20002000 <[EMAIL PROTECTED]> wrote:
>
> Dear masters Acces........,
>
> Aku ingin tanya tentang cara menset mouse pointer menjadi gambar tangan
> pada label tertentu (tanpa me-link-kan label tersebut ke apapun juga).
> Saya berharap, di dalam VB source codenya adalah:
> Me.Application.Screen.MousePointer = .....
> Ini saya gunakan untuk event MouseMove, sehingga ketika mouse berada di
> label itu, secara otomatis akan berubah bentuk.
>
> Thanks.
>
> Hariyanto (Surabaya)
>
>
>
> SPAM IS PROHIBITED
> Yahoo! Groups Links
>
>
>
>
