WebBrowers控件如何去边框

Question

WebBrowers加载html后就有个3D边框，如何能把它去掉。

Answer 1

IDocHostUIHandler接口的GetHostInfo中处理，设置个DOCHOSTUIFLAG_NO3DBORDER标志即可。懒得实现的话，用个容器盖住，让webbrowser尺寸大于容器

Answer 2

最简单的办法是把WebBrowser包在一个Picturebox里，比如：
Private Sub Form_Load()
    Dim PicBox As PictureBox
    
    Me.ScaleMode = vbPixels
    Set PicBox = Me.Controls.Add("VB.PictureBox", "PicBox1")
    PicBox.ScaleMode = vbPixels
    PicBox.Appearance = 0
    PicBox.BorderStyle = 0
    PicBox.Move Me.WebBrowser1.Left, Me.WebBrowser1.Top, Me.WebBrowser1.Width, Me.WebBrowser1.Height
    PicBox.Visible = True
    Set Me.WebBrowser1.Container = PicBox
    Me.WebBrowser1.Move -2, -2, Me.WebBrowser1.Width + 3, Me.WebBrowser1.Height + 3
    
    Me.WebBrowser1.Navigate2 "http://www.baidu.com"
End Sub