| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 按钮 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149851) |
| -- 作者：sanny -- 发布时间：2020/5/13 17:58:00 -- [求助] 按钮 老师，请问一下： 如何实现窗口中的按钮按下后，自动变灰不可再按，过一分钟后再恢复，谢谢。 |
| -- 作者：KWK001 -- 发布时间：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控件
|
| -- 作者：sanny -- 发布时间：2020/5/13 20:57:00 -- 不行。 |
| -- 作者：KWK001 -- 发布时间：2020/5/13 21:09:00 -- 测试没有问题，现在是5秒后再次再恢复 |
| -- 作者：KWK001 -- 发布时间：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编辑过]
|
| -- 作者：sanny -- 发布时间：2020/5/14 13:42:00 -- 可是代码没有执行。 |
| -- 作者：有点蓝 -- 发布时间：2020/5/14 14:10:00 -- e.Form.controls("button1").Enabled = False \'不可用可用button1控件 Dim sdt As Date = Date.Now While Date.Now < sdt.AddSeconds(60) \'AddSeconds(Value) Value: 要加上的秒数,可以是负数也可以是正数. Application.DoEvents End While \'你的代码
|