Foxtable(狐表)用户栏目专家坐堂 → [分享] 《代码调试器》(已上传截图和附件)----已更新至20130423版(请看帖子结尾)


  共有134708人关注过本帖树形打印复制链接

主题:[分享] 《代码调试器》(已上传截图和附件)----已更新至20130423版(请看帖子结尾)

帅哥哟,离线,有人找我吗?
ybil
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2013/4/24 17:50:00 [显示全部帖子]

对比了老大和楼主给命令窗口加入用户按钮,唯一不同的是下面:

Public  Sub OpenUserForm(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub              '老大的

Public  Sub Test(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub              '楼主的

AddHandler UserButton.Click, AddressOf OpenUserForm  '老大的
AddHandler UserButton.Click, AddressOf Test    '楼主的

另老大定义自定义按钮用的是静态变量

用下面的测试代码测试:显示始终是:[查找替换,重排,帮助,执行,调试代码,正式代码],可见老大的只加入一次[调试代码,正式代码],但执行[调试代码]无效!
而楼主的似乎不断加入:显示[查找替换,重排,帮助,执行,调试代码,正式代码,调试代码,正式代码,调试代码,正式代码....]

Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm

For Each c As  System.Windows.Forms.Control In frm.Controls
    If Typeof c Is System.Windows.Forms.Button Then '判断控件是否是按钮
        Output.Show(c.Text)
    End If
Next


[此贴子已经被作者于2013-4-24 18:20:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ybil
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2013/4/24 18:29:00 [显示全部帖子]

 哈哈,测试出来了,原来是要加上此判断:
If UserButton Is Nothing OrElse UserButton.IsDisposed


 回到顶部