Question

计时事件Timer,请一步一步解释下面的编程,看不懂，谢谢

Dim sec As Integer
Private Sub form_open(cancel As Integer)
sec=0
1count=0
End Sub
Private Sub Form_Timer()
If sec>30 Then
MsgBox"请在30秒内登陆“
DoCmd.Close
Else
Me!Label1.caption=30-sec
End If
sec=sec+1
End Sub

Answer 1

Dim sec As Integer //声明整型变量sec
Private Sub form_open(cancel As Integer) //Form_Open么有事件，内有整型参数cancel
sec=0 //将变量sec设置初始值为0
1count=0 这个不知道是哪的变量。
End Sub
Private Sub Form_Timer() //Form_Timer事件
If sec>30 Then //如果sec大于30
MsgBox"请在30秒内登陆“ //提示消息
DoCmd.Close //弹出提示窗口后即将DoCmd关闭，这里DoCmd不知道是什么。
Else //否则
Me!Label1.caption=30-sec //这里Me!是什么意思，不懂。Label1.caption的值是30减去sec的值
End If
sec=sec+1 sec的值为sec自己加上1
End Sub

没学过VB，我是玩Delphi 和 .Net的，以上不知道是否正确，请审核 ^ ^