在窗體中插入一個(gè)WebBrowser1，然后在代碼頁(yè)寫入：

 

Dim StatusText As String

 

Private Sub Form_Load()
WebBrowser1.Navigate "End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
MsgBox WebBrowser1.Document.Title
Cancel = 0
Text1.Text = URL
    If URL = "/index.asp" Then
    Me.Width = 14000
    Me.Height = 8000
    End If
End Sub

 

Private Sub W_StatusTextChange(ByVal Text As String)
Label2.Caption = "網(wǎng)址：" & WebBrowser1.LocationName
 Label1.Caption = "url:" & WebBrowser1.LocationURL
End Sub

該文章在 2013/11/14 16:58:03 編輯過(guò)