• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác
• Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

• Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

  trunghieu > 24-02-14, 12:37 PM

  Mình đang cần thay đổi biểu tượng mũi tên của trỏ chuột thành một biểu tượng khác khi trỏ chuột được di chuyển lên form mình muốn (chỉ khi di chuyển lên form mình muốn mới thay đổi, giồng như khi chơi game vậy). Mọi người có cách nào không vậy?

• RE: Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

  MTNQ > 25-02-14, 02:31 AM

  Mình có một bài hướng dẫn về cái này (sưu tầm), đưa lên đây bạn tự ngâm cứu nhé:
  
  

  CursorHack (Click to View)

  Mã:

  These are the standard Access cursors and can be set in code. The problem with this is once set the cursor remains this way until reset to another value

Screen.MousePointer = 1  'Standard Cursor
Screen.MousePointer = 3  ' I Beam
Screen.MousePointer = 7  'Double Arrow Vertical
Screen.MousePointer = 9  'Double Arrow Horizontal
Screen.MousePointer = 11 'Hour Glass

The function below allows you to change a cursor only when it hovers over a label or command button. It resets th e cursor when it leaves the control. Goto Modules in the Objects Dialog box and click on NEW. Then enter this code:


‘***********************    Code Starts Here   **********************************
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'=====================================================================
' Globals for cursor handling
    Global Const GCL_HCURSOR = (-12)
    Global hSwapCursor As Long
    Global hAniCursor As Long

'=====================================================================

Public Const IDC_ARROW = 32512&
Public Const IDC_IBEAM = 32513&
Public Const IDC_WAIT = 32514&
Public Const IDC_CROSS = 32515&
Public Const IDC_UPARROW = 32516&
Public Const IDC_ICON = 32641&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_NO = 32648&
Public Const IDC_HAND = 32649&
Public Const IDC_APPSTARTING = 32650&

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
  '
Public Function Arrow_Pointer()
    Screen.MousePointer = 1
End Function

Function ChangeCursor(strPathToCursor As String)

    On Error GoTo Error_On_ChangeCursor

' Example :
'           ChangeCursor ("C:\Program Files\Microsoft Office\Office\Hand.cur")

  If Dir(strPathToCursor) <> "" Then
      Dim lngRet As Long
      lngRet = LoadCursorFromFile(strPathToCursor)
      lngRet = SetCursor(lngRet)
  End If
  
Exit_ChangeCursor:

    Exit Function
    
Error_On_ChangeCursor:
    
    Resume Exit_ChangeCursor
  
End Function

Public Function Default_Pointer()
    Screen.MousePointer = 0
End Function

Public Function IBeam_Pointer()
    Screen.MousePointer = 3
End Function

Function MouseCursor(CursorType As Long)

' Example:  =MouseCursor(32512)     ' using Public Constants from above

  Dim lngRet As Long
  lngRet = LoadCursorBynum(0&, CursorType)
  lngRet = SetCursor(lngRet)
End Function

Public Function Replace_Cursor(PathToFile As String)

    ' Return handle from animated cursor
    
    ' Original - hAniCursor = LoadCursorFromFile("C:\WINDOWS\CURSORS\GLOBE.ANI")
    
    hAniCursor = LoadCursorFromFile(PathToFile)
    ' Swap current mouse pointer with new animated cursor :
    hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hAniCursor)
        
        
End Function

Public Function Restore_Cursor()

    ' Remove animated cursorand replace with saved index :
    
    hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hSwapCursor)
    
End Function
‘***********************    Code End Here   **********************************

When Prompted name the module modMousePointers

To change a pointer when the cursor moves over a control, goto the control’s

Properties – Events – On Mouse Move and in the MouseMove Property  enter

=MouseCursor(xxxxx)

where xxxxx is the number without the ampersand

Public Const IDC_ARROW = 32512&
Public Const IDC_IBEAM = 32513&
Public Const IDC_WAIT = 32514&
Public Const IDC_CROSS = 32515&
Public Const IDC_UPARROW = 32516&
Public Const IDC_ICON = 32641&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_NO = 32648&
Public Const IDC_HAND = 32649&
Public Const IDC_APPSTARTING = 32650&

• RE: Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

  trunghieu > 25-02-14, 12:12 PM

  (25-02-14, 02:31 AM)MatTroiNguQuen Đã viết: Mình có một bài hướng dẫn về cái này (sưu tầm), đưa lên đây bạn tự ngâm cứu nhé:
  
  

  CursorHack (Click to View)

  Mã:

  These are the standard Access cursors and can be set in code. The problem with this is once set the cursor remains this way until reset to another value

Screen.MousePointer = 1  'Standard Cursor
Screen.MousePointer = 3  ' I Beam
Screen.MousePointer = 7  'Double Arrow Vertical
Screen.MousePointer = 9  'Double Arrow Horizontal
Screen.MousePointer = 11 'Hour Glass

The function below allows you to change a cursor only when it hovers over a label or command button. It resets th e cursor when it leaves the control. Goto Modules in the Objects Dialog box and click on NEW. Then enter this code:


