Question

vb frame 透明代码问题

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_ALPHA = &H2
Public Const LWA_COLORKEY = &H1
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim sty As Long
sty = GetWindowLong(Frame1.hwnd, GWL_EXSTYLE)
sty = sty Or WS_EX_LAYERED
SetWindowLong Frame1.hwnd, GWL_EXSTYLE, sty
SetLayeredWindowAttributes Frame1.hwnd, 0, 100, LWA_ALPHA
End Sub
这样怎么不透明呢?请高手指教错误!

Answer 1

- -,汗~

这段代码只能用作窗体吧~

Frame本身是不能透明了，除非你放在透明的窗体上

建议自己画控件吧！

Answer 2

还用代码？
工程-部件，选中“MIcrosoft Forms 2.0 Object Library”，确定。用这个里面的Frame控件