如何把菜单做成透明的，并且还可以在几秒钟之后，菜单自动消失？

Question

如何把菜单做成透明的，并且还可以在几秒钟之后，菜单自动消失？
有源代码，就最好呢！！

Answer 1

透明不好弄啊~~
几秒钟后消失可以这样:加一个TIMER控件
Private Sub Timer1_Timer()
    SendKeys "{ESC}"
End Sub

Answer 2

我做的是一个VOD系统，在歌曲播放的时候，要进行操作点歌啊，什么的，这时我的背景还是正在播放的歌曲的画面，所以要求菜单就是透明的啊，而且在点击后几秒内就自动消失呢

Answer 3

Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_ALPHA = &H2
Public Const LB_SETHORIZONTALEXTENT = &H194
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
                               rtn = rtn Or WS_EX_LAYERED
                               SetWindowLong hwnd, GWL_EXSTYLE, rtn
                               SetLayeredWindowAttributes hwnd, 0, 150, LWA_ALPHA
                               SetWindowLong Form2.hwnd, GWL_EXSTYLE, rtn
                               SetLayeredWindowAttributes Form2.hwnd, 0, 100, LWA_ALPHA
                               SetWindowLong Form3.hwnd, GWL_EXSTYLE, rtn
                               SetLayeredWindowAttributes Form3.hwnd, 0, 100, LWA_ALPHA那个100为透明度，可以调
关于自动消失可以用timer

Answer 4

Zyl910斑竹写的：http://www.fantasiasoft.net/Zyl910/AlphaMenu.zip

Answer 5

用  timer 控件计一下时间就行了嘛

Answer 6

用 timer 控件计一下时间就行