- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [分享]DIY手工打造代码调试窗 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8424)
-- 发布时间：2010/10/21 13:29:00
-- [分享]DIY手工打造代码调试窗
关键点在于
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
-- 发布时间：2010/10/21 13:31:00
--
之前折腾了半天，弄不起来暂停跟跳过。hoho，
要是有，就能自己打造一个带单步调试的调试器了。