- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何自定义click代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160836)
-- 发布时间：2021/2/23 17:45:00
-- 如何自定义click代码
自定Button,如何自定义click代码
Dim btn As WinForm.Button
btn = e.Form.CreateControl("我的按钮", ControlTypeEnum.Button)
btn.text= "我的按钮"
btn.Left = 100
btn.Top = 50
e.Form.AddControl(btn)
-- 发布时间：2021/2/23 20:10:00
--
到窗口全局事件处理：http://www.foxtable.com/webhelp/topics/1920.htm
-- 发布时间：2021/2/24 10:13:00
--
可否
-- 发布时间：2021/2/24 10:15:00
--
什么地方看不懂？
只需在全局事件Click中加入以下代码即可：
Select Case e.Sender.Name
Case "我的按钮"
我的按钮的代码
Case "按钮2名称"
按钮2的代码
End Select
[此贴子已经被作者于2021/2/24 10:15:02编辑过]
-- 发布时间：2021/2/24 10:15:00
--
可否
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:button.zip |
-- 发布时间：2021/2/24 10:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:button.zip |
-- 发布时间：2021/2/24 12:01:00
--
按下按钮无反应
-- 发布时间：2021/2/24 12:07:00
--
谢谢，我再次重新写了程序，这有效.
AddHandler 是否可用
-- 发布时间：2021/2/24 12:07:00
--
我测试没有问题