关键点在于
GlobalVariableChanged
在某一个Var变量的值发生变化后执行。
1、项目 GlobalVariableChanged 事件
If e.name = "debugging" Then ‘如果var变量的名称为：“debugging” 则
If Forms("调试").Opened = False Then ’打开调试窗口
Forms("调试").Open
End If
kaiguan +=1
bugS &= NO & ". " & e.name & " (" & Vars(e.name) & ")" & vbcrlf
'样式为：序号. 变量名称(变量值)
End If
2、全局代码
Public No As Integer '序号
Public bugSAs String '记录反馈信息文本
3、新建一个窗口，名称为"调试"，模式为：独立
在上面建立一个TextBox，名称为："bugin" 设为多行文本，并设为只读
4、命令窗口
Dim dt As Date = Date.Now
NO= 0
bugS = ""
Dim i,y As Integer
For y =1 To 100
For i = 1 To 9
Vars("aaa") = y * i
'Forms("调试").Controls("bugin").Value = bug
Next
Next
Forms("调试").Controls("bugin").Value = bug
Output.Show("耗时:" & (Date.now - dt).Totalseconds)
此主题相关图片如下：qq截图未命名1.png
加好友 
发短信
Post By：2010/10/21 13:29:00 [只看该作者]
