主题：[求助]

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

Dim pdate As Date = GetConfigValue("上次执行日期", Nothing,)
If pdate <> Date.Today Then
    msgbox("今天未发送短消息!")
    SaveConfigValue("上次执行日期", Date.Today)
Else
    msgbox("今天已经发送一次短消息!")
    e.Sender.Enabled = False
End If

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

 

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

谢谢

老师，好像还是一样的。我在窗口中新增了一个按钮，设置代码，打开窗口，就提示已经执行了，不可用。

 呃，不同按钮，文字不能一样啊。

“按钮1”就是改成按钮的名称吧？

每个按钮的文字都不一样哦

打开窗口所有按钮的状态就都提示了

 不可能！上传例子。

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