日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

在窗體中插入一個WebBrowser1，然后在代碼頁寫入：

 

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 編輯過