Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[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
#1
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?
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
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)
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn trunghieu , Noname
#3
(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ì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.
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(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 014

Đọ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 015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn trunghieu
#5
Cám ơn bạn mặt trời ngủ quên mình đã làm được rồi!
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
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
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 9 305 08-12-16, 03:44 PM
Bài mới nhất: toancvp
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 268 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Thay đổi hình ảnh theo mã feeling 3 154 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 360 12-10-16, 01:01 AM
Bài mới nhất: toancvp

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ơ