Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo hiệu ứng sáng khi di chuyển chuột
#1
Xin mạn phép hỏi ý tưởng như sau: Tại Listbox khi chưa Click vào Item mà chỉ di chuyển chuột thì có tạo hiệu ứng sáng được không (giống như trong màn hình Explorer, khi chưa chọn thư mục mà chỉ rê chuột thì nó có hiệu ứng sáng). Mục đích vấn đề là để thuận tiện khi sử dụng dữ liệu lớn trong Listbox.
Xin được giải đáp và cảm ơn ạ!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#2
Có 3 cách làm:
1. Bạn tự viết 1 control tương tự như Listbox của MS Windows, lúc này bạn có thể mặc tình thêm bớt hiệu ứng gì thì tùy bạn nhưng cách này rất khó nếu không muốn nói là bất khả thi! vì Microsoft phải mất hơn...10 năm mới hoàn thiện được Listbox thì không biết bạn phải mất bao nhiêu năm?
2. Bạn lên mạng và tìm 1 ActiveX control giống như Listbox và tải về gắn vào chương trình của mình để xài, nhưng mấy cái Activex gắn kèm này rất khó sử dụng đem qua máy khác thì nó báo lỗi tùm lum! cách này cũng không khả thi cho lắm!
3. Bạn dùng Subform thay cho Listbox (khi thực thị chương trình thì bạn đặt thuộc tính cho nó là Datasheet), Subform thì cũng là form nên bạn có thể lập trình thoải mái! muốn gán hiệu ứng gì cho nó cũng được, ngoài ra không như Listbox bị giới hạn số dòng nạp liệu (65535 dòng) Subform nạp liệu thoải mái (chỉ tùy thuộc vào số record của Table).
Chữ ký của lmthu Xin chào, mình là lmthu, Tham gia http://thuthuataccess.com/forum từ ngày 04-07 -14.
Reply
Những người đã cảm ơn
#3
007  Có một cách dã chiến đó là:
- Xác địch toạ độ X, Y của chuột.
- Ở sự kiện MouseUp của Listbox sẽ cho di chuyển 1 cái Rectangle theo toạ độ chuột.

[Hình: giphy.gif]


- Hàm xác định toạ độ chuột:

Mã PHP:
Option Compare Database
Option Explicit

Private Type POINTAPI
   X 
As Long
   Y 
As Long
End Type
Private Declare Function GetCursorPos Lib "user32" _
                                     
(lpPoint As POINTAPI) As Long

Public Function GetXCursorPos() As Long
   Dim pt 
As POINTAPI
   GetCursorPos pt
   GetXCursorPos 
pt.X
End 
Function
Public Function 
GetYCursorPos() As Long
   Dim pt 
As POINTAPI
   GetCursorPos pt
   GetYCursorPos 
pt.Y
End 
Function 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tieu_ngao , maidinhdan , mrtoanbin , NguyenDungAnh
#4
Hay quá anh!
Chữ ký của tieu_ngao Xin chào, mình là tieu_ngao, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 29 7,295 03-11-18, 02:29 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn [Video] Cách Đóng gói Access cho chuyên nghiệp maidinhdan 1 496 22-08-18, 08:32 AM
Bài mới nhất: NguyenDungAnh
  Lỗi khi Chuyển từ File mdb thành mde Noname 10 8,495 06-02-17, 10:07 AM
Bài mới nhất: NGUYENTHANHPHUONG
  [Thủ Thuật] Hiểu đúng về phân quyền - MDE - SQL Backend ckno1no 6 2,223 28-07-16, 05:16 PM
Bài mới nhất: maidinhdan
  Vô hiệu hóa form A khi kích hoạt form B từ form A yeubongdo01 8 4,329 03-11-14, 05:36 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line