表白程序VB源码.doc

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