Đá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ỏi] Khi mở form mặc định là form trống tvn_hut 6 849 , 01:48 AM
Bài mới nhất: tranthanhan1962
  [Hỏi] Đặt form nằm chính giữa màn hình pvhung76 1 105 19-06-18, 08:52 AM
Bài mới nhất: huuduy.duy
  Format có điều kiện cho field trong Access Noname 2 4,279 09-06-18, 11:38 PM
Bài mới nhất: MTNQ
Tongue [Hỏi] Lệnh Hide/Unhide cột trong form Datasheet View bomnhauag 4 246 04-06-18, 04:48 PM
Bài mới nhất: bomnhauag
  [Help] Tạo form tìm kiếm đơn giản trong access liaemars 2 164 23-05-18, 09:40 AM
Bài mới nhất: NguyenDungAnh

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