以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问怎样设置超过试用次数以后再也无法打开产品  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52372)
--  作者：time
--  发布时间：2014/6/14 12:31:00
--  [求助]请问怎样设置超过试用次数以后再也无法打开产品

假定提供给客户的是一个试用版本,希望最多使用30次,可以在项目事件AfterOpenProject中加入如下代码:

Dim n As Integer
n = GetConfigValue("Count",1) \'假定保存试用次数的设置名称为Count
If n > 30 Then
   Messagebox.Show("您正在使用的产品已经超出试用次数!")
   Syscmd.Project.Exit()
Else
   n = n + 1
    SaveConfigValue("Count",n)
End If

 

请问怎样设置以后再也无法打开产品
--  作者：Bin
--  发布时间：2014/6/14 14:32:00
--  
你现在这样设置后,就已经再也无法打开了.
--  作者：鲁吉
--  发布时间：2015/3/16 10:05:00
--  
那么我想在每次登录时都提示剩余登录次数，怎么修改？
--  作者：Bin
--  发布时间：2015/3/16 10:06:00
--  
messagebox.show(30-n)
--  作者：鲁吉
--  发布时间：2015/3/16 11:51:00
--  

加文字呢？比如：您的剩余试用次数为：27次！怎么修改？
--  作者：Bin
--  发布时间：2015/3/16 11:52:00
--  
额  简单的文字拼接也不会么, 你应该好好回去复习帮助基础知识了

messagebox.show("你剩余次数" & 30-n)
--  作者：鲁吉
--  发布时间：2015/3/16 12:41:00
--  

看看我这段有什么问题

Dim n As Integer
n = GetConfigValue("试用次数",1) \'假定保存试用次数的设置名称为Count
messagebox.show("你的剩余试用次数为:" & 15-n & "次! 继续试用吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If n = DialogResult.Yes Then
    MessageBox.Show("您选择了继续试用.","提示")
    If n = DialogResult.No Then
        MessageBox.Show("您选择了不继续,单击确定退出!","提示",MessageBoxButtons.OK)
        If n > 15 Then
            Messagebox.Show("您正在使用的产品已经超出试用次数,如需继续使用,请与开发者联系!")
            Syscmd.Project.Exit()
        Else
            n = n + 1
            SaveConfigValue("试用次数",n)
        End If
    End If
End If

不能实现预想的效果
--  作者：鲁吉
--  发布时间：2015/3/16 12:45:00
--  

如果我要在达到规定次数后只是变为查阅模式呢？

 
--  作者：Bin
--  发布时间：2015/3/16 13:39:00
--  
DataTables.AllowEdit=false 
--  作者：鲁吉
--  发布时间：2015/3/16 15:54:00
--  

看看我这段有什么问题

Dim n As Integer
n = GetConfigValue("试用次数",1) \'假定保存试用次数的设置名称为Count
messagebox.show("你的剩余试用次数为:" & 15-n & "次! 继续试用吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If n = DialogResult.Yes Then
MessageBox.Show("您选择了继续试用.","提示")
If n = DialogResult.No Then
MessageBox.Show("您选择了不继续,单击确定退出!","提示",MessageBoxButtons.OK)
If n > 15 Then
Messagebox.Show("您正在使用的产品已经超出试用次数,如需继续使用,请与开发者联系!")
Syscmd.Project.Exit()
Else
n = n + 1
SaveConfigValue("试用次数",n)
End If
End If
End If

不能实现预想的效果,不出现第二个提示窗口，如果选择No，也不会退出，哪里写错了？