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

Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột
• Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột

• RE: Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột

  TvAcc > 26-09-14, 09:36 AM

  Trong Access 2010 mà dùng:
  
  Private Sub cmdTimkiem_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
  MouseCursor IDC_HAND
  End Sub
  
  Nó sẽ báo lỗi ngay là “Variable not defined”
  
  Cách đơn giả nhất là mở Bảng thuộc tính “Property sheet” của nút cmdTimKiem:
  - Tại dòng thuộc tính “Hyperlink Address” hoặc dòng thuộc tính ““Hyperlink SubAddress” gõ vào dấu thăng #
  - Tại dòng thuộc tính “ControlTip Text” gõ vào chữ Tìm kiếm (hay cái gì đó thì tùy)
  
  Các nút, label khác làm tương tự.

• RE: Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột

  changkhoonline77 > 26-09-14, 09:44 AM

  xin lỗi bạn
  thêm modues này
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

'*********** 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 ************ 


• RE: Hỏi: Làm thế nào thay đổi cách hiện thị của con trỏ chuột

  Minh Tiên > 26-09-14, 04:29 PM

  Trong Acc2007:
  Đối với Command Button thì: Vào Properties --> Thẻ Other --> Tạị dòng Cursor On Hover chọn: Hyperlink hand là OK. Khi di chuyển con trỏ vào đổi tượng này thì sẽ chuuyển sang "Bàn tay".
  Thân chào !
• Bài trước Bài tiếp