- 1、本文档共13页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
WORD完美整理版
范文范例 参考指导
Private Declare Function mciSendString Lib winmm.dll Alias mciSendStringA (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long mcisendstring播放音乐的API函数
Private Declare Function timeGetTime Lib winmm.dll () As Long 用于制作延时函数
Dim WithEvents imgMG As Image 申明控件数组
Dim i As Integer 全局变量
Dim imgBox(999) As Image 记录控件数组的数组
Dim ratio As Double
Private Sub Form_Load()
Me.Show
Me.BorderStyle = 0
Me.WindowState = 2
Picture1.Top = 0
Picture1.Left = 0
Picture1.Width = 20480 图片框宽度等于屏幕宽度
Picture1.Height = 11510
ratio = Picture1.Width / Picture1.Height
Picture1.Scale (-ratio / 2, 1)-(ratio / 2, -1)
Picture1.BackColor = vbWhite
DrawLines 0, 0
Image1(0).Picture = LoadPicture(App.Path \红玫瑰.gif)
Label1.Top = 0
Label1.Left = 0
Label1.FontBold = True
Label1.ForeColor = vbRed
Label1.Caption =
Label2.Visible = False
Call BB
End Sub
Private Sub Label2_Click()
mciSendString close movie, 0, 0, 0
Unload Me 退出程序
End Sub
Private Sub BB() 本程序主要的函数,功能都在里实现
Call MusicPlay 播放音乐
For j = 1 To 99
X = Rnd * 20480
Y = Rnd * 11510
i = i + 1
Load Image1(i)
Image1(i).Picture = Image1(0).Picture
Image1(i).Width = Image1(0).Width
Image1(i).Height = Image1(0).Height
Image1(i).Top = Y
Image1(i).Left = X
Image1(i).Visible = True
Sleep2 200
Label1.Caption = i 送上99朵玫瑰,代表我的心!
Next j
Label1.Caption = 我们一起长长久久 随机“画”出99朵玫瑰
nullMeiGui i “察”去玫瑰清屏,下同
Label1.Caption =
MeiGui TX.tat
Label1.Caption = 你和你的名字在我心中
Sleep2 3000
nullMeiGui i 画出桃心
Label1.Caption =
MeiGui ILU.tat
Label1.Caption = I LOVE U
Sleep2 3000
nullMeiGui i 画出i love u
Label1.Caption =
MeiGui XHM.tat
Label1.Caption = 喜欢吗?
Y = MsgBox(告诉我你喜欢吗?, vbYesNo, 我想知道)
If Y = vbYes Then
nullMeiGui i
MeiGui XL.tat
Label1.Caption = 你喜欢,我很开心
Open App.Path \DA.tat Fo
文档评论(0)