緊急！！！ 如何用VB實現這麼小的動畫

在 form1 上繪製乙個按鈕、兩個形狀和兩條線。

名稱為 command1、shape1、shape2、line1、line2

演示程式如下：（複製到程式設計師那裡執行檢視）。

private sub command1_click()mcolor = '背景顏色。

l = ( 2 + 2'兩個球之間的間距。

增量 = 1

do：使用背景色刪除連線。

100, +100)-(100, +100), mcolor

當綠球到達底部時，它會向相反的方向移動。

如果>則遞增 = -1

當綠球到達頂部時，它會向相反的方向移動。

如果< 0，則增量 = 1

計算綠球的新垂直位置。

增加。 紅球的橫向位置（應通過保持兩個球之間的距離恆定來計算。

t = ( 2

if t <= l then

紅球的橫向位置根據距離公式計算。

sqr(l - t)

畫一條連線兩個球的線。

100, +100)-(100, +100), rgb(125, 0, 0)

end if

doevents '保持滑鼠適當，以便您可以結束程式。

loopend sub

私有子表單 resize（） 線段、球、按鈕位置、顏色等。

with line1

x1 = / 2

y1 =x2 = .x1

y2 =end with

with line2

x1 =x2 =

y1 = / 2

y2 = .y1

end with

with shape1

shape = 3

fillstyle = 0

fillcolor = rgb(0, 255, 0)left = ( / 2 - 100top =

end with

with shape2

shape = 3

fillstyle = 0

fillcolor = rgb(255, 0, 0)left =

top = ( / 2 - 100

end with

鍛鍊" true '保持行自動更新。

end sub

樓上兩個人都很有才華！ 所有這些都使線段移動。 但是，我認為3樓（oaita）更符合主題。 欣賞！

以圖片控制項、計時器控制項（interval 屬性設定為 100 或 200ms）的形式拖動。

我建議你不要使用VB，最好使用幾何畫板，你可以很容易地做到。

我會給你發乙個電子郵件位址，這樣你就不必寫了。

親愛的，你想要VB動畫做什麼？

更改了背景，大概就是這個意思，你可以根據需要檢視和修改它。

拖尾效果。

private sub form_load()=

end sub

指定字元尾隨效果的顏色。

private sub command3_click()with picture2

"黑體" true

fonttransparent = false '背景以

for i = 1 to 72

stepp = i * 10

stepp '調整坐標。

steppi '調整字型大小。

rgb(i * 3, 0, i * 3) '顏色變化"單詞 ab"

x = "單詞 ab") '取字串的長度。

y = "單詞 ab") '取字串高度。

stepp, stepp)-(stepp, stepp + y), rgb(80, 80, 80)

stepp, stepp)-(stepp + x + i * 3, stepp), rgb(150, 150, 150)

doevents

next i

清除路徑。 720 '重寫字元。

單詞 ab"end sub

透明字元的尾隨效果。

private sub command4_click()with picture2

"黑體" true

fonttransparent = trueend with

for i = 1 to 72

stepp = i * 10

steppstepp

rgb(i * 3, 100, 0)

i"單詞 ab"

doevents

next i

end sub

如果使用線性方法繪製，可以製作動畫效果，需要使用的函式和方法可以從 pset 方法和 rnd 隨機數函式開始

您可以使用 Web 小部件來顯示動畫 gif：

d:\"