Đánh giá chủ đề:
  • 1 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Làm thế nào để nhãn đổi màu mỗi khi lựa chọn Option trong form
#11
Bạn có thể tạo thêm 1 sub có tên "mau_den" để trả màu các label về màu đen rồi đặt trước sub thay đểi giá trị của Frame Chon_cong_viec_can_lam của bạn khi chọn Option Value tương ứng.
Trước tiên bạn kiểm tra các thiết đạt của Option Value từng option.
Ví dụ:
Option1 có Option Value=1, Label1
Option2 có Option Value=2, Label2
Option3 có Option Value=3, Label3
.......

Sau đó bạn viết code như sau:


Private Sub Frame0_AfterUpdate()
mauden
Select Case Frame0.Value
Case 1
Label1.ForeColor = 213699
Case 2
Label2.ForeColor = 213699
Case 3
Label3.ForeColor = 213699
Case ...
Label....ForeColor = 213699
......
End Select
End Sub


Sub mauden()
Label1.ForeColor = 0
Label2.ForeColor = 0
Label3.ForeColor = 0
......
End Sub

Như vậy mỗi khi bạn chọn một Option thì Frame Chon_cong_viec_can_lam của bạn thay đổi giá trị tương ứng, đầu tiên nó sẽ trả ForeColor tất cả các Option về màu đen, sau đó thực hiện việc đổi màu Option bạn chọn. Làm cách này bạn chỉ cần viết 1 sub cho Frame Chon_cong_viec_can_lam và 1 sub trả các label về màu đen, code của bạn sẽ đơn giản và khó bị nhầm lẫn. Chúc bạn thành công.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#12
Xin cảm ơn các bạn đã trợ giúp tôi!

Thật ra, vì cần quá nên mình vừa đăng lên đây, vừa cầu cứu một anh làm rất tốt về Access (không biết phải anh HIEUVN?) giải quyết cho bài này rồi.
Và mục đích đã được giải quyết rồi: TƯƠNG TỰ NHƯ BÀI:
Private Sub Tenkhungframe_Click()
Me.Tennhan1.Forecolor = 0
Me.Tennhan2.Forecolor = 0
Me.Tennhan3.Forecolor = 0
.............................Tương ứng với số Case phía dưới
Select Case Tenkhungframe
Case 1
Me.Tennhan1.Forecolor = Mãmàu
Case 2
Me.Tennhan2.Forecolor = Mãmàu
Case 3
Me.Tennhan3.Forecolor = Mãmàu
.....................
Cứ tiếp tục đến 100 màu cũng được
End Select
End Sub

Chân thành cảm ơn mọi người!
Chữ ký của tiennd67 034
Chia sẻ kinh nghiệm chính là cách trao đổi, học tập nhanh nhất.
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 10 518 20-01-17, 08:08 PM
Bài mới nhất: ongke0711
  [Help] khoanh vùng tìm kiếm trong Search Form Godspear 3 96 19-01-17, 05:31 AM
Bài mới nhất: Godspear
  code chuyển đổi Hex sang ASCII trong access thanhtruong 6 182 18-01-17, 11:15 AM
Bài mới nhất: thanhtruong
  [Hỏi] Tạo Login Form cùng với Advanced Security Level Godspear 10 334 16-01-17, 11:33 AM
Bài mới nhất: Godspear
  Nút Thêm dữ liệu trên form vulhu06 3 827 16-01-17, 10:33 AM
Bài mới nhất: Lê Văn Giáp

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ơ