我寫了一個程式,以一點為中心,畫一個圓,使用Image 載入圖片,
每秒移動圖片一次,讓圖片繞著中心點轉,像地球繞著太陽轉一樣,
如果縮短Timer的時間,則圖片會閃爍,我在迴圈中加入了DoEvents,
可是沒有多大的效用,請問有其它辦法改善嗎?
Const m = 360 屬性視窗:Form1.WindowsState=2最大化
Dim i As Integer Image1.Stretch=Ture
Dim x(m) As Integer
Dim y(m) As Integer
Private Sub Form_Load()
For i = 0 To m - 1
x(i) = 6000 + 4000 * Cos(360 / m * i * 3.14 / 180)
y(i) = 4200 + 4000 * Sin(360 / m * i * 3.14 / 180)
Next i
i = 0
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Image1.Top = y(i)
Image1.Left = x(i)
DoEvents
If i = m - 1 Then
i = 0
Else
i = i + 1
End If
End Sub
我在網路看過一些程式,是用Direct寫的,寫的好多,全看不懂,
我的書上都沒介紹這個,該參考那一本書呀,這個可以改善我上面那個問題嗎?謝謝!!!(Win98,VB5.0企業版,DirectX7.0a)