如何去除WebBrowser1的边框 - 编程论坛

#2

bczgvip2013-09-15 22:32

来张图？

#3

事业男儿2013-09-16 17:46

回复 2楼 bczgvip

只有本站会员才能查看附件，请登录

就是哪个WebBrowser1控件边的白色框，怎去除，与背景不符，看起不安逸。

[ 本帖最后由事业男儿于 2013-9-16 18:11 编辑 ]

#4

bczgvip2013-09-16 19:48

只有本站会员才能查看附件，请登录

刷新问题，咱也懒得改了，看懂就行。
两处坑，一个未解决。

#5

事业男儿2013-09-17 08:56

没有解决请版主帮忙改改

#6

bczgvip2013-09-17 13:37

图片框成功了？行了那就是IE版本问题了。

#7

bczgvip2013-09-17 13:42

程序代码：

Private Function GetBrowserWindow(hwndBrowserContainer As Long) As Long
    Dim RetVal As Long
    Dim hwndPeer As Long
    Dim ClassString As String * 256
    hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD)
    Do While hwndPeer <> 0
        RetVal = GetClassName(hwndPeer, ClassString, 256)
        Debug.Print ClassString
        If InStr(ClassString, "Shell Embedding") <> 0 Then
            Exit Do
        End If
        hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT)
    Loop
    GetBrowserWindow = hwndPeer
End Function

还有这个，改改看吧。

#8

lhx19862013-09-17 15:35

用api函数让窗体设置成透明不行吗

#9

bczgvip2013-09-18 15:58

囧了，原来还有这招。setwindowrgn 吧？