[已解决]VB6.0 窗体透明只显示控件。为什么还有个边框留着？

事后诸葛亮

用VB设置透明。为什么还留了个边框？
这个边框如何取消？？


求助：用代码设置了无边框透明，为什么还是有边框？.rar (2.36 KB, 下载次数: 35)

2013-7-30 21:31 上传

点击文件名下载附件

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

Private Sub Form_Load()
    '窗体透明的代码
    Me.BackColor = &HFF0000
    Dim rtn As Long
    Dim BorderStyler
    BorderStyler = 0
    rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY

    '窗体无边框的代码
     Dim sy     As Long
     Dim newsy     As Long
     Const GWL_STYLE = -16
     Const WS_CAPTION = &HC00000
     Const WS_BORDER = &H800000
     sy = GetWindowLong(Me.hwnd, GWL_STYLE)
     newsy = SetWindowLong(Me.hwnd, GWL_STYLE, sy - WS_CAPTION - WS_BORDER)
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-30 23:13

改窗体边框无呢。
再说没有边框如何选窗体了？
你的是透明的话。

跳转到最佳答案楼层

事后诸葛亮

我想要除了控件之外 窗体完全透明，无任何边框。

hwc2ycy

改窗体边框无呢。
再说没有边框如何选窗体了？
你的是透明的话。

事后诸葛亮

hwc2ycy 发表于 2013-7-30 23:13
改窗体边框无呢。
再说没有边框如何选窗体了？
你的是透明的话。

有控件可以操作呀。呵呵