Private Sub Form_Load()
Form_Resize
WebBrowser.Navigate ("www.baidu.com")
WebBrowser.Silent = True
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As frmWebBrowser
Set frm = New frmWebBrowser
frm.Visible = True
Set ppDisp = frm.WebBrowser.Object
End Sub
uj5u.com熱心網友回復：
我覺得是因為你的‘視窗模板’就是一個小視窗吧！你可以在 frm.Visible = True 之前，加上設定frm大小的陳述句。
uj5u.com熱心網友回復：
原來”NewWindow2 在創建新視窗以前激發“ ，所以得在“DocumentComplete 當整個檔案完成是激發，重繪頁面不激發” 后調整視窗，用了下面這一句就可以了。Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, url As Variant)
WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight
End Sub
下面是WebBrowser 的事件 :
BeforeNavigate2 導航發生前激發，重繪時不激發
CommandStateChange 當命令的激活狀態改變時激發。它表明何時激活或關閉Back和Forward
選單項或按鈕
DocumentComplete 當整個檔案完成是激發，重繪頁面不激發
DownloadBegin 當某項下載操作已經開始后激發，重繪也可激發此事件
DownloadComplete 當某項下載操作已經完成后激發，重繪也可激發此事件
NavigateComplete2 導航完成后激發，重繪時不激發
NewWindow2 在創建新視窗以前激發
OnFullScreen 當FullScreen屬性改變時激發。該事件采用VARIENT_BOOL的一個輸
入引數來指示IE是全屏顯示方式(VARIENT_TRUE)還是普通顯示方式(VARIENT_FALSE)
OnMenuBar 改變MenuBar的屬性時激發，標示引數是VARIENT_BOOL型別的。
VARIANT_TRUE是可見，VARIANT_ FALSE是隱藏
OnQuit 無論是用戶關閉瀏覽器還是開發者呼叫Quit方法，當IE退出時就會激發
OnStatusBar 與OnMenuBar呼叫方法相同，標示狀態欄是否可見。
OnToolBar 呼叫方法同上，標示工具列是否可見。
OnVisible 控制視窗的可見或隱藏，也使用一個VARIENT_BOOL型別的引數
StatusTextChange 如果要改變狀態欄中的文字，這個事件就會被激發，但它并不理會程式是否有狀態欄
TitleChange Title有效或改變時激發
uj5u.com熱心網友回復：
沒有效果的。試了放在哪里都沒用。
uj5u.com熱心網友回復：
修改iexplore.exe的屬性？uj5u.com熱心網友回復：
明明可以啊，你復制下面代碼測驗看看：Private Sub Form_Load()
Form_Resize
WebBrowser.Navigate ("www.baidu.com")
WebBrowser.Silent = True
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser.Move 20, 20, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As frmWebBrowser
Set frm = New frmWebBrowser
frm.Move 0, 5000, 8000, 8000
frm.Visible = True
Set ppDisp = frm.WebBrowser.Object
End Sub
uj5u.com熱心網友回復：
我在1樓說的方法，肯定是可以的。
他偏偏說“沒有效果”，我就只能說“呵呵……”了。
本來就是很簡單的事，樓主都消失了，還過問它干嗎。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63978.html
標籤：網絡編程