紧急！！！ 如何用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:\"