• 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

Aero Glass with Glow

Các thủ thuật liên quan đến ứng dụng, biểu mẫu và control

Moderators: tungcan5diop, QUANITGROBEST

User avatar
PhapSuXeko
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 295
Joined: Sun 03/05/2009 7:44 pm
Location: Tây Ninh
Has thanked: 1 time
Been thanked: 10 times
Contact:

Aero Glass with Glow

Postby PhapSuXeko » Tue 07/12/2010 4:26 pm

Thủ thuật: Aero Glass with Glow Effect
Tác giả: Sưu tầm + PhapSuXeko
Mô tả: Tạo hiệu ứng trong suốt của windows vista, 7 và hiệu ứng glow cho label (như tiêu đề cửa sổ của win)



Lâu rồi không sinh hoạt trong 4rum, nay tui xin post một thủ thuật mà trong 4rum cũng có nhiều nhưng chưa thoả mãn được những người mê cái đẹp và hoàn hảo, đó là làm trong suốt form và đặc biệt không làm trong suốt Label như các tiêu đề cửa sổ của Windows (hiệu ứng Glow)

Image
Ảnh hiệu ứng

Cách sử dụng:
  1. '//Khai báo và sử dụng ClsAeroGlass
  2. Dim a as new ClsAeroGlass
  3.  
  4. '//Thiết lập thông số đường viền của hiệu ứng cho form
  5. a.TopBarSize = 10
  6. a.BottomBarSize = 100
  7. a.LeftBarSize = 8
  8. a.RightBarSize = 20
  9.  
  10. '//Nếu muốn tạo Glow cho Label thì khai báo mảng Label rồi truyền vào
  11. '//Ví dụ có 3 Label: lbl1, lbl2, lbl3
  12. Dim lbl() as Label = {lbl1, lbl2, lbl3}
  13.  
  14.  
  15. '//Nếu muốn làm trong suốt Picture
  16. '//Ví dụ có Picture: pic1
  17.  
  18. '//Áp dụng hiệu ứng lên Form:
  19. a.ShowEffect(Me, lbl, pic1)
  20.  
  21.  


Ngoài ra còn nhiều hàm khác như DrawTextGlow, GlassEnabled, SetGlassEffectUseHandCursorOnTitle - di chuyển form ở vùng trong suốt


AeroWithGlow.rar
(180.88 KiB) Downloaded 1240 times


Trang chủ phần mềm xem ảnh ImageGlass: http://www.imageglass.org

User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

Re: Aero Glass with Glow

Postby vo_minhdat2007 » Tue 07/12/2010 9:41 pm

Cái này tốt nhất tham khảo SDK của Windows 7 :D Đầy đủ hết tính năng.

anhhungbt9025
Thành viên chính thức
Thành viên chính thức
Posts: 32
Joined: Wed 19/09/2012 9:01 am
Has thanked: 10 times

Re: Aero Glass with Glow

Postby anhhungbt9025 » Wed 10/04/2013 7:47 pm

còn muốn nó trong suốt thêm nữa thì chỉnh ở đâu vậy anh !

User avatar
deptraithongminh
Thành viên tích cực
Thành viên tích cực
Posts: 143
Joined: Tue 02/07/2013 4:58 pm
Location: TPHCM
Has thanked: 17 times
Been thanked: 1 time

Re: Aero Glass with Glow

Postby deptraithongminh » Sat 18/01/2014 11:24 pm

dùng bản vb nào vậy ?
mình dùng vb 2005 express, code dùng ko đc


Return to “[.NET] Ứng dụng - Form và Control”

Who is online

Users browsing this forum: No registered users and 1 guest