• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lấy màu chuẩn của thanh tiêu đề

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Lấy màu chuẩn của thanh tiêu đề

Gửi bàigửi bởi Dang Minh Du » T.Hai 16/06/2008 10:03 am

Thủ thật: Lấy màu chuẩn của thanh tiêu đề
Ngôn ngữ: VB6
Tác giả: Đặng Minh Dự sưu tầm

Mã: Chọn hết

  1. Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  2. Public Const COLOR_ACTIVECAPTION = 2
  3.  
  4. Private Sub Form_Load()
  5. Dim lngColor As Long
  6. lngColor = GetSysColor(COLOR_ACTIVECAPTION)
  7. Form1.BackColor = lngColor
  8. End Sub
Tập tin đính kèm
TitleBarColor.rar
(1.52 KiB) Đã tải 551 lần


~°Dòng Sông Mùa Thu°~
Studying...!

Hình đại diện của người dùng
duy_huy2008
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 86
Ngày tham gia: T.Hai 31/03/2008 1:18 pm

Re: Lấy màu chuẩn của thanh tiêu đề

Gửi bàigửi bởi duy_huy2008 » T.Ba 17/06/2008 10:11 am

Đương nhiên Getsyscolor sẽ còn ứng dụng trong những trường hợp khác, còn đối với nhưng chuyện như thế này sao ko chọn cách đơn giản ngắn gọn mà làm

untitled.JPG
untitled.JPG (9.54 KiB) Đã xem 2396 lần

:-/
"When I was eighteen, I Caught sight of the future and based my career on what I saw. I turned out to have been right."

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Lấy màu chuẩn của thanh tiêu đề

Gửi bàigửi bởi truongphu » T.Tư 18/06/2008 2:19 pm

1- Code như Dang Minh Du, chỉ dùng hàm GetSysColor thì --> duy_huy2008 nói đúng, ít giá trị thực hành.

2- Chỉ khi ĐANG RUNTIME, ta có dùng hàm SetSysColors, giá trị màu của Controls đã biến đổi, khi đấy hàm GetSysColor mới có chút giá trị (--> mà ai lại chơi nghịch SetSysColors nhỉ?)

3- SysColors là một nhóm các số lớn hơn Long, chừng 20-30 số mà Microsoft dành riêng, quy định mã màu cho một số Controls của hệ thống
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách