作者barnet (快使用蕃茄醬)
看板Visual_Basic
標題Re: [VB6 ] 時間延遲的問題
時間Tue Feb 3 18:37:40 2009
※ 引述《wilson5215 (啊?)》之銘言：
: Private Sub Text2_KeyPress(KeyAscii As Integer)
: b = Text2.Text
: If KeyAscii = 13 Then
: KeyAscii = 0
: Label2.Visible = True
: Open App.Path & "\temp.txt" For Append As #1
: Print #1, Text2.Text
: Close #1
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
: <---------------------我想在這裡加入延遲一秒
: Image1.Visible = True 但是我無法使用Delay或Sleep
: Text1.Visible = False 不知道為什麼
: Text2.Visible = False
: Text3.Visible = True
: End If
: End Sub
@_@ 這樣呢 ?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.168.235.137
1F：→ fumizuki:這個會有換日的問題 02/05 22:53