SetLayeredWindowAttributes函数的问题

Question

用SetLayeredWindowAttributes函数做异型窗体后，如何调节该窗体的透明度？

Answer 1

http://search.csdn.net/Expert/topic/371/371821.xml?temp=.3198511
http://search.csdn.net/Expert/topic/1955/1955665.xml?temp=.4851038
搜，很多

Answer 2

可以的，只是你给的分数太低~~需要的话给我发email  ：[email protected] 我会发个示例给你

Answer 3

刚刚做了一个，代码如下：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'hwnd -----------  Long，欲为其取得信息的窗口的句柄
'nIndex ---------  Long，请参考GetWindowLong函数的nIndex参数的说明
'dwNewLong ------  Long，由nIndex指定的窗口信息的新值Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  'hwnd -----------  Long，欲为其获取信息的窗口的句柄
  'nIndex ---------  Long，欲取回的信息，可以是下述任何一个常数：
  'GWL_EXSTYLE
  '扩展窗口样式
  'GWL_STYLE
  '窗口样式
  'GWL_WNDPROC
  '该窗口的窗口函数的地址
  'GWL_HINSTANCE
  '拥有窗口的实例的句柄
  'GWL_HWNDPARENT
  '该窗口之父的句柄?不要用SetWindowWord来改变这个值
  'GWL_ID
  '对话框中一个子窗口的标识符
  'GWL_USERDATA
  '含义由应用程序规定
  'DWL_DLGPROC
  '这个窗口的对话框函数地址
  'DWL_MSGRESULT
  '在对话框函数中处理的一条消息返回的值
  'DWL_USER
  '含义由应用程序规定
  
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'hwnd --透明窗体的句柄
'crKey --为颜色值
'bAlpha  -- 透明度，取值范围是[0,255]
'dwFlags -- 透明方式，可以取两个值：当取值为LWA_ALPHA时，crKey参数无效，
'bAlpha参数有效；当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20) '窗体扩展式样
Const LWA_COLORKEY = &H1  '关键颜色(异形窗体)
Const LWA_ALPHA = &H2   '透明度
Const LWA_COLORKEY_ALPHA = &H3 '透明 + 异形Private Sub Form_Load()
    Dim NewStyle As Long '窗体的新式样
    Dim WinStyle As Long '记录窗体原来的式样
    WinStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '获得窗体的扩展式样
    NewStyle = WinStyle + WS_EX_LAYERED '窗体新式样
    SetWindowLong Me.hwnd, GWL_EXSTYLE, NewStyle '付值给窗体新的式样
    SetLayeredWindowAttributes Me.hwnd, RGB(255, 0, 0), 128, LWA_COLORKEY_ALPHA '异形+半透明
    
    'SetLayeredWindowAttributes Me.hwnd, 0, 128, LWA_ALPHA '半透明
    'SetLayeredWindowAttributes Me.hwnd, RGB(255, 0, 0), 0, LWA_COLORKEY '异形
End Sub