在线等，怎么做限次程序？

Question

要求用注册表，给个例子吧~

Answer 1

就类似这样
判断一下
Private Sub Form_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
    'close all sub forms
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Answer 2

限制次数的，很容易啊。dim intTimes As Integer,useTimes As IntegerPrivate Sub Form_Load()
    intTimes = GetSetting(App.Title, "Settings", "Time", 0)
    if intTimes=useTimes then
        msgbox "使用次数已过！"
        end
    endif
End SubPrivate Sub Form_Unload(Cancel As Integer)
    SaveSetting App.Title,"Settings","Time",intTimes+1
End Sub

Answer 3

useTimes你有没有设置？ 比如只能使用50次，那就需要：useTimes=50
或者在Module中写入常量
Public Const useTimes=50