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

Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform
• Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform

• Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform

  AnNguyen > 20-09-22, 07:45 PM

  Do nhiều cột nên em muốn khi nhất ctrl+con lăn chuột thì sẽ sang ngang chứ không dọc nữa thì làm thế nào?
  Em cảm ơn!

• RE: Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform

  Noname > 18-07-23, 12:32 PM

  Không có file mẫu để thử, nhưng bạn có thể thử với sự kiện MouseWheel xem sao.
  
  

  Mã PHP:

  Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

End Sub 


• RE: Nhấn ctrl+con lăn chuột để di chuyển trái phải trong subform

  longkd_bvct@yahoo.com.vn > 18-07-23, 04:33 PM

  (20-09-22, 07:45 PM)AnNguyen Đã viết: Do nhiều cột nên em muốn khi nhất ctrl+con lăn chuột thì sẽ sang ngang chứ không dọc nữa thì làm thế nào?
  Em cảm ơn!

  
  
  Để khi bấm Ctrl + cuộn chuột sang ngang trong access, bạn có thể sử dụng mã VBA sau:
  
  
  [/code]

  Mã:

  Public Sub ScrollHorizontally()
  ' Get the current position of the horizontal scroll bar
  Dim position As Long
  position = Application.HorizontalScrollBarPosition
  ' Scroll the horizontal scroll bar by one notch
  Application.HorizontalScrollBarPosition = position + 1
End Sub

  
  Để sử dụng mã này, bạn có thể thêm nó vào một mô-đun và sau đó gọi nó từ Access bằng cách nhấn
  F5
  . Bạn cũng có thể thêm nó vào một nút hoặc thanh công cụ và sau đó nhấp vào nút hoặc nhấn nút trên thanh công cụ để cuộn thanh cuộn theo chiều ngang.
  Nếu bạn muốn cuộn thanh cuộn theo một khoảng cách cụ thể, bạn có thể sửa đổi mã để bao gồm số lượng notch mà bạn muốn cuộn. Ví dụ: để cuộn thanh cuộn năm notch theo chiều ngang, bạn sẽ thay đổi dòng sau:
  Application.HorizontalScrollBarPosition = position + 1
  
  với dòng sau:
  Application.HorizontalScrollBarPosition = position + 5
  
  ----------------------
  Lượm lặt trên google Bard. Hy vọng có thể giúp đc bạn
• Bài trước Bài tiếp