Private Sub Timer1_Timer()
  Dim iCounter As Integer
  ' 被 OLE 冲突处理所使用。
  Dim nCurErrorCount As Integer
  Const MAX_ERROR_COUNT = 10  On Error GoTo CallbackError
  
      If gbConnected Then
        sCurTime = Time
        lblTime.Caption = sCurTime
100   gObjRef.TellTime (sCurTime)
110 End If
Exit SubCallbackError:

解决方案 »

  1.   

    因为你的代码不是出自你的手,而是哪里拿来的而编写代码的那个人用的IDE,里面自带了代码行标!鉴定完毕!
      

  2.   

    回楼上几位的,那个代码是MSDN里的,我用的IDE是VB6.0 没有行标 - -
      

  3.   

    MSDN里面你搜索的是什么,,我也来学习一下.
      

  4.   

    这几天在看MSDN的例子,这个问题产生的出处是这里:
     Microsoft Visual Studio\MSDN98\98VS\2052\Samples\VB98\Callback
      

  5.   

    楼主没有学过传统的Basic语言吧。这种传统的解释型Basic语言都要写行号,在运行时,系统将按行号顺序进行解释。
    现在的Vsiual Basic也保留了这一特色。如:Option ExplicitPrivate Sub Form_Load()100         Dim a As Long
    200         Dim b As Long
    250         a = 100: b = 100
    300         Debug.Print a + b
            
    End Sub
     
      

  6.   

    不就是行标签吗?goto语句要跳转的行?
      

  7.   

    嗯,是的,确实没有专门的学过Basic语言,谢谢是不是可以这样理解:
    Basic语言的执行顺序并不是严格的自顶向下,是吗? 
    再帮忙说明一下,谢谢
      

  8.   

    经过几位的说明,仔细看了下,确定是行标签了,MSDN6.0的代码,写了行标签是为了和Erl同时使用,来确定错误产生的行数,谢谢几位的帮助.
      

  9.   


    是的。如果有goto语句,会跳转!如:50 '解释型语言 
    80  A=100
    100 PRINT A
    150 IF A<>100 THEN END
    200 GOTO 100