编程论坛 → VB6论坛

如何让按钮每天只可以单击一次

h274900 发布于 2013-01-22 22:42， 390 次点击

如何让按钮每天只可以单击一次

4 回复

xuwenqiang2013-01-23 09:48

简单, 调用下 Date 获取日期申请个变量点按键以后置1,按键设置无效如果日期改变变量置0 按键设置有效

h2749002013-01-23 21:16

回复 2楼 xuwenqiang

我是菜鸟，请你制作一个上传可以吗？我下载仔细研究一下

seafish0112013-01-24 07:49

程序代码：

Option Explicit

Dim str As String
Private Sub Command1_Click()
    str = GetSetting(App.Title, "Otime", "TXT", "")
    If str = "Hclick" Then
        MsgBox "一天只能按一次", vbOKOnly, "Information"
    Else
        Call SaveSetting(App.Title, "Otime", "TXT", "Hclick")
    End If
End Sub

自己测试下吧，然后稍微改下代码用str与Date进行比较。

[ 本帖最后由 seafish011 于 2013-1-24 08:32 编辑 ]

imonior2013-02-27 15:12

学习来的。好好试试