表白程序VB源码.doc

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

smdh + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档