共2 条记录, 每页显示 10 条, 页签: [1]

标题：[分享]DIY手工打造代码调试窗

1楼

qtcks 发表于：2010/10/21 13:29:00

关键点在于

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

2楼

qtcks 发表于：2010/10/21 13:31:00

之前折腾了半天，弄不起来暂停跟跳过。hoho，

要是有，就能自己打造一个带单步调试的调试器了。

共2 条记录, 每页显示 10 条, 页签: [1]