【VB技巧】VB半透明窗口效果实现代码

  • A+
所属分类:lcx

VB半透明窗口效果实现代码:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()
    Dim Rtn As Long
    Rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
    Rtn = Rtn Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, Rtn
    SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub

文章来源于lcx.cc:【VB技巧】VB半透明窗口效果实现代码

相关推荐: 【文章】4.3 数字签名 - 不可抵赖的数字签名

4.3 不可抵赖的数字签名     一般的数字签名能够被准确复制。这个性质有时是有用的,比如公开宣传品的发布。在其它时间,它可能有问题。想象一下数字签名的私人或商业信件。如果到处散布那个文件的许多拷贝,而每个拷贝又能够被任何人验证,这样可能会导致窘迫或勒索。最…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: