Question

VB创建透明窗口时出现问题，用的是VS2008的VB，代码如下，

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rtn As Long

rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '取的窗口原先的样式

rtn = rtn Or WS_EX_LAYERED '使窗体添加上新的样式WS_EX_LAYERED

SetWindowLong(Me.hWnd, GWL_EXSTYLE, rtn) '把新的样式赋给窗体

SetLayeredWindowAttributes(Me.hwnd, 0, 192, LWA_ALPHA)

'把窗体设置成半透明样式,第二个参数表示透明程度

'取值范围0--255,为0时就是一个全透明的窗体了

End Sub
End Class

在调试的时候出现问题“hwnd”不是“WindowsApplication4.Form1”的成员

Answer 1

VB6下的form1.hwnd等价于VB.net下的FormX.handle.ToInt32
VB6 和 VB.net 的语法不完全一样

Answer 2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.5
End Sub

Opacity 为Double类型,范围 [0,1]