以文本方式查看主题

-  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)

--  作者:terry
--  发布时间: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
--  作者:terry
--  发布时间: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编辑过]

    --  作者:terry
    --  发布时间:2021/2/24 10:15:00
    --  
    可否
  • 细节一些
     下载信息  [文件大小:   下载次数: ]
    图片点击可在新窗口打开查看点击浏览该文件:button.zip


  • --  作者:有点蓝
    --  发布时间:2021/2/24 10:17:00
    --  
     下载信息  [文件大小:   下载次数: ]
    图片点击可在新窗口打开查看点击浏览该文件:button.zip


    --  作者:terry
    --  发布时间:2021/2/24 12:01:00
    --  
    按下按钮无反应
    --  作者:terry
    --  发布时间:2021/2/24 12:07:00
    --  
    谢谢,我再次重新写了程序,这有效.
    AddHandler 是否可用

    --  作者:有点蓝
    --  发布时间:2021/2/24 12:07:00
    --  
    我测试没有问题