Các chiêu thức trong lập trình Để chương trình bạn có giao diện “Nữa trong suốt”

Để chương trình bạn có giao diện “Nữa trong suốt” home Giới thiệu : Trong các Độc chiêu trước tôi đã có giới thiệu 2 chiêu khá hay đó là Form trong suốt và Form theo hình dạng bức ảnh tuy nhiên mỗi chiêu có một vẽ hay, cũng như vậy tại độc chiêu này tuy thực tế ứng dụng hầu như không gặp (Theo tôi nhận thấy) tuy nhiên nó cũng khá thú vị để ta ngâm kíu. Xuất xứ : www.pscode.com (Dungcoi lam nhiêm vụ “Thu gọn đọan Code) Binh khí sử dụng : Không Đoạn mã : Option Explicit Private Const ULW_COLORKEY = &H1 Private Const GWL_STYLE = (-16) Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim Trans As Boolean Dim OldStyle As Long Private Sub Form_Load() Transparent (True) End Sub Private Sub Transparent(t As Boolean) Trans = Not Trans If t Then Me.BackColor = &HFFCCCC SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED SetLayeredWindowAttributes Me.hwnd, &HFFCCCC, 0, ULW_COLORKEY Else Me.BackColor = &H8000000F SetWindowLong Me.hwnd, GWL_EXSTYLE, OldStyle End If End Sub . Để chương trình bạn có giao diện “Nữa trong suốt” home Giới thiệu : Trong các Độc chiêu trước tôi đã có giới thiệu 2 chiêu khá hay đó là Form trong. nhiên mỗi chiêu có một vẽ hay, cũng như vậy tại độc chiêu này tuy thực tế ứng dụng hầu như không gặp (Theo tôi nhận thấy) tuy nhiên nó cũng khá thú vị để ta