用窗体打开新窗口... ... /* 弹出新窗口在本窗体打开 Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim NewWindow As frmMain Set NewWindow = New frmMain NewWindow.Show Set ppDisp = NewWindow.WebBrowser1.Object End Sub

Private Sub Command1_Click WebBrowser1.Navigate "http://localhost/" -Private Sub Command1_ClickWebBrowser1.Navigate

Text1.Text取WebBrowser1原始碼-WebBrowser1 Source Code Text1.Text