主题：怎么实现时间限制
zhengzexiao
[专家分：0] 发布于 2008-08-04 00:46:00
在VB里怎么实现软件时间限制使用，比如：试用半年，该怎么写？
回复列表 （共5个回复）
沙发
jianghongbo1 [专家分：410] 发布于 2008-08-04 08:27:00
private sub form-load()
if form1.tag="" then
form1.tag=date
msgbox"试用期半年"
end if
if date=dateadd(m,6,form1.tag) then
msgbox"试用期已到"
unload me
end if
end sub
板凳
天天学习 [专家分：4570] 发布于 2008-08-06 18:42:00
程序不可能半年不关闭吧。一旦关闭再打开，tag 属性值就回到初始值了。
3 楼
tanchuhan [专家分：15140] 发布于 2008-08-06 19:10:00
[quote]private sub form-load()
if form1.tag="" then
form1.tag=date
msgbox"试用期半年"
end if
if date=dateadd(m,6,form1.tag) then
msgbox"试用期已到"
unload me
end if
end sub
[/quote]
强
4 楼
guoyong_cy [专家分：3050] 发布于 2008-08-06 21:28:00
非常非常 常非常非常
常 常 常
常 常非常非常
非常非常 常
非 常
非 非常非常非常非
非常非 非 常 非
非 非常非常非常非
非 常
非 常 非
非常非 非常非常非常非
5 楼
wwc7654321 [专家分：1590] 发布于 2008-08-08 13:50:00
汗
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 怎么实现时间限制