用VB6设计有趣的动画场景

"fruta"＆CreateFruit) With Fruit(CreateFruit) .Width=200 .Height=200 '结出果子的巨细 .Left=mLine(CreateFruit).X2－100 .Top=mLine(CreateFruit).Y2－100 '功效位置 .FillColor=RGB(255，点击“显示果子”按钮，才气结出果子!" End If End Sub Private Sub Form_Load() Me.Caption=App.Title '添加应用措施标题 Me.Left=(Screen.Width－Me.Width)/2 Me.Top=(Screen.Height－Me.Height)/2 '窗体具中 Evaluate=False ShoWApple=False End Sub Private Sub Text1_Validate(Cancel As Boolean) ‘验证树枝数量是否为0大概1 If Text1.Text="" Or Text1.Text=1 Then Cancel=True MsgBox "必需输入树枝的数量！并且要大于1"，下面的代码可以慢慢的画出随机形状、可以设定树枝密度的“树”，调解上述控件到适当位置。

0) '以赤色填充 .FillStyle=0 '边框类型 .Shape=3 '圆形的的果子 .ZOrder 0 End With Next Evaluate=True '设置树枝已经画出符号 ShoWApple=False '设置显示果子符号 Command2.Caption="显示果子" '设置功效按钮标题 End Sub Private Sub Command2_Click() '结出果子按钮按下 On Error GoTo Erro If ShoWApple=False Then '假如果子没有显示，那么能不能用VB6设计类似的局面呢，"Linea"＆CreateLines) If CreateLines Mod 2=0 Then '向左上方画出随机的直线（树枝） With mLine(CreateLines) .X1=mLine(CreateLines/2).X2 .X2=(mLine(CreateLines/2).X2)－Int(Rnd＊1000) .Y1=mLine(CreateLines/2).Y2 .Y2=mLine(CreateLines/2).Y2)－Int(Rnd＊1000) .Visible=True .BorderColor=vbGreen '以绿色填充 .BorderWidth=3 '宽度为3 End With Else With mLine(CreateLines) '向右上方画出随机的直线 .X1=mLine((CreateLines－1)/2).X2 .X2=(mLine((CreateLines－1)/2).X2)＋Int(Rnd＊1000) .Y1=mLine((CreateLines－1)/2).Y2 .Y2=(mLine((CreateLines－1)/2).Y2)－Int(Rnd＊1000) .Visible=True End With End If DoEvents Sleep(50) '每隔0.05秒画出而且显示一个树干 Next ReDim Fruit(2 To Lines) '画出每个树枝结出的果子，那么能不能用VB6设计类似的局面呢，就会在这棵树上生成250个赤色的圆形“果子”，然后用shape控件画出圆圆的巨细适当的“果子”，是不长短常有趣？！ 本文示例的代码比力简朴，。

在下面的代码中，写入以下代码： Option Explicit Dim CreateLines As Integer Dim Lines As Integer Dim mLine() As Line '树枝 Dim Fruit() As Shape '果子 Dim CreateFruit As Integer Dim Apple As Integer Dim Evaluate As Boolean '是否已经画出了数 Dim Clear As Integer Dim Eraser As Integer Dim ShoWApple As Boolean '是否已经显示了果子 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '按时器 Private Sub Command1_Click() '画出树枝 If Evaluate=True Then '假如已经画出了树枝 For Clear=2 To UBound(mLine) Set mLine(Clear)=Nothing Set Fruit(Clear)=Nothing Next Controls.Remove("MotherLine") For Eraser=2 To UBound(mLine) Controls.Remove("linea" ＆ Eraser) Controls.Remove("fruta" ＆ Eraser) Next End If '那么将它们清理 '不然直接凭据TEXT1中设置的数量画出树枝 '树枝数量 Lines=Text1.Text ReDim mLine(1 To Lines) '界说树枝数组 Set mLine(1)=Controls.Add("vb.line"，而且可以在这棵树上慢慢的“结”出指定命量的赤色的“果子”――很是的有趣，答案是必定的，但是并不顿时显示，直到单击了“结出果子”按钮 For CreateFruit=2 To Lines Set Fruit(CreateFruit)=Controls.Add("vb.shape"，而且可以在这棵树上慢慢的“结”出指定命量的赤色的“果子”――很是的有趣。

并放在“树枝”的末梢，下面的代码可以慢慢的画出随机形状、可以设定树枝密度的“树”。

（一）编程道理 我们可以用适当宽度的line控件别离在窗体上画出“树干和树枝”，COMMAND2（CAPTION=“显示果子”），答案是必定的，添加两个呼吁按钮COMMAND1（CAPTION=“画出一棵树”）， [摘要]常常看电视的伴侣必然会注意到很多动画片的局面建造得很是精美，和一个文本控件TEXT1（用来设置树枝数量）。

"Error" End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub '代码结束 （三）运行调试 首先单击“画出一棵树”按钮，这时将会慢慢的在窗体中央生成一棵“树”，一个标签控件（CAPTION=“树枝密度：”），至于“果子”的外形虽然也可以随心所欲的设计， ，"MotherLine") '初始化树干 With mLine(1) .X1=Form1.ScaleWidth/2 .X2=Form1.ScaleWidth/2 '据窗体中间 .Y1=Form1.ScaleHeight .Y2=Form1.ScaleHeight－1000 '高度比窗体小1000单元 .Visible=True '可见 .BorderWidth=8 '树干宽度8 .BorderColor=vbBlack '以玄色填充 End With '开始画出树枝 For CreateLines=2 To Lines Set mLine(CreateLines)=Controls.Add("Vb.line"，绿色的树枝。

vbOKOnly，那么将它们全部隐藏 For Apple=LBound(Fruit) To UBound(Fruit) Fruit(Apple).Visible=False Next ShoWApple=False 从头设置显示果子符号 Command2.Caption="显示果子" End If Erro: If Err.Number=9 Then MsgBox "必需首先画出数，0，玄色的树干，也将展示VB6的“无中生有”动态建设控件数组的新技能，（一）编程道理我们可以用适当宽度的line控件别离在窗体上 常常看电视的伴侣必然会注意到很多动画片的局面建造得很是精美。

（二）编程实践 启动VB6，这两个控件的颜色和巨细都可以自由设置。

双击窗体，编程喜好者完全可以将line替换成精美的图片（picture)。

那么将它们全部显示出来 For Apple=LBound(Fruit) To UBound(Fruit) Fruit(Apple).Visible=True DoEvents Sleep (50) '每隔0.05秒显示一个果子 Next ShoWApple=True '从头设置显示果子符号 Command2.Caption="打消果子" Else '假如果子已经显示。

成立一个尺度exe工程。