仪器网（yiqi.com）欢迎您！

参与评论

评论

登录后参与评论

全部评论(4条)

• 

  懜醒憮萘 2010-10-30 00:00:00

  Private Sub Form_Load() WebBrowser1.Visible=flase WebBrowser1.Navigate "www.baidu.com" Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If WebBrowser1.Busy Then Exit Sub Else WebBrowser1.Visible=true Timer1.Enabled = False End If End Sub

  赞(4)

  回复(0)

  评论

  评论

  登录后参与评论

• 

  原愿刚赋倜 2010-10-29 00:00:00

  NavigateComplete2.visible = true msgbox“完成”

  赞(18)

  回复(0)

  评论

  评论

  登录后参与评论

• 

  ↘黑社会又如何 2010-10-29 00:00:00

  让webbrowser一直保持visible=false状态 然后在他的NavigateComplete2事件中让他为true就成了！

  赞(8)

  回复(0)

  评论

  评论

  登录后参与评论

• 

  lingjdiosjdoi 2016-07-12 00:00:00

  晕了，楼上几位啊! 正确做法: 1.输入网址并打开 2.启动一个Timer，循环检查webbrowser.busy属性，如果为TRUE则代表还没打开 如果为FALSE，就打开了，然后关掉Timer 代码: Private Sub Form_Load() '打开并启动Timer1 WebBrowser1.Navigate "www.baidu.com" Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If WebBrowser1.Busy Then Exit Sub Else '这里就打开了，可以在这加你的代码了 Timer1.Enabled = False End If End Sub

  赞(7)

  回复(0)

  评论

  评论

  登录后参与评论