RE: Làm thế nào để nhãn đổi màu mỗi khi lựa chọn Option trong form
tranthanhan1962 > 03-04-15, 12:03 AM
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.