表白程序-vb源码

《表白程序-vb源码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong'mcisendstring播放音乐的API函数PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLong'用于制作延时函数DimWithEventsimgMGAs

2、Image'申明控件数组DimiAsInteger'全局变量DimimgBox(999)AsImage'记录控件数组的数组DimratioAsDoublePrivateSubForm_Load()Me.ShowMe.BorderStyle=0Me.WindowState=2Picture1.Top=0Picture1.Left=0Picture1.Width=20480'图片框宽度等于屏幕宽度Picture1.Height=11510'ratio=Picture1.Width/Picture1.HeightPicture1.Scale(-ratio/2,1)-(ratio/2

3、,-1)Picture1.BackColor=vbWhiteDrawLines0,0Image1(0).Picture=LoadPicture(App.Path&"红玫瑰.gif")Label1.Top=0Label1.Left=0Label1.FontBold=TrueLabel1.ForeColor=vbRedLabel1.Caption=""Label2.Visible=False'CallBBEndSubPrivateSubLabel2_Click()mciSendString"closemovie",0&,0,0UnloadMe'退出程序EndSubPrivate

4、SubBB()'本程序主要的函数，功能都在里实现CallMusicPlay'播放音乐Forj=1To99X=Rnd*20480Y=Rnd*11510i=i+1LoadImage1(i)Image1(i).Picture=Image1(0).PictureImage1(i).Width=Image1(0).WidthImage1(i).Height=Image1(0).HeightImage1(i).Top=YImage1(i).Left=XImage1(i).Visible=TrueSleep2200Label1.Caption=i&"送上99朵玫瑰，代表我的心！"Nextj

5、Label1.Caption="我们一起长长久久"'随机“画”出99朵玫瑰nullMeiGuii'“察”去玫瑰清屏，下同Label1.Caption=""MeiGui"TX.tat"Label1.Caption="你和你的名字在我心中"Sleep23000nullMeiGuii'画出桃心Label1.Caption=""MeiGui"ILU.tat"Label1.Caption="ILOVEU"Sleep23000nullMeiGuii'画出iloveuLabel1.Caption=""MeiGui"XHM.tat"Label1.Caption="喜欢吗？"Y=MsgBox(

6、"告诉我你喜欢吗？",vbYesNo,"我想知道")IfY=vbYesThennullMeiGuiiMeiGui"XL.tat"Label1.Caption="你喜欢，我很开心"OpenApp.Path&"DA.tat"ForAppendAs#1Print#1,"我喜欢"Close#1ElsenullMeiGuiiMeiGui"KL.tat"Label1.Caption="你不喜欢，我很难过"OpenApp.Path&"DA.tat"ForAppendAs#1Print#1,"我不喜欢"Close#1EndIfLabel2.Visible=TrueLabel2.ForeC

7、olor=vbRedLabel2.Caption="点这里退出"Label2.Top=Picture1.Height-Label2.HeightLabel2.Left=Picture1.Width/2-Label2.Width/2EndSubPrivateSubMusicPlay()'音乐播放函数mName=App.Path&"DDN.mp3"'获取音乐文件地址及文件名，音乐文件放在当前文件夹下，App.Path即为我去程序所在当前文件夹路径mciSendString"closemovie",0&,0