对比了老大和楼主给命令窗口加入用户按钮,唯一不同的是下面:
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编辑过]