几个窗体要同时共用一个时间变量的问题

mf424 2004-08-26 04:02:19
显示考试剩余时间用一个时间公共变量times表示,
要在各个窗体上都能显示剩余时间的变化。
我只能解决两个窗体,剩下的就显示不对了。
...全文
67 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Andy__Huang 2004-08-26
看你什麼用啦?

時間=now()
時間=time()

你都可以試一下,是不是你所需要的?如果不是這兩個,請你把時間變量放在模塊中,
用public 時間
回复
arsuai 2004-08-26
不要if label, if 那个全局变量!
每个窗体丢一个timer, 主窗体的timer操作全局变量
其他窗体的timer则让label = 全局变量
回复
lovebeethoven 2004-08-26
是要实时的变化吗?
你可以在每个窗体都加一个TIMER,窗体载入时获得当时的时间,然后自己用TIMER减
或者在主窗体里用TIMER减数,别的窗体里用TIMER刷新数

回复
mf424 2004-08-26
是全局变量,没错,但当在几个窗体中不停的切换时,显示结果就不对了。
回复
mf424 2004-08-26
Private Sub Timer1_Timer()
Me.Lbltime.Caption = Me.Lbltime.Caption - 1
If Me.Lbltime.Caption = "5" Then
MsgBox "时间还有5分钟!!!"
End If
If Me.Lbltime.Caption = 0 Then
MsgBox "时间到了!"
Unload Me
End If
times = Me.Lbltime.Caption
End Sub

Private Sub Form_Load()
Timer1.Interval = 3000
Me.Lbltime.Caption = times
End Sub

在主窗体中:
times=90
回复
DieGhost 2004-08-26
全局变量
回复
cso 2004-08-26
模块里面声明全局变量
public a
回复
cosio 2004-08-26
代码?贴出来了
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-26 04:02
社区公告
暂无公告