如何寫出可以讓”Form1視窗變成透明”?

Question

要如何寫出可以讓\"Form1視窗變成透明\"
像有些人就可以寫出讓視窗透明的程式碼!
可以告訴我要如何寫出\"設成透明\"的程式碼

Answer 1

這是Windows 2000 後的版本所提供的功能 其實就是用於更炫的特效 程式如下
--------------------------------------------------------------------------------
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 crey As Byte, ByVal bAlpha As Byte, _
　ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&

Option Explicit

Private Sub Command1_Click()
　Dim lOldStyle As Long
　Dim bTrans As Byte

　bTrans = 140 '透明度 0~255之間 越小越透明
　lOldStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
　SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
　SetLayeredWindowAttributes Me.hwnd, 0, bTrans, LWA_ALPHA
End Sub

2006-02-14 20:36:44 補充：
to:小毛
你可能沒注意到其中有一行寫著：
　bTrans = 140 '透明度 0~255之間 越小越透明
其為設定透明程度。

Answer 2

TO：小毛
visible的屬性，是使元件是否可見，如果設為false，會讓元件隱藏看不見而非透明吧。

Answer 3

Form1.Visible = False

另外樓上大大說的是半透明 並非透明..爾且很吃cpu喔^^