这篇博客介绍如何利用Visual Basic (VB) 实现类似QQ的半透明菜单效果。通过声明并调用Windows API函数，设置窗口的WS_EX_LAYERED样式，调整透明度，实现了窗口的透明化。在窗体加载时，设置了窗体大小、背景颜色，并创建了一系列的命令按钮，模拟QQ的分组菜单。点击不同按钮时，会动态改变菜单项的位置。
Option
Explicit
' ''窗口半透明声明开始
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
' ''窗口半透明声明开始
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
最低0.47元/天 解锁文章
1138
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
