VB的WEBBROWSER控件中点击网页上的按钮后打开FORM2关闭FORM1并继续执行

来源：百度知道 编辑：UC知道 时间：2024/06/14 11:52:49
VB中使用WEBBROWSER控件做的小浏览器中点击网页上的按钮（如登录）后打开FORM2关闭FORM1并在FORM2中显示点击（登录）后的网页内容，要怎样实现呢？？

Private Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com/"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.LocationURL <> "http://mail.163.com/" Then
Form2.Show
Form2.WebBrowser1.Navigate WebBrowser1.LocationURL
Me.Hide
Timer1.Interval = 0
End If
End Sub