|
有点小bug,将代码改进了一下。
Private Sub Form_Open(Cancel As Integer)
Dim i As Byte
On Error GoTo ww:
If CurrentProject.AllForms(Me.Form.Name).Properties("zc") = False Then '若未注册
Me.注册.Visible = True
i = CurrentProject.AllForms(Me.Form.Name).Properties("cs")
AddCustomFormProperty Me.Form.Name, "cs", i + 1
If i + 1 >= 30 Then '软件发行时发行者要点“初始化”按钮,将试用次数归零的,因此不会出现尚可使用次数为负数的情况,但为安全起见,还是加个大于号吧。
If MsgBox("试用期到!请注册使用", vbOKCancel) = vbCancel Then Quit
注册_Click
Exit Sub
End If
MsgBox "您还有" & 30 - i & "次试用的机会,请您及时注册使用!"
Exit Sub
Else
Exit Sub ’较大bug,系统检测为注册版时应退出代码执行,而不再执行后面的退出程序的语句。
End If
ww:
MsgBox "出现异常错误": Quit
End Sub
=================================
以上引用了一位大侠的代码,在他做的窗体里面能正常运行,但是引用到我的窗体以后就出问题了,执行到If MsgBox("试用期到!请注册使用", vbOKCancel) = vbCancel Then Quit
的时候提示quit的属性的使用无效,是什么原因啊?
|
|
|