Foxtable(狐表)用户栏目专家坐堂 → 按钮触发


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

主题:按钮触发

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


加好友 发短信
等级:幼狐 帖子:63 积分:579 威望:0 精华:0 注册:2019/12/27 14:58:00
按钮触发  发帖心情 Post By:2025/2/20 12:57:00 [只看该作者]


各位大侠:能否实现如下功能

在窗口”A“中,有一个按钮”B“,
当打开窗口”A“后,点击按钮”B“,会发送一次数据”888“,这个已经实现。

现在希望当打开窗口”A“,按钮”B“一直触发,一次发送数据”888“,(能够每秒发送一次最好),
            当关闭窗口”A“,,按钮”B“不触发,数据”888“也不发送。

谢谢



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


加好友 发短信
等级:幼狐 帖子:63 积分:579 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2025/2/20 13:02:00 [只看该作者]

写错了,是一直发送数据”888“,

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


加好友 发短信
等级:超级版主 帖子:112347 积分:571985 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/20 13:08:00 [只看该作者]

使用窗口计时器:


TimerClick事件代码设为:

Dim btn As WinForm.Button = e.Form.Controls("按钮”B")
btn.PerformClick()

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


加好友 发短信
等级:幼狐 帖子:63 积分:579 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2025/2/20 14:10:00 [只看该作者]

 

我代码如下

Dim Btn As WinForm.Button = e.Form.Controls("Button3")
Btn.PerformClick()

Button3设置代码    Ports("COM5").Write("888")

窗口属性  计时器  True,间隔1或100

 

当点击按钮时,可以输出888,但是不点击按钮还是不输出888,请问错在那里?

 

谢谢


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


加好友 发短信
等级:超级版主 帖子:112347 积分:571985 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/20 14:13:00 [只看该作者]

把间隔设置为1000,定位是毫秒,即1000毫秒=1秒。

没有放对事件,或者没有开启计时器

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


加好友 发短信
等级:幼狐 帖子:63 积分:579 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2025/2/20 14:38:00 [只看该作者]

 间隔1000后可以了

 


万分感谢



 回到顶部