‘***********************    Code Starts Here   **********************************
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'=====================================================================
' Globals for cursor handling
    Global Const GCL_HCURSOR = (-12)
    Global hSwapCursor As Long
    Global hAniCursor As Long

'=====================================================================

Public Const IDC_ARROW = 32512&
Public Const IDC_IBEAM = 32513&
Public Const IDC_WAIT = 32514&
Public Const IDC_CROSS = 32515&
Public Const IDC_UPARROW = 32516&
Public Const IDC_ICON = 32641&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_NO = 32648&
Public Const IDC_HAND = 32649&
Public Const IDC_APPSTARTING = 32650&

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
  '
Public Function Arrow_Pointer()
    Screen.MousePointer = 1
End Function

Function ChangeCursor(strPathToCursor As String)

    On Error GoTo Error_On_ChangeCursor

' Example :
'           ChangeCursor ("C:\Program Files\Microsoft Office\Office\Hand.cur")

  If Dir(strPathToCursor) <> "" Then
      Dim lngRet As Long
      lngRet = LoadCursorFromFile(strPathToCursor)
      lngRet = SetCursor(lngRet)
  End If
  
Exit_ChangeCursor:

    Exit Function
    
Error_On_ChangeCursor:
    
    Resume Exit_ChangeCursor
  
End Function

Public Function Default_Pointer()
    Screen.MousePointer = 0
End Function

Public Function IBeam_Pointer()
    Screen.MousePointer = 3
End Function

Function MouseCursor(CursorType As Long)

' Example:  =MouseCursor(32512)     ' using Public Constants from above

  Dim lngRet As Long
  lngRet = LoadCursorBynum(0&, CursorType)
  lngRet = SetCursor(lngRet)
End Function

Public Function Replace_Cursor(PathToFile As String)

    ' Return handle from animated cursor
    
    ' Original - hAniCursor = LoadCursorFromFile("C:\WINDOWS\CURSORS\GLOBE.ANI")
    
    hAniCursor = LoadCursorFromFile(PathToFile)
    ' Swap current mouse pointer with new animated cursor :
    hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hAniCursor)
        
        
End Function

Public Function Restore_Cursor()

    ' Remove animated cursorand replace with saved index :
    
    hSwapCursor = SetClassLong(Screen.ActiveForm.hWnd, GCL_HCURSOR, hSwapCursor)
    
End Function
‘***********************    Code End Here   **********************************

When Prompted name the module modMousePointers

To change a pointer when the cursor moves over a control, goto the control’s

Properties – Events – On Mouse Move and in the MouseMove Property  enter

=MouseCursor(xxxxx)

where xxxxx is the number without the ampersand

Public Const IDC_ARROW = 32512&
Public Const IDC_IBEAM = 32513&
Public Const IDC_WAIT = 32514&
Public Const IDC_CROSS = 32515&
Public Const IDC_UPARROW = 32516&
Public Const IDC_ICON = 32641&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_NO = 32648&
Public Const IDC_HAND = 32649&
Public Const IDC_APPSTARTING = 32650&

  
  Mình đã tham khảo bài này ròi nhưng vẫn chưa thể thay đổi được biểu tượng khác theo ý mình, chỉ thay đổi theo một số kiểu có sẵn của máy thôi.
  

  ---

  Bạn Cafe Via He đã có một bài viết hướng dẫn trên diễn đàn nhưng hiện tại đường dẫn bị hỏng không thể download được.

• RE: Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

  MTNQ > 25-02-14, 04:12 PM

  (25-02-14, 12:12 PM)trunghieu Đã viết: Mình đã tham khảo bài này ròi nhưng vẫn chưa thể thay đổi được biểu tượng khác theo ý mình, chỉ thay đổi theo một số kiểu có sẵn của máy thôi.

  
  Được mà bạn, chắc bạn chưa "ngâm" đủ lâu nên nó chưa ra thui
  
  Đọc kỹ đoạn có tô màu nhé
  Function ChangeCursor(strPathToCursor As String)
  
  On Error GoTo Error_On_ChangeCursor
  
  ' Example :
  ' ChangeCursor ("C:\Program Files\Microsoft Office\Office\Hand.cur")
  
  If Dir(strPathToCursor) <> "" Then
  Dim lngRet As Long
  lngRet = LoadCursorFromFile(strPathToCursor)
  lngRet = SetCursor(lngRet)
  End If
  
  Exit_ChangeCursor:
  
  Exit Function
  
  Error_On_ChangeCursor:
  
  Resume Exit_ChangeCursor
  
  End Function
  
  P/s: Bây giờ mình đang bận, nếu có thời gian mình sẽ làm một VD gởi lên đây

• RE: Thay đổi biểu tượng mũi tên của con trỏ chuột bằng biểu tượng khác

  trunghieu > 25-02-14, 06:03 PM

  Cám ơn bạn mặt trời ngủ quên mình đã làm được rồi!
• Bài trước Bài tiếp