[求助] 按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 按钮

共有2426人关注过本帖树形打印复制链接主题：[求助] 按钮

KWK001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

Post By：2020/5/13 20:43:00 [显示全部帖子]

e.Form.controls("button1").Enabled = False '不可用可用button1控件

Dim sdt As Date = Date.Now

While Date.Now < sdt.AddSeconds(5) 'AddSeconds(Value) Value: 要加上的秒数,可以是负数也可以是正数.

Application.DoEvents

End While

'你的代码

e.Form.controls("button1").Enabled = True '不可用可用button1控件

KWK001

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

Post By：2020/5/13 21:09:00 [显示全部帖子]

测试没有问题，现在是5秒后再次再恢复

KWK001

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：110 积分：1417 威望：0 精华：0 注册：2016/8/17 12:49:00

Post By：2020/5/13 21:10:00 [显示全部帖子]

While Date.Now < sdt.AddSeconds(60)

或者

While Date.Now < sdt.AddMinutes(1)

AddMinutes

给时间值加上指定的分钟数。

[此贴子已经被作者于2020/5/13 21:13:40编辑过]

主题：[求助] 按钮