Trong suốt trong veo trong vb.net

[bangnhatquang68]

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%

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

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.  

GeSHi © Codebox Plus

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ế :

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
2.          Me.BackColor = Color.Aqua
3.          Me.RichTextBox1.BackColor = Color.Aqua
4.         Me.Button1.BackColor = Color.Aqua
5.     End Sub
6.  
7.     Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
8.         Me.TransparencyKey = Color.Aqua
9.     End Sub
10.  

GeSHi © Codebox Plus

[tiensever]

nếu thêm như này

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

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.  

GeSHi © Codebox Plus

form sẽ trong suốt luôn chỉ còn lại control

[lipton150786]

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

[jetlongk4]

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

[bangnhatquang68]

Me.TransparencyKey =Me.BackColor
bảo đảm ăn chắc, mặc bền