CommandButton HighLight khi nhấn Tab (1 người xem)

[Rùa Con 1080]

Chào mọi ngưới, cho em hỏi có Code nào mà khi nhấn Tab tới CommandButton trong UserForm thí COmmandButton đó sáng lên (HighLight).
Cháo mọi ngưới.

 

[Hoàng Trọng Nghĩa]

Chào mọi ngưới, cho em hỏi có Code nào mà khi nhấn Tab tới CommandButton trong UserForm thí COmmandButton đó sáng lên (HighLight).
Cháo mọi ngưới.

Bạn hỏi có code nào không thì xin thưa rằng CÓ bạn nhé!

 

[giaiphap]

Bạn hỏi có code nào không thì xin thưa rằng CÓ bạn nhé!

Câu trả lời của anh Nghĩa hay thật, anh cho code em học hỏi với.

 

[Hoàng Trọng Nghĩa]

Câu trả lời của anh Nghĩa hay thật, anh cho code em học hỏi với.

Đơn giản mà, suy nghĩ tí là ra thôi. Xem file.

 

[giaiphap]

Đơn giản mà, suy nghĩ tí là ra thôi. Xem file.

Vậy nghĩ vẫn không ra? đơn giản với anh nhưng là bài học lớn của em.

 

[sealand]

Mình "ké" thêm 1 chút, trên đây là gợi ý của anh Nghĩa. Khi áp dụng ta nên viết thành Code dùng chung khi sử dụng chỉ gọi Code tránh viết đi viết lại nhiều lần, cách sử dụng cũng dễ dàng và gọn gàng hơn. Tham khảo ví dụ kèm theo.
Đối với trường hợp số lượng CommandButton nhiều thì nên dùng Class Module mới hay.

 

[giaiphap]

Mình "ké" thêm 1 chút, trên đây là gợi ý của anh Nghĩa. Khi áp dụng ta nên viết thành Code dùng chung khi sử dụng chỉ gọi Code tránh viết đi viết lại nhiều lần, cách sử dụng cũng dễ dàng và gọn gàng hơn. Tham khảo ví dụ kèm theo.
Đối với trường hợp số lượng CommandButton nhiều thì nên dùng Class Module mới hay.

Tôi nghĩ ClassModule là hay nhất, nhưng bản thân không biết viết ClassModule. Bạn có thể xuất chiêu cho mình học hỏi với được không vậy? Cảm ơn trước nghe!

 

[sealand]

File ví dụ sau sử dung Class Module (Mình chưa sử lý được khi rời Command reset lại). Bạn xem tham khảo nha

 

[Rùa Con 1080]

Cám ơn Sealand, chờ bạn và các AC nào làm code rời CommandButton reset lại. Ah mà bạn Sealand cho hỏi nếu muôn CommandButton có màu khác màu vàng khi HighLight thì chỉnh làm sao(chổ &H800000F&)

 

[sealand]

Cám ơn Sealand, chờ bạn và các AC nào làm code rời CommandButton reset lại. Ah mà bạn Sealand cho hỏi nếu muôn CommandButton có màu khác màu vàng khi HighLight thì chỉnh làm sao(chổ &H800000F&)

Đây là đoạn Code để điều chỉnh màu HighLight (Nằm trong Class1):

Private Sub HLight(Cmd As MSForms.CommandButton)
  Dim Cmm As MSForms.Control
  For Each Cmm In UserForm1.Controls
    If TypeOf Cmm Is MSForms.CommandButton Then

'Day la doan Reset các nút lệnh
        Cmm.Font.Bold = False 'Bỏ đinh dang chu dam
        Cmm.ForeColor = &H80000012 'Dua mau chu ve mau den
        Cmm.BackColor = &H8000000F 'Dua mau nen ve mau trang
    End If
  Next
'Day la doan HighLight
        Cmd.Font.Bold = True            'To dam chu
        Cmd.ForeColor = &HFF&         'Mau chu thanh mau do
        Cmd.BackColor = [B][COLOR=#ff0000]&HFFFF& [/COLOR][/B]     'Mau nen mau vang
End Sub

Từ cấu truc trên thì ý bạn là thay đổi màu nền khi HighLight. Vậy thì bạn chỉ cần thay đổi mã mầu tôi đã tô Đỏ ở trên là được. Nếu bạn không biết mã màu thì làm như sau:
vẽ tạm 1 CommandButton rồi bạn dùng bảng Properties để thay đổi màu nền tùy thích, sau khi ưng ý thì copy mã màu trong bảng Properties là được. (Lưu ý 1 số mã màu khi Paste vào VBA thì trình Edit VBA sẽ tự động điều chỉnh cho phù hợp. Bạn đừng ngại gì cả)