• Trang chủ click to expand contents 

  • 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 !