[VB6 ] 不使用TIMER寫跑馬燈發生的問題

看板Visual_Basic作者medoc (街角的子供達 )時間18年前 (2008/01/28 22:08)推噓2(2推 0噓 5→)

留言7則, 3人參與討論串1/2 (看更多)

如題我自己寫了一個程式很單純的依序要讓四個燈造順序開啟但是不知道為何燈總是直接亮最後一顆我使用BEEP來了解程式執行到何處卻可以聽到四次聲響但螢幕上卻不會顯示前三顆燈亮請各位幫我解答一下謝謝 Dim a As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() For a = 1 To 4 Select Case a Case 1 Shape1.BackStyle = 1 Shape2.BackStyle = 0 Shape3.BackStyle = 0 Shape4.BackStyle = 0 Sleep (500) Beep Case 2 Shape1.BackStyle = 0 Shape2.BackStyle = 1 Shape3.BackStyle = 0 Shape4.BackStyle = 0 Sleep (500) Beep . . . . . .(跳過CASE3跟4) End Select Next Print a End Sub 我的程式就是這樣子請各位多多指教 PS還想請問一下 interval設定的時間指的是timer跑的速度對吧? 那他與sleep在哪些部份可互相取代呢? 還是說他其實是完全不能相提並論的因為一個是直接暫停程式一個不是? 謝謝大家 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.167.171.148

→

medoc

01/28 22:09, , 1^F

01/28 22:09, 1^F

推

DRAGONLL

01/29 00:51, , 2^F

01/29 00:51, 2^F

→

DRAGONLL

01/29 00:52, , 3^F

01/29 00:52, 3^F