[已解决](求助)时间倒计时（VBA）

long826121 · 发表于 2011-8-23 19:36

本帖最后由 long826121 于 2011-8-23 21:31 编辑

我要的效果：
当输入学号：200510900001 姓名：张雪；点击“选题登陆”，此时随机选题进入，假如一进入C卷，此时“张雪考试试卷C卷”右上角自己倒计时，“离交卷还有XX分钟”，当“离交卷只有5分钟的时候，提醒考试保存试卷，当离交卷只有0分钟的时候，自动保存提交，退出系统！重新登陆200510900001 张雪时，点击“选题登陆”，进入提示“你已超时，无法进入”，如离交卷还有剩余时间时，重新登陆，还是可以进入该生所选题中！
[说明：只是加：倒计时这个功能，也就是：假如一进入C卷，此时......................]

考试登陆系统.rar (23.06 KB, 下载次数: 72)

吕?布 · 发表于 2011-8-23 19:56

自动保存关闭.rar (6.89 KB, 下载次数: 112)

long826121 · 发表于 2011-8-23 20:26

回复吕?布的帖子

为什么你这个不能用呢？一点击自动保存显示如下错误！

fjmxwrs · 发表于 2011-8-23 21:18

留脚印学习先。

Select · 发表于 2011-8-23 21:25

建议：
1.进入后不生产新的试卷，而是跳到C卷。

2.点提交，就是
1)求成绩分数
2)记录成绩(比1c,2d,3a,4e,。。。。。），写入成绩表。
3)清空C卷答案

倒计时是辅助功能，等主要功能实现了再加吧。

long826121 · 发表于 2011-8-23 21:27

回复 Select 的帖子

你说的那些建议已经做到了！就只是加：倒计时这个功能

兰色幻想 · 发表于 2011-8-23 22:02

考试登陆系统.rar (24.96 KB, 下载次数: 398)

吕?布 · 发表于 2011-8-23 23:05

Public Declare Function GetTickCount Lib "kernel32" () As Long

Function DelayEx(ms As Long) 'ms是延时的时长，单位是毫秒
Dim start As Long
start = GetTickCount
Do While GetTickCount - start < ms
DoEvents
Loop
End Function

Sub Demo()
Const s As Long = 10
MsgBox "延时 " & s & " 秒后保存然后关闭"
DelayEx (s * 1000)
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

延时后保存关闭.rar (7.2 KB, 下载次数: 104)

ywjs123 · 发表于 2011-8-24 10:52

学习了！谢谢！

		自动登录	找回密码
密码			注册