篮球宝贝舞蹈功能实现：按键控制跳舞与音乐，动态与雪花效果.pdfVIP

篮球宝贝舞蹈

实现功能简介:

按下跳舞按钮，篮球宝贝开始跳舞，音乐响起；再按暂停按钮，

舞蹈停止，音乐暂停。

标题随颜色改变位置，整个画面不断飘落颜

色各异的雪花。

PrivateSub舞蹈()StaticyAs

Integery=y+1Ify=28Theny=0

1.=图像1(y).

EndSubPrivateSubCo

mmand1_Click()IfCommand1.

Caption=跳舞Then

Command1.Caption=停止

ElseCommand1.Caption=跳舞

EndIf

结束子程序

_

PrivateSubFormLoad()WindowsMediayer1.URL=

app.path\初音未来‑甩葱歌.mp3WindowsMediayer1.

Controls.stopLabel1(0).AutoSize=True:Label1(0).BackStyle=0

Label1(0).Caption=*RandomizeFori=0To40Ifi0Then

LoadLabel1(i):Label1(i).Visible=TrueLabel1(i).Move

Me.ScaleWidth*Rnd,Me.ScaleHeight*RndLabel1(i).Tag=

Rnd*7‑3|Rnd*5+1Label1(i).Font.Size=20+Rnd*15

NextLabel1(0).Font.Size=15Timer3.Enabled=True:Timer3.

Interval=50EndSub

篮球宝贝舞蹈

实现功能简介：

按下跳舞按键篮球宝贝开始跳舞音乐响起，再按暂停按键，舞

蹈停止、音乐暂停。

标题label随颜色改变位置，整个picture画面不断的飘落

颜色各异的雪花。

PrivateSubdance()

StaticyAsInteger

y=y+1

Ify=28Theny=0Picture1.Picture

=Image1(y).Picture

EndSub

PrivateSubCommand1_Click()

IfCommand1.Caption=跳舞Then

Command1.Caption=停止

Else

Command1.Caption=跳舞

EndIf

EndSub

PrivateSubForm_Load()

WindowsMediayer1.URL=app.path\初音未来-甩葱歌.mp3

WindowsMediayer1.Controls.stop

Label1(0).AutoSize=True:Label1(0).BackStyle=0

Label1(0).Caption=*

Randomize

Fori=0To40

Ifi0ThenLoadLabel1(i):Label1(i).Visible=True

Label1(i).MoveMe.ScaleWidth*Rnd,Me.ScaleHeight*Rnd

Label1(i).Tag=Rnd*7-3|Rnd*5+1

Label1(i).Font.Size=20+Rnd*15

Next

Label1(0).Font.Size=15

Timer3.Enabled=True:Timer3.Interval=50

EndSub

PrivateSubTimer3_Timer()DimiAsLong,SAsLong,TAs

Single,LAsSingleDimnTagAsString,XAsSingle,yAsSingle,

WAsSingleRandomizeW=Label1(0).Height*0.05Fori=0To

Label1.Count‑1nTag=Label1(i).TagS=InStr(nTag,|)X=

Left(nTa