請您們現在幫我解決

tone

我看了一下,在線的均是高手,請您們現在幫我解決一個問題:假設有一個窗體"a",內僅有一個標簽(label1)提示,我想產生的效果是:10秒鐘后,自動關閉些窗體"a",請問用什麼代碼?急盼,[em15][em18]

竹笛

Private Sub Form_Timer()
DoCmd.Close
End Sub
注：计时器间隔值：10000

tone

版主,我有一個請求,此代碼在access中可實現.你可否告訴我,在vb5.0&6.0中如何用代碼來產這樣的窗體效果.(之所以用vb是因為它可生成exe文件),盼!

zhengjialon

VB里更方便，用TIME控件既可。

tone

時間控件是很好實現,一開始我就為"窗體加載"事件或其它事件苦思,有沒有其它代碼可以實現,當此程序開始執行,能夠獲得當前系統時間(秒),然后用循環語句,當運行10秒自動關閉,請高手們不要笑我弱智,幫我解決.

tone

請高手幫我解決一下此問題，我想知道的是如何當窗體加載（程序剛一運行）就能獲得系統當前的時間 （具體到秒）。急盼，急盼！！！

goodidea

刚好一段代码：

Option Compare Database
Const secMax = 4

Private Sub Form_Timer()
Static secleft  As Integer
    If secleft - secMax = 0 Then
       CurrentProject.Application.CloseCurrentDatabase
    Else
        Label3.Caption = str(secMax - secleft)
        secleft = secleft + 1
        Me.Repaint
    End If
End Sub

tone

問題終于解決了，謝謝你，你名若其人（goodidea:好思想，高尚的品德）