度量快速开发平台-专业、快速的软件定制快开平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 部件 流程 SQL
查看: 2801|回复: 8
打印 上一主题 下一主题

[分享] 度量快速开发平台窗体中定时执行实现思路

[复制链接]

198

主题

1313

帖子

3784

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3784
跳转到指定楼层
楼主
发表于 2020-5-10 18:03:41 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
   度量快速开发平台的智能窗体中,可以实现定时执行代码功能,一个简单的功能是 每隔5秒执行段代码功能,可以利用智能窗体的功能管理来实现。


这样就在窗体运行的时候,实现自动刷新。非常方便。

如果要实现更复杂的定时执行功能,可以借助度量快速开发平台强大的二次开发扩展,直接调用visual .net中的timer组件实现。
如下:

'挂载C#中的Timer组件。
dim timer=CreateObject("System.Windows.Forms.Timer")
timer.Interval = 5000
timer.Enabled  = true
'挂载Timer的事件
Me.AttachEventHandler(timer,"Tick","功能名称")





然后可以设置 timer的各种属性和事件。
新建立一个功能,里面的代码就通过timer组件的  Tick事件触发。

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

198

主题

1313

帖子

3784

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3784
沙发
 楼主| 发表于 2020-5-10 18:04:30 | 只看该作者
这个功能非常好用,开发平台的扩展太舒服了,使用起来。
回复 支持 反对

使用道具 举报

542

主题

5916

帖子

1万

积分

作者

Rank: 7Rank: 7Rank: 7

积分
13589
板凳
发表于 2020-5-10 18:14:13 | 只看该作者
赞一个
回复 支持 反对

使用道具 举报

67

主题

685

帖子

1815

积分

作者

Rank: 7Rank: 7Rank: 7

积分
1815
地板
发表于 2020-5-10 22:04:23 | 只看该作者
定时功能很不错,不过就是断网的时候也会执行,导致错误连爆
回复 支持 反对

使用道具 举报

67

主题

685

帖子

1815

积分

作者

Rank: 7Rank: 7Rank: 7

积分
1815
5#
发表于 2020-5-10 22:05:01 | 只看该作者
要是有断网不执行就好了,或者捕获错误的
回复 支持 反对

使用道具 举报

78

主题

634

帖子

1598

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1598
6#
发表于 2020-5-11 09:29:12 | 只看该作者
靠,厉害。地球人已经无法阻止平台的二次开发。
回复 支持 反对

使用道具 举报

78

主题

634

帖子

1598

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1598
7#
发表于 2020-5-11 09:31:04 | 只看该作者
想要出错后终止定时循环,可以在“刷新”方法中这样写:

timer.Enabled=false
网格部件1.RefreshData()
timer.Enabled=true
回复 支持 反对

使用道具 举报

198

主题

1313

帖子

3784

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3784
8#
 楼主| 发表于 2020-5-11 11:14:15 | 只看该作者
错误捕捉这个还可以考虑。有些地方用得着。
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9378

积分

论坛元老

Rank: 8Rank: 8

积分
9378
9#
发表于 2020-5-11 17:47:07 | 只看该作者
错误捕捉还是提示友好点嘛,咚的一下报错,黑死人了
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-12-23 03:37 , Processed in 0.149260 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表