我是VB菜鸟,请求帮忙,关于Webbrowser打开的是PDF的时候

[awusoft]

现在使用webbrowser控件,主要是想加载页面后,VB窗口和内容窗口一样大小,现在使用代码为

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'MsgBox WebBrowser1.Height
'WebBrowser1.Width = WebBrowser1.Document.scrollWidth
'WebBrowser1.Height = WebBrowser1.Document.Height
If (TypeOf webborwse1.Document Is MSHTML.HTMLDocument) Then
Dim M_Dom As MSHTML.HTMLDocument
Set M_Dom = WebBrowser1.Document
Me.Width = M_Dom.body.offsetWidth * 15
Me.Height = M_Dom.body.offsetHeight * 15
WebBrowser1.Width = Me.Width
WebBrowser1.Height = Me.Height
End If
aa = False

Me.Show
End Sub

现在是如果打开的是PDF,就不会进到if里边,想问一下还有什么其它的方法可以让VB窗口和内容窗口大小一样.如果打开的是PDF
Dim M_Dom As MSHTML.HTMLDocument
Set M_Dom = WebBrowser1.Document '这里会报错

[-晴天]

在WebBrowser中显示PDF文件,恐怕不容易实现,必竟WebBrowser是最基础的web控件,要显示PDF或许要添加其他插件.

[aight]

应该可以实现，帮顶了。