标题: 請您們現在幫我解決 [打印本页] 作者: tone 时间: 2002-10-17 19:16 标题: 請您們現在幫我解決 我看了一下,在線的均是高手,請您們現在幫我解決一個問題:假設有一個窗體"a",內僅有一個標簽(label1)提示,我想產生的效果是:10秒鐘后,自動關閉些窗體"a",請問用什麼代碼?急盼,[em15][em18]作者: 竹笛 时间: 2002-10-17 20:07
Private Sub Form_Timer()
DoCmd.Close
End Sub
注：计时器间隔值：10000作者: tone 时间: 2002-10-17 21:39
版主,我有一個請求,此代碼在access中可實現.你可否告訴我,在vb5.0&6.0中如何用代碼來產這樣的窗體效果.(之所以用vb是因為它可生成exe文件),盼!作者: zhengjialon 时间: 2002-10-18 15:45
VB里更方便，用TIME控件既可。作者: tone 时间: 2002-10-22 00:30
時間控件是很好實現,一開始我就為"窗體加載"事件或其它事件苦思,有沒有其它代碼可以實現,當此程序開始執行,能夠獲得當前系統時間(秒),然后用循環語句,當運行10秒自動關閉,請高手們不要笑我弱智,幫我解決.作者: tone 时间: 2002-10-24 02:19
請高手幫我解決一下此問題，我想知道的是如何當窗體加載（程序剛一運行）就能獲得系統當前的時間 （具體到秒）。急盼，急盼！！！作者: goodidea 时间: 2002-10-24 02:25
刚好一段代码：
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 时间: 2002-10-24 02:49
問題終于解決了，謝謝你，你名若其人（goodidea:好思想，高尚的品德）