作者yaiba (刀雾刃)
看板Visual_Basic
标题Re: [VB6 ] 不使用TIMER写跑马灯发生的问题
时间Wed Jan 30 09:59:35 2008
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
DoEvents
Sleep (500)
Beep
Case 2
Shape1.BackStyle = 0
Shape2.BackStyle = 1
Shape3.BackStyle = 0
Shape4.BackStyle = 0
DoEvents
Sleep (500)
Beep
Case 3
Shape1.BackStyle = 0
Shape2.BackStyle = 0
Shape3.BackStyle = 1
Shape4.BackStyle = 0
DoEvents
Sleep (500)
Beep
Case 4
Shape1.BackStyle = 0
Shape2.BackStyle = 0
Shape3.BackStyle = 0
Shape4.BackStyle = 1
DoEvents
Sleep (500)
Beep
End Select
Next
Print a
End Sub
建议下次程式全贴...
且排一下版...
有什麽控件也说明一下...
不然还要看你的CODE...
把你没打上的补完才可以测...
--
常发人好人名片
Yaiba：您好，我是好人
帮正妹组电脑送到府
外加一年到府维护
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.78.197
1F：→ yaiba:对了.忘了说.差别只在.DoEvents.睡前没交出来.别人不能Show 01/30 09:59
2F：推 medoc:谢谢Y大 我会改进的感激 01/30 20:22