• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Module cho label

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

nam0711
Thành viên tích cực
Thành viên tích cực
Bài viết: 166
Ngày tham gia: T.Ba 07/06/2011 3:52 pm
Đến từ: Việt Nam/TP.HCM
Has thanked: 4 time
Been thanked: 2 time

Module cho label

Gửi bàigửi bởi nam0711 » T.Năm 24/08/2017 7:56 pm

Chào các bạn.
Mình có sở thích là rất kết giao diện phẳng! Vì thế mình dùng label thay cho button.
Nhưng có 1 cái là ở các Event như MouseMove, MouseUp, MouseDown của label, mình phải thêm các dòng thay đổi màu sắc BackColor
của label để nó đẹp hơn. Nhưng làm vậy thì rất bất tiện nếu trong form nhiều Label thay thế button. Mình có tìm hiểu là dùng Module để code gọn hơn, chỉ cần khai báo 1 lần, dùng đc cho tất cả label vì chỉ cần call nó ở Event như MouseMove, MouseUp, MouseDown
Nhưng về module mình mù tịt, k biết khai báo thế nào. Mong các bạn giúp



Hình đại diện của người dùng
phanthequang4101987
Thành viên danh dự
Thành viên danh dự
Bài viết: 116
Ngày tham gia: T.Ba 01/04/2008 6:39 am
Đến từ: Nghi Xuân - Hà Tĩnh
Has thanked: 5 time
Been thanked: 21 time
Liên hệ:

Re: Module cho label

Gửi bàigửi bởi phanthequang4101987 » T.Tư 30/08/2017 8:53 am

Ban sử dụng như vậy thì bất cứ label nào cũng chuyển màu khi đi chuyển vào. Tốt nhất là đổi tên tất cả label thành cùng tên khác index. Có vài code là dùng cho toàn bộ label cần.
Label1_mousemove(index As....)
Label1(index).Backcolor=...
End...

Form_Mousemove()
Dim i
For i=0 to...
Label1(i).Backcolor=...
Next i
...
†™_Çøø£_™†.......♥.......†™_U††»ñhøç_™†
Đưa người ta chưa đưa qua sông
mà sao nghe tiếng sóng trong lòng
.(¯`v´¯)_______ÎÎ_____ÎÎ________(¯`v´¯)


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.4 khách