• 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

Trong suốt trong veo trong vb.net

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

Moderators: tungcan5diop, QUANITGROBEST

User avatar
bangnhatquang68
Guru
Guru
Posts: 791
Joined: Tue 26/01/2010 12:44 pm
Location: Vĩ tuyến 17
Has thanked: 20 times
Been thanked: 38 times
Contact:

Trong suốt trong veo trong vb.net

Postby bangnhatquang68 » Sun 08/08/2010 4:32 pm

Thủ thuật: Trong suốt form và control trong vb.net
Tác giả: Bangnhatquang
Mô tả: Làm Form và Control trong suốt


Cách 1:
Thiết lập độ trong đục cho form, bằng thuộc tính Opacity từ khoảng 0-100%
  1. Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
  2.         Me.Opacity = 0.5
  3.   End Sub
  4.  


Cách 2:
Thiết lập độ trong đục cho form, bằng thuộc tính TransparencyKey, cho màu ứng dụng trùng với màu của TransparencyKey
Nhược diểm: Không đẹp bằng Areo glass, làm trong các button textbox, richbox nhưng làm các Items bị nhòe, viền form không trong.

Thiết kế :
[vbnet]Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Me.BackColor = Color.Aqua
Me.RichTextBox1.BackColor = Color.Aqua
Me.Button1.BackColor = Color.Aqua
End Sub

Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
Me.TransparencyKey = Color.Aqua
End Sub
[/vbnet]
Attachments
dang bai.JPG
anh2.JPG
Last edited by bangnhatquang68 on Tue 10/08/2010 4:20 pm, edited 2 times in total.


Mời anh em lên facebook giao lưu nào!
http://www.facebook.com/groups/145823032176611/

User avatar
tiensever
Thành viên tích cực
Thành viên tích cực
Posts: 109
Joined: Tue 27/07/2010 10:30 pm
Has thanked: 1 time
Contact:

Re: Trong suốt trong veo trong vb.net

Postby tiensever » Tue 09/11/2010 7:13 pm

nếu thêm như này

  1.  
  2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3.         Me.BackColor = Color.Aqua
  4.         Me.TransparencyKey = Color.Aqua
  5.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  6.  
  7.     End Sub
  8.  


form sẽ trong suốt luôn chỉ còn lại control :">
http://t2love-forums.co.cc/

User avatar
lipton150786
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 345
Joined: Thu 18/11/2010 10:00 pm
Has thanked: 5 times
Been thanked: 29 times

Re: Trong suốt trong veo trong vb.net

Postby lipton150786 » Fri 19/11/2010 2:44 pm

cach2 này cũng hay để hôm nào làm thử xem sao

jetlongk4
Posts: 3
Joined: Tue 24/05/2011 12:51 pm

Re: Trong suốt trong veo trong vb.net

Postby jetlongk4 » Wed 20/07/2011 4:32 pm

Vậy có cần phải gọi thư viện nào ra không bạn! Tui nhúng code vào nhưng không được

User avatar
bangnhatquang68
Guru
Guru
Posts: 791
Joined: Tue 26/01/2010 12:44 pm
Location: Vĩ tuyến 17
Has thanked: 20 times
Been thanked: 38 times
Contact:

Re: Trong suốt trong veo trong vb.net

Postby bangnhatquang68 » Thu 21/07/2011 8:14 am

Me.TransparencyKey =Me.BackColor
bảo đảm ăn chắc, mặc bền
Mời anh em lên facebook giao lưu nào!
http://www.facebook.com/groups/145823032176611/


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

Who is online

Users browsing this forum: No registered users and 1 guest