Foxtable(狐表)用户栏目专家坐堂 → 我想让菜单只能按一次后就失效应该怎么做?


  共有3313人关注过本帖树形打印复制链接

主题:我想让菜单只能按一次后就失效应该怎么做?

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 18:40:00 [显示全部帖子]

复制数据的时候,检查重复不就行了。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/12 19:47: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


 回到顶部