Re: [VB6 ] 時間延遲的問題

看板Visual_Basic作者 (快使用蕃茄醬)時間17年前 (2009/02/03 18:37), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《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
→
02/05 22:53, , 1F
這個會有換日的問題
02/05 22:53, 1F
‣ 更多 barnet 的文章
文章代碼(AID): #19Y1vtsl (Visual_Basic)
‣ 更多 barnet 的文章
文章代碼(AID): #19Y1vtsl (Visual_Basic)