作者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