vb多媒体程序代码.doc

《vb多媒体程序代码.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、各窗体代码第一窗体PrivateSubform1_load()Label1.Left=Form1.ScaleWidthLabel1.ForeColor=RGB(0,220,0)EndSubPrivateSub结束_Click()EndEndSubPrivateSub进入_Click()UnloadMeForm2.ShowEndSubPrivateSubTimer1_Timer()IfLabel1.Left+Label1.Width>0ThenLabel1.MoveLabel1.Left-50ElseLabel1.Left=Form1.ScaleWidthEndIfEnd

2、Sub第二窗体PrivateSubflash_Click()UnloadMeForm3.ShowEndSubPrivateSubForm2_Load()Label1.ForeColor=RGB(0,200,0)EndSubPrivateSubLabel1_Click()Label1.ForeColor=RGB(0,200,0)EndSubPrivateSubmp3_Click()UnloadMeForm4.ShowEndSubPrivateSub后退_Click()UnloadMeForm1.ShowEndSubPrivateSub结束_Click()EndEndSub

3、PrivateSub视频_Click()UnloadMeForm5.ShowEndSub第三窗体OptionExplicitPrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAs

4、Long)AsLongPrivateConstGWL_STYLE=(-16)PrivateConstWS_CAPTION=&HC00000PrivateConstWS_THICKFRAME=&H40000PrivateSubcmdnextframe_Click()ShockwaveFlash1.ForwardEndSubPrivateSubcmdpause_Click()ShockwaveFlash1.StopEndSubPrivateSubcmdplay_Click()Form1.Caption=CommonDialog1.FileName+"-flash动画播放器"

5、ShockwaveFlash1.Playing=TrueSlider1.Max=ShockwaveFlash1.TotalFramesLabel2.Caption=Str(Slider1.Max/2)+"帧"Label3.Caption=Str(Slider1.Max)+"帧"ShockwaveFlash1.Movie=CommonDialog1.FileNameEndSubPrivateSubcmdpreframe_Click()ShockwaveFlash1.backEndSubPrivateSubCommand6_Click()Form2.ShowUnloadMe

6、EndSubPrivateSubCommand2_Click()List1.ClearEndSubPrivateSubList2_Click()ShockwaveFlash1.Movie=List1.ListIndexEndSubPrivateSubList2_DblClick()ShockwaveFlash1.Movie=List1.TextEndSubPrivateSubform_resize()ShockwaveFlash1.Height=Form1.Height/2:ShockwaveFlash1.Width=Form1.Width/2EndSubPrivate

7、Sub打开_Click()OnErrorGoToexitopenCommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorerCommonDialog1.FileName=""CommonDialog1.ShowOpenShockwaveFlash1.Movie=CommonDialog1.FileNamecmdplay_Clickexitopen:List1.AddItem(CommonDialog1.FileName)EndSubPriva