Tìm phương pháp thay đổi mầu nền của Caption Useform (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

Mr.hieudoanxd

Thành viên thường trực
Tham gia
25/10/19
Bài viết
347
Được thích
159
Nửa đêm khó ngủ, em lọ mọ ngồi nghịch chơi chơi chút cho vui ai dè mò mãi không ra vấn đề cay cú quá. Em nhờ mọi người Tìm giúp em phương pháp thay đổi mầu nền của Caption Useform. Em có lập sẵn file làm demo sử dụng một số hàm mà em biết về API như GetWindowLongA, SetWindowLongA, FindWindowA và SetLayeredWindowAttributes, code chạy nhưng không đúng kết quả mong muốn. Nhờ cả nhà giúp đỡ
 

File đính kèm

Liệu có phải chỉ còn phương pháp thay đổi mầu nền Caption của hệ thống. Và em đang yêu cầu cao quá không nhỉ....
 
Upvote 0
Dùng hàng pha-ke (fake) cho nó nhanh... :D
Label + Frame, giải quyết vấn đề font unicode.
Muốn dùng Windows API thì bạn tham khảo bài này đi. Link

 
Upvote 0
Dùng hàng pha-ke (fake) cho nó nhanh... :D
Label + Frame, giải quyết vấn đề font unicode.

Em đang cần Caption của Useform không phải ẩn Caption và tạo Label giả bác nhé
P/s Mà phải công nhận em theo dõi mấy bài viết của bác, các Useform bác thiết kế giao diện nhìn rất thuận mắt cả mầu sắc không bị sặc sỡ, kiểu chữ Hợp lý. Bác có tài liệu nào hướng dẫn thiết kế giao diện không bác
 
Upvote 0

File đính kèm

  • 33.png
    33.png
    6.8 KB · Đọc: 15
Upvote 0
Vậy bạn ngâm cứu cái hàm này xem: DwmSetWindowAttribute Lib "dwmapi.dll"
Xin hỏi bác về tham số dwAttribute của hàm trên em đọc tài liệu tại trang này của Microsoft nói về các hằng số DWMWA_TEXT_COLOR và DWMWA_CAPTION_COLOR để thay đổi mầu nền và mầu chữ của Caption Userform tuy nhiên em cũng thấy có thêm dòng chữ " This value is supported starting with Windows 11 Build 22000." liệu có phải vì máy em Win 10 nên khi sử dụng code với 2 tham số trên không được hay không?
 
Upvote 0
Xin hỏi bác về tham số dwAttribute của hàm trên em đọc tài liệu tại trang này của Microsoft nói về các hằng số DWMWA_TEXT_COLOR và DWMWA_CAPTION_COLOR để thay đổi mầu nền và mầu chữ của Caption Userform tuy nhiên em cũng thấy có thêm dòng chữ " This value is supported starting with Windows 11 Build 22000." liệu có phải vì máy em Win 10 nên khi sử dụng code với 2 tham số trên không được hay không?
Bạn chạy thử file đính kèm xem có lỗi gì không.
Tôi thì ít khi can thiệp vô Userform, Microsoft cho sao xài vậy... :D

 

File đính kèm

Upvote 0
Sang máy em thì không chạy thật. Có thể do Version Window rồi. Em sẽ test code cả của bác và của em trên máy khác xem như thế nào
 

File đính kèm

  • 1.png
    1.png
    6.8 KB · Đọc: 3
  • 2.png
    2.png
    7.9 KB · Đọc: 2
Upvote 0
Nếu bạn có khả năng, chuyển mã hướng dẫn c/c++ này thành VBA
Em không đủ khả năng anh ạ. Còn chưa biết gì về C và C++

Em Gửi lên file trang trí cho Userform (viết tắt là UF) cho ai cần thiết thì sử dụng. Trong file có 3 UF với các mục đích như sau:
Userform1: Làm trong suốt UF với mầu chỉ định
Userform2: Làm caption UF về giao diện tối mầu đen chữ trắng xài được với môi trường Window10
Userform3: Tạo mầu chữ, mầu nền của UF với mầu chỉ đinh. Xin lưu ý là chỉ sử dụng được với Windows 11 Build 22000 trở lên.
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom