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

mf424 2004-08-26 04:02:19
显示考试剩余时间用一个时间公共变量times表示,
要在各个窗体上都能显示剩余时间的变化。
我只能解决两个窗体,剩下的就显示不对了。
...全文
133 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
代码?贴出来了

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