用VB6设计有趣的动画场景

原创 2001年05月13日 13:15:00
 

用VB6设计有趣的动画场景


   经常看电视的朋友一定会注意到许多动画片的场面制作得非常精美,那么能不能用VB6设计类似的场面呢,答案是肯定的,下面的代码可以慢慢的画出随机形状、可以设定树枝密度的“树”,并且可以在这棵树上慢慢的“结”出指定数量的红色的“果子”——非常的有趣。
  (一)编程原理
  我们可以用适当宽度的line控件分别在窗体上画出“树干和树枝”,然后用shape控件画出圆圆的大小适当的“果子”,并放在“树枝”的末梢。这两个控件的颜色和大小都可以自由设置。在下面的代码中,也将展示VB6的“无中生有”动态创建控件数组的新技术。
  (二)编程实践
  启动VB6,建立一个标准exe工程,添加两个命令按钮COMMAND1(CAPTION=“画出一棵树”),COMMAND2(CAPTION=“显示果子”),一个标签控件(CAPTION=“树枝密度:”),和一个文本控件TEXT1(用来设置树枝数量),调整上述控件到适当位置,双击窗体,写入以下代码:
  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","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","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)
  '画出每个树枝结出的果子,但是并不马上显示,直到单击了“结出果子”按钮
  For CreateFruit=2 To Lines
  Set Fruit(CreateFruit)=Controls.Add("vb.shape","fruta"&CreateFruit)
  With Fruit(CreateFruit)
  .Width=200
  .Height=200 '结出果子的大小
  .Left=mLine(CreateFruit).X2-100
  .Top=mLine(CreateFruit).Y2-100 '结果位置
  .FillColor=RGB(255,0,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
  '如果果子没有显示,那么将它们全部显示出来
  For Apple=LBound(Fruit) To UBound(Fruit)
  Fruit(Apple).Visible=True
  DoEvents
  Sleep (50) '每隔0.05秒显示一个果子
  Next
  ShoWApple=True '重新设置显示果子标志
  Command2.Caption="取消果子"
  Else
  '如果果子已经显示,那么将它们全部隐藏
  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 "必须首先画出数,才能结出果子!"
  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",vbOKOnly,"Error"
  End If
  End Sub
  Private Sub Form_Unload(Cancel As Integer)
  End
  End Sub '代码结束
  (三)运行调试
  首先单击“画出一棵树”按钮,这时将会慢慢的在窗体中央生成一棵“树”,黑色的树干,绿色的树枝。点击“显示果子”按钮,就会在这棵树上生成250个红色的圆形“果子”。是不是非常有趣?!
  本文示例的代码比较简单,编程爱好者完全可以将line替换成精美的图片(picture),至于“果子”的外形当然也可以随心所欲的设计。

20个令人惊叹的深度学习应用

从计算机视觉到自然语言处理,在过去的几年里,深度学习技术被应用到了数以百计的实际问题中。诸多案例也已经证明,深度学习能让工作比之前做得更好。 今天,量子位为大家收集了20个深度学习方面的优秀应用——...
  • YiLiang_
  • YiLiang_
  • 2017年05月07日 19:45
  • 3339

【Unity编程】Unity动画系统(一)

Unity动画系统Unity动画系统,也称为“Mecanim”,提供了以下功能: 简单的工作流程,设置动画的所有元素,包括对象,角色和属性。 支持导入外部创建的动画片段和使用内置动画编辑器制作的动画片...
  • AndrewFan
  • AndrewFan
  • 2017年04月28日 22:27
  • 5274

DirectX3D游戏制作之---3D场景的渲染及人物动画的显示

前言:             无所谓好或不好,人生一场虚空大梦,韶华白首,不够转瞬。                                                        ...
  • Loving_Forever_
  • Loving_Forever_
  • 2016年08月12日 22:23
  • 5520

精彩编程与编程技巧-用VB6设计有趣的动画场景...

  • 2009年10月10日 22:42
  • 5KB
  • 下载

VB6编写的职工工资管理系统毕业设计

从苏州一回来就接到Kivi的的任务,要用VB编写一个类似windows字体对话框的东西,VB这东西CG是有段时间没有接触了,不过昨天收拾了一下自己的笔本电脑,找到了一个以前为我表姐做的VB毕业设计的源...
  • yctccg
  • yctccg
  • 2016年08月16日 10:39
  • 624

精彩编程与编程技巧-让vb6支持动画光标...

  • 2009年10月10日 21:29
  • 2KB
  • 下载

VB6-GIF动画

  • 2013年05月17日 10:55
  • 1021KB
  • 下载

ActiveReport设计器VB6源码,不需安装ActiveReport

  • 2009年05月27日 15:00
  • 4.07MB
  • 下载

VB6程序设计电子教案

  • 2007年06月15日 12:24
  • 2.13MB
  • 下载

精彩编程与编程技巧-vb6如何把帮助文件加到设计的程序内...

  • 2009年10月09日 22:38
  • 189B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB6设计有趣的动画场景
举报原因:
原因补充:

(最多只允许输入30个字)