Private Sub Form_Load() ? ? Dim ss As Date ? ? Dim dd As Integer
? ? If GetSetting(appname:="this", section:="user", Key:="time") = "" Then ? ? ? ? MsgBox "尊敬的用戶：您好！您還沒有注冊軟件，從現(xiàn)在開始，你的試用期為30天！" ? ? ? ? SaveSetting appname:="this", section:="user", Key:="time", setting:=Date ? ? Else ? ? ? ? ss = GetSetting(appname:="this", section:="user", Key:="time") ? ? ? ? dd = Date - ss ? ? ? ? If dd > 30 Then ? ? ? ? ? ? MsgBox "對不起，您的試用期已到！" ? ? ? ? ? ? Unload Me ? ? ? ? Else ? ? ? ? ? ? MsgBox "您現(xiàn)在還沒有注冊軟件，試用期還有" & 30 - dd & "天！" ? ? ? ? End If ? ?? ? ? End If End Sub

總結(jié)

以上是生活随笔為你收集整理的VB编程：GetSetting控制软件试用期-56的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。