以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71368)
--  作者：zcgmxf
--  发布时间：2015/7/10 9:23:00
--  [求助]

老师好！不好意思不记得上次是哪位老师告诉我的了。定义一个按钮一天只能执行一次。现在窗口中有三个按钮，下面的代码放在按钮的Enter事件中，如果执行一个，另外两个就不执行了。没放代码的没问题。请指点，谢谢！

Dim pdate As Date = GetConfigValue("上次执行日期", Nothing,)
If pdate <> Date.Today Then
    msgbox("今天未发送短消息!")
    SaveConfigValue("上次执行日期", Date.Today)
Else
    msgbox("今天已经发送一次短消息!")
    e.Sender.Enabled = False
End If
--  作者：大红袍
--  发布时间：2015/7/10 9:24:00
--  

红色代码，换成不同的文字。

 

Dim pdate As Date = GetConfigValue("按钮1", Nothing,)
If pdate <> Date.Today Then
    msgbox("今天未发送短消息!")
    SaveConfigValue("按钮1", Date.Today)
Else
    msgbox("今天已经发送一次短消息!")
    e.Sender.Enabled = False
End If
--  作者：zcgmxf
--  发布时间：2015/7/10 9:25:00
--  
谢谢
--  作者：zcgmxf
--  发布时间：2015/7/10 9:51:00
--  
老师，好像还是一样的。我在窗口中新增了一个按钮，设置代码，打开窗口，就提示已经执行了，不可用。
--  作者：大红袍
--  发布时间：2015/7/10 9:52:00
--  
 呃，不同按钮，文字不能一样啊。
--  作者：zcgmxf
--  发布时间：2015/7/10 9:53:00
--  
“按钮1”就是改成按钮的名称吧？
--  作者：zcgmxf
--  发布时间：2015/7/10 9:55:00
--  

每个按钮的文字都不一样哦
--  作者：zcgmxf
--  发布时间：2015/7/10 9:55:00
--  
打开窗口所有按钮的状态就都提示了
--  作者：大红袍
--  发布时间：2015/7/10 10:01:00
--  
 不可能！上传例子。
--  作者：zcgmxf
--  发布时间：2015/7/10 10:01:00
--  

不能直接引用窗口中按钮的名称，一模一样的都不行，只能手工输入，否则就提示参数太多，代码错误。