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:
解决方案 »
- txt文本中奇数行显示在列表框中,该奇数加一行显示在text1中,急求!!
- datagrid的更新只能全部数据一起更新吗?
- 用 ADOX 对象创建 MDB 数据库,如何设定数据库密码?
- VB中怎么做那种一按就凹下去的按钮?还有用过TDBGrid7.0的朋友,怎么把表格线去掉?在线等!
- 千位分隔符,模块。
- DataGrid控件的问题(急!!!高手请进)
- 关于EXCEL文件数据更新的问题
- 在Delphi中类似VB中的DOEVENTS的命令的是哪个?
- MSChart在一个柱子上显示多个值。
- 如何自动关闭一个msgbox?
- 做技术的十有八九是当了公司的炮灰
- VB+adodb.stream+sqlserver遇到的怪问题(在线急)
Microsoft Visual Studio\MSDN98\98VS\2052\Samples\VB98\Callback
现在的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
Basic语言的执行顺序并不是严格的自顶向下,是吗?
再帮忙说明一下,谢谢
是的。如果有goto语句,会跳转!如:50 '解释型语言
80 A=100
100 PRINT A
150 IF A<>100 THEN END
200 GOTO 100