分享
 
 
 

用VB6设计有趣的动画场景

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用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),至于“果子”的外形当然也可以随心所欲的设计。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有