出错控制的问题,请大虾指教,急!

Question

我的VB程序结构是这样的:
Private Sub Form_Load()
Command1_Click
Command2_Click
End SubPrivate Sub Command1_Click()
           :
           :
           :
Timer1.Interval = 60000
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
          :
          :
          :
End SubPrivate Sub Timer1_Timer()
         :
         :
         :
End Sub在Command1 Command2 Timer1中如果遇到错误,比如:服务器连接错误,被本机检测的机器异常关闭等,想要返回Form_load重新执行程序,不知道该怎么写了?请大虾指教!!!!

Answer 1

晕，最好不要在Form_Load里调用Command1_Click，写到另外的Sub里吧

Answer 2

在错误处理语句中用Resume Next返回

Answer 3

Form_load，Command1_Click是特定的事件发生时的事件处理程序，把你的功能性的程序写到另外的Sub里面，可以在包括Form_load、Command1_Click等任何地方调用，也可以在错误处理语句调用

Answer 4

To:viena(维也纳nn-实心木头人) 
   比如我的程序在Command1中时,因为是不可预料的外界因素,导致在Command1中出错.
如果想要出错了返回到Command1的第一行重新执行程序,这样的出错控制语句在Command1中应该怎么写呢?本人初学,最好给出代码

Answer 5

//不可预料的外界因素
最好可能出错的语句前面加on error resume next
然后用循环来执行程序，判断如果执行成功，则退出循环

Answer 6

新问题出现:
           在Timer控件中出错该如何处理啊???
           Private Sub Timer1_Timer()
             Static tempvalue1 As Integer
             tempvalue1 = tempvalue1 + 1
                If tempvalue1 >= 30 Then
                   tempvalue1 = 0
                   '中间执行代码    
                end if
           如果在中间执行代码中遇到错误想回到前面的过程WriteToServer()中,应该怎么写啊??
多谢大家指点一下.跪求了!

Answer 7

On Error Goto ErrHandle
ErrHandle:
    .......       '这里写出错后的处理
    Resume        '会从出错的地方重新开始执行一次