問VB大師如何讓球繞弧線移動？

使用定時器控制項每隔一段時間更改一次 jerry 的位置。

圖形影象類 害怕拿分離開。

新專案，1 個定時器1,1 個形狀，**如下：

dim i%

private sub form_load()with shape1

shape = 3

backcolor = vbred

backstyle = 1

height = 500

width = 500

end with

i = 0 true

end sub

private sub timer1_timer()if i = 0 then

if = - then i = 1

elseif i = 1 then

if = 0 then i = 0

end if

end sub

所需控制項：shape1、timer1、command1、command2

dim degree as single

const pi =

dim v as integer

dim r as single

private sub command1_click()

falseform_load

end sub

private sub command2_click()

trueend sub

private sub form_load()

3= false

rnd rnd

degree = 2 * pi * rnd

v = 150

r = 1 "結束"

開始使用"end sub

private sub timer1_timer()

if > 0 and > 0 and ( and ( then

sin(degree) *v * r

cos(degree) *v * r

v = v * r

else false

call chagestate

end if

end sub

public sub chagestate()

if <= 0 or ( = then

degree = 2 * pi - degree

if <= 0 then = 1

if ( = then = - 1

end if

if <= 0 or ( = then

if ( = then = - 1

if <= 0 then = 1

if degree < pi / 2 then degree = pi / 2 + degree

if degree > pi / 2 and degree < pi then degree = 3 * pi / 2 - degree

if degree > pi or degree < 2 * pi then degree = 3 * pi - degree

end if

v = 150

trueend sub

'計時器控制項。

x0 和 y0 是圓的坐標。

R1 和 R2 是圓的水平和垂直增量。

private sub timer1_timer()static x0 as integer, y0 as integer, r1 as integer, r2 as integer

x0 = x0 + r1

y0 = y0 + r2

if x0 > 50 then

r1 = -30

elseif x0 <= 50 then

r1 = 30

end if

if y0 > 50 then

r2 = -30

elseif y0 <= 50 then

r2 = 30

end if

x0, y0), 100, vbblueend sub

祝您學習愉快。

直接用VB製作的動畫其實並不是動畫而是在表單上連續繪製不同影象，肉眼看的時候感覺就像在動，而且動畫閃爍不停表示你設定的時間太大了，設定了乙個小點，再說說吧，如果使用普通顯示器，它仍然具有重新整理率。

使用什麼控制項來執行此操作？

將窗體的 autodraw 屬性設定為 true

控制項的 也設定為 true（如果有）。

你必須把程式放上去，如果球跑得太久，它就會閃爍。

球在VB中的運動實際上是單個幀的連續序列。

您嘗試使計時器小部件中的整數變小或使球的移動值變小。

簡而言之，讓你的眼睛感覺它在移動是可以的。

你使用計時器來控制物體的運動，對吧？

最好讓計時器間隔更大。

發生碰撞時不要提前判斷，然後在時機成熟時指揮球自動改變其運動。

只需給定步長，遍歷以確定哪些球將在步長（或結束時）接觸，然後根據碰撞的物理特性讓碰撞的球以新的速度開始下乙個運動。 然後繼續一步，開始判斷下乙個時間點。 這樣，球就會碰撞和移動。

在實際編碼中，採用物件導向的方法和適當的變步長技術，可以使多球碰撞編碼得到簡化，計算更加流暢。

另乙個：不知道在完全不知道球周圍情況的情況下，除了橫移之外，有沒有更好的方法來判斷碰撞性，傳球大師可以指出來。

要物件導向，請構建球的物件。 乙個例項和乙個球。 每個執行緒都在自己的執行緒中執行。 如果發生碰撞會發生什麼，讓球弄清楚。

直線往復需要兩個命令、乙個計時器和乙個 interval 屬性為 1 或 custom 的標籤控制項。 折線和曲線需要定義自己的方程。

dim step as integer

private sub command1_click()= true

end sub

private sub command2_click()= flase

timer1_timer '更改為

end sub

private sub form_load()step = 1

end sub

private sub timer1_timer()+50 * step

if + then

step = 1

elseif < 0 then '更改為小於零。

step = 1

end if

end sub