Đá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
  Hướng Dẫn Tạo form hóa đơn bán hàng Mỹ Hạnh 6 183 04-04-18, 09:29 PM
Bài mới nhất: ongke0711
  [Hỏi] sổ list rows trong combobox babyrock2009 3 143 03-04-18, 05:43 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] 2 Định dạng chữ trong 1 text box toidjtjmtoi 5 170 02-04-18, 11:41 AM
Bài mới nhất: toidjtjmtoi
  Cách tạo menu trong access 2007 darkmoon 12 13,600 30-03-18, 09:20 AM
Bài mới nhất: mrtoanbin
  Tạo form tìm kiếm thông tin Mỹ Hạnh 2 102 29-03-18, 02:28 PM
Bài mới nhất: Mỹ Hạnh

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line