在窗体上放一文本框用来输入时间,另放两个按钮,一个开始,一个结束
当在文本框中输入时间后单击开始按钮则开始播放。单击停止则停止
以下是代码
Private Sub FORM_Load()
Me.TimerInterval = 0
End Sub
Private Sub FORM_Timer()
On Error GoTo Exit_Err
DoCmd.GoToRecord , , acNext
Exit Sub
Exit_Err:
Me.TimerInterval = 0
MsgBox "已到记录尾"
End Sub
Private Sub 命令12_Click()
If IsNull(Me.txtTime) Or Me.txtTime < 1000 Then
Me.TimerInterval = 1000
Else
Me.TimerInterval = Me.txtTime
End If
End Sub
Private Sub 命令13_Click()
Me.TimerInterval = 0
End Sub
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。