请问怎样使一个窗体半透明？

Question

在win2000下可用api:SetLayeredWindowAttributes，文档中心（或程序员大本营）有这样的文章

Answer 1

我想在WIN98中去实现，不知可不可以

Answer 2

：　kevenzhang(向往高手)　(2002-1-11 11:06:45)  得0分 
我想在WIN98中去实现，不知可不可以  
        不可以  

Answer 3

在win98实现没有现成函数，可以自己编码实现，但相当麻烦！

Answer 4

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 LongPrivate Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1Private 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

Answer 5

98 And 2000都可以使用!
代码如上dsclub(云中鹤)　!