急vb程序挂起的有关问题

急！vb程序挂起的问题
Form1 code:

VB code

Public num As IntegerPrivate Sub Command1_Click()    Timer1.Enabled = True    Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()     num = num + 1    WebBrowser1(num - 1).Navigate2 ("http://www.baidu.com")        If num = 2 Then        Timer1.Enabled = False        num = 0    End IfEnd SubPrivate Sub WebBrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)     On Error Resume Next     If (pDisp Is WebBrowser1(index).Object) Then        'MsgBox ("haha")        Form2.Text1.Text = index        Form2.Show 1     End IfEnd Sub

Form2 code

VB code

Private Sub Command1_Click()    Unload Form2End Sub

大家复制代码运行一下就明白了 如果把'MsgBox ("haha")注释去掉 弹出msgbox时程序就会挂起 webbrowser1（1）也不会执行navigate2方法 模式窗口也会一个一个弹出来 但是没有msgbox的话 当第一个模式窗口出现一秒之后第二个模式窗口就会自动覆盖掉第一个窗口 我希望实现的效果是点击第一个窗口的按钮后再显示第二个窗口 请高手帮帮忙！

[解决办法]
来学习点东西 不评论
[解决办法]
看不大懂?是要这样吗？点了Form2?才开第二个之后的WebBrowser吗？

Form1:

VB code

Option ExplicitPublic num As IntegerPrivate Sub cmdCommand1_Click()    Timer1.Enabled = True    Timer1.Interval = 1000End SubPrivate Sub Form_Initialize()    Status = FalseEnd SubPrivate Sub Timer1_Timer()    If num = 0 Then        num = num + 1        WebBrowser1(num - 1).Navigate2 ("http://www.baidu.com")        Status = False    ElseIf Status = True Then        num = num + 1        WebBrowser1(num - 1).Navigate2 ("http://www.baidu.com")        Status = False    End If        If num = 3 Then        Timer1.Enabled = False        num = 0    End If        End SubPrivate Sub WebBrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)On Error Resume Next     If (pDisp Is WebBrowser1(index).Object) Then'        MsgBox "haha"        Form2.txtText1.Text = index        Form2.Show 1     End If     End Sub
[解决办法]
vb里的form并非模式窗口。建议把Num的改变用按钮来控制。 

 

查看更多 下一篇