1,217
社区成员
发帖
与我相关
我的任务
分享几个窗体要同时共用一个时间变量的问题
显示考试剩余时间用一个时间公共变量times表示,
要在各个窗体上都能显示剩余时间的变化。
我只能解决两个窗体，剩下的就显示不对了。
要在各个窗体上都能显示剩余时间的变化。
我只能解决两个窗体，剩下的就显示不对了。
...全文
请发表友善的回复…
发表回复
Andy__Huang 2004-08-26
- 打赏
- 举报
看你什麼用啦？
時間=now()
時間=time()
你都可以試一下，是不是你所需要的？如果不是這兩個，請你把時間變量放在模塊中，
用public 時間
時間=now()
時間=time()
你都可以試一下，是不是你所需要的？如果不是這兩個，請你把時間變量放在模塊中，
用public 時間
arsuai 2004-08-26
- 打赏
- 举报
不要if label, if 那个全局变量!
每个窗体丢一个timer, 主窗体的timer操作全局变量
其他窗体的timer则让label = 全局变量
每个窗体丢一个timer, 主窗体的timer操作全局变量
其他窗体的timer则让label = 全局变量
lovebeethoven 2004-08-26
- 打赏
- 举报
是要实时的变化吗？
你可以在每个窗体都加一个TIMER，窗体载入时获得当时的时间，然后自己用TIMER减
或者在主窗体里用TIMER减数，别的窗体里用TIMER刷新数
你可以在每个窗体都加一个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
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
public a
cosio 2004-08-26
- 打赏
- 举报
代码？贴出来了
