Đá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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 37 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

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ơ