能按時(shí)間倒計(jì)時(shí)自動(dòng)關(guān)閉的窗體

zx994398

誰能指導(dǎo)一個(gè)“能按時(shí)間倒計(jì)時(shí)自動(dòng)關(guān)閉的窗體”的設(shè)計(jì)？

[此貼子已經(jīng)被作者于2006-1-1 11:20:45編輯過]

一點(diǎn)通

用fan0217進(jìn)度條事例修改成自動(dòng)關(guān)閉窗體的例子

sgrshh29

計(jì)時(shí)10秒.

Private Sub Command6_Click()
    Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
    If m = 0 Then
        m = 10
    End If
        m = m - 1
    If m = 0 Then
      DoCmd.Close
      Exit Sub
    End If
End Sub

123shusheng

學(xué)習(xí)了！

390012370

學(xué)習(xí)了！

390012370

多謝分享