vb多媒体程序代码.docx
《vb多媒体程序代码.docx》由会员分享，可在线阅读，更多相关《vb多媒体程序代码.docx（18页珍藏版）》请在冰豆网上搜索。
vb多媒体程序代码
各窗体代码
第一窗体
PrivateSubform1_load（）
Label1.Left=Form1.ScaleWidth
Label1.ForeColor=RGB（0,220,0）
EndSub
PrivateSub结束_Click（）
End
EndSub
PrivateSub进入_Click（）
UnloadMe
Form2.Show
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.Left+Label1.Width>0Then
Label1.MoveLabel1.Left-50
Else
Label1.Left=Form1.ScaleWidth
EndIf
EndSub
第二窗体
PrivateSubflash_Click（）
UnloadMe
Form3.Show
EndSub
PrivateSubForm2_Load（）
Label1.ForeColor=RGB（0,200,0）
EndSub
PrivateSubLabel1_Click（）
Label1.ForeColor=RGB（0,200,0）
EndSub
PrivateSubmp3_Click（）
UnloadMe
Form4.Show
EndSub
PrivateSub后退_Click（）
UnloadMe
Form1.Show
EndSub
PrivateSub结束_Click（）
End
EndSub
PrivateSub视频_Click（）
UnloadMe
Form5.Show
EndSub
第三窗体
OptionExplicit
PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong）AsLong
PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong）AsLong
PrivateConstGWL_STYLE=（-16）
PrivateConstWS_CAPTION=&HC00000
PrivateConstWS_THICKFRAME=&H40000
PrivateSubcmdnextframe_Click（）
ShockwaveFlash1.Forward
EndSub
PrivateSubcmdpause_Click（）
ShockwaveFlash1.Stop
EndSub
PrivateSubcmdplay_Click（）
Form1.Caption=CommonDialog1.FileName+"-flash动画播放器"
ShockwaveFlash1.Playing=True
Slider1.Max=ShockwaveFlash1.TotalFrames
Label2.Caption=Str（Slider1.Max/2）+"帧"
Label3.Caption=Str（Slider1.Max）+"帧"
ShockwaveFlash1.Movie=CommonDialog1.FileName
EndSub
PrivateSubcmdpreframe_Click（）
ShockwaveFlash1.back
EndSub
PrivateSubCommand6_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
List1.Clear
EndSub
PrivateSubList2_Click（）
ShockwaveFlash1.Movie=List1.ListIndex
EndSub
PrivateSubList2_DblClick（）
ShockwaveFlash1.Movie=List1.Text
EndSub
PrivateSubform_resize（）
ShockwaveFlash1.Height=Form1.Height/2:
ShockwaveFlash1.Width=Form1.Width/2
EndSub
PrivateSub打开_Click（）
OnErrorGoToexitopen
CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer
CommonDialog1.FileName=""
CommonDialog1.ShowOpen
ShockwaveFlash1.Movie=CommonDialog1.FileName
cmdplay_Click
exitopen:
List1.AddItem（CommonDialog1.FileName）
EndSub
PrivateSub返回_Click（）
UnloadMe
Form2.Show
EndSub
PrivateSub放大_Click（）
放大.Checked=Not放大.Checked
If放大.CheckedThen
ShockwaveFlash1.Zoom（50）
放大.Caption="正常"
Else
ShockwaveFlash1.Zoom（0）
放大.Caption="放大"
EndIf
EndSub
PrivateSub后退_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSub连续播放_Click（）
List1.ListIndex=List1.ListIndex+1
cmdplay_Click
EndSub
PrivateSub全屏播放_Click（）
DimReturnValueAsLong,WindowStyleAsLong
全屏播放.Checked=Not全屏播放.Checked
If全屏播放.CheckedThen
WindowStyle=GetWindowLong（Me.hwnd,GWL_STYLE）
ReturnValue=SetWindowLong（Me.hwnd,GWL_STYLE,WindowStyle-WS_CAPTION-WS_THICKFRAME）
Me.WindowState=vbNormal
Me.Move0,0,Screen.Width,Screen.Height
ShockwaveFlash1.Move0,0,Me.ScaleWidth,Me.ScaleHeight
ShockwaveFlash1.play
全屏播放.Caption="正常"
cmdplay.Visible=False
cmdpause.Visible=False
cmdpreframe.Visible=False
cmdnextframe.Visible=False
Command2.Visible=False
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
Label4.Visible=False
Command6.Visible=False
Slider1.Visible=False
List1.Visible=False
Else
全屏播放.Caption="全屏播放"
WindowStyle=GetWindowLong（Me.hwnd,GWL_STYLE）
ReturnValue=SetWindowLong（Me.hwnd,GWL_STYLE,WindowStyleOrWS_CAPTIONOrWS_THICKFRAME）
Me.Move0,0,750*Screen.TwipsPerPixelX,600*Screen.TwipsPerPixelY
Me.Move（Screen.Width-Me.Width）\2,（Screen.Height-Me.Height）\2
cmdplay.Visible=True
cmdpause.Visible=True
cmdpreframe.Visible=True
cmdnextframe.Visible=True
Command2.Visible=True
Label1.Visible=True
Label2.Visible=True
Label3.Visible=True
Label4.Visible=True
Command6.Visible=True
Slider1.Visible=True
List1.Visible=True
EndIf
EndSub
PrivateSub循环播放_Click（）
ShockwaveFlash1.Rewind
ShockwaveFlash1.play
EndSub
PrivateSubSlider1_Scroll（）
ShockwaveFlash1.FrameNum=Slider1.Value
EndSub
PrivateSubTimer1_Timer（）
Form3.Slider1.Value=ShockwaveFlash1.FrameNum
EndSub
第四窗体
OptionExplicit
PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong）AsLong
PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong）AsLong
PrivateConstGWL_STYLE=（-16）
PrivateConstWS_CAPTION=&HC00000
PrivateConstWS_THICKFRAME=&H40000
PrivateSubcmdcontinue_Click（）
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
Else:
WindowsMediaPlayer1.Controls.play
EndIf
EndSub
PrivateSubcmdnext_Click（）
OnErrorGoTonexterr
WindowsMediaPlayer1.Controls.Next
ExitSub
nexterr:
EndSub
PrivateSubcmdpause_Click（）
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
Else:
WindowsMediaPlayer1.Controls.pause
EndIf
EndSub
PrivateSubcmdplay_Click（）
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
Else
WindowsMediaPlayer1.URL=CommonDialog1.FileName
WindowsMediaPlayer1.Controls.play
Label1.Caption="现在正在播放:
"&CommonDialog1.FileName
EndIf
Label1.Caption="现在正在播放:
"&CommonDialog1.FileName
ExitSub
EndSub
PrivateSubcmdstop_Click（）
IfCommonDialog1.FileName="'"Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
Else:
WindowsMediaPlayer1.Controls.Stop
cmdplay.Enabled=True
cmdpause.Enabled=True
cmdcontinue.Enabled=True
cmdstop.Enabled=True
EndIf
EndSub
PrivateSubCommand7_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSubCommand6_Click（）
UnloadMe
Form2.Show
EndSub
PrivateSubForm_Load（）
BackColor=RGB（200,100,50）
EndSub
PrivateSubList1_Click（）
WindowsMediaPlayer1.URL=List1.ListIndex
EndSub
PrivateSubList1_DblClick（）
WindowsMediaPlayer1.URL=List1.Text
EndSub
PrivateSub打开_Click（）
CommonDialog1.Filter="MP3Files（*.mp3）|*.mp3|WaveFiles（*.wav）|*.wav"
CommonDialog1.ShowOpen
CommonDialog1.FilterIndex=1
CommonDialog1.Action=1
CommonDialog1.Flags=1
cmdplay_Click
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
EndIf
List2.AddItemCommonDialog1.FileName
Label1.Caption="现在正在播放:
"&CommonDialog1.FileName
EndSub
PrivateSub后退_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSub全屏播放_Click（）
DimReturnValueAsLong,WindowStyleAsLong
全屏播放.Checked=Not全屏播放.Checked
If全屏播放.CheckedThen
WindowStyle=GetWindowLong（Me.hwnd,GWL_STYLE）
ReturnValue=SetWindowLong（Me.hwnd,GWL_STYLE,WindowStyle-WS_CAPTION-WS_THICKFRAME）
Me.WindowState=vbNormal
Me.Move0,0,Screen.Width,Screen.Height
List2.Visible=False
WindowsMediaPlayer1.Move0,0,Me.ScaleWidth,Me.ScaleHeight
全屏播放.Caption="正常"
cmdplay.Visible=False
cmdpause.Visible=False
Command6.Visible=False
cmdcontinue.Visible=False
cmdstop.Visible=False
Else
全屏播放.Caption="全屏播放"
WindowStyle=GetWindowLong（Me.hwnd,GWL_STYLE）
ReturnValue=SetWindowLong（Me.hwnd,GWL_STYLE,WindowStyleOrWS_CAPTIONOrWS_THICKFRAME）
Me.Move0,0,750*Screen.TwipsPerPixelX,600*Screen.TwipsPerPixelY
Me.Move（Screen.Width-Me.Width）\2,（Screen.Height-Me.Height）\2
全屏播放.Caption="正常"
cmdplay.Visible=True
cmdpause.Visible=True
Command6.Visible=True
cmdcontinue.Visible=True
cmdstop.Visible=True
List2.Visible=True
EndIf
EndSub
第五窗体
OptionExplicit
PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong）AsLong
PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"（ByValhwndAsLong,ByValnIndexAsLong）AsLong
PrivateConstGWL_STYLE=（-16）
PrivateConstWS_CAPTION=&HC00000
PrivateConstWS_THICKFRAME=&H40000
PrivateSubcmdopen_Click（）
OnErrorGoToexitopen
CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer
CommonDialog1.FileName=""
CommonDialog1.ShowOpen
MediaPlayer1.FileName=CommonDialog1.FileName
cmdplay_Click
exitopen:
CommonDialog1.Filter="*.avi"
CommonDialog1.Action=1
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
EndIf
EndSub
PrivateSubList1_Click（）
MediaPlayer1.URL=List1.ListIndex
EndSub
PrivateSubList1_DblClick（）
MediaPlayer1.URL=List1.Text
EndSub
PrivateSubCommand1_Click（）
Form2.Show
UnloadMe
EndSub
PrivateSubform3_resize（）
MediaPlayer1.Height=Form5.Height/2:
MediaPlayer1.Width=Form5.Width/2
EndSub
PrivateSubForm_Load（）
BackColor=RGB（100,100,100）
EndSub
PrivateSubcmdpause_Click（）
MediaPlayer1.Controls.pause
EndSub
PrivateSubcmdplay_Click（）
MediaPlayer1.URL=CommonDialog1.FileName
MediaPlayer1.Controls.play
cmdpause.Enabled=True
Label1.Caption="现在正在播放:
"&CommonDialog1.FileName
EndSub
PrivateSubcmdstop_Click（）
IfCommonDialog1.FileName=""Then
MsgBox"未选择媒体文件",vbOKOnly,"错误消息"
Else:
MediaPlayer1.Controls.Stop
cmdplay.Enabled=True
cmdpause.Enabled=False
cmdstop.Enabled=True
EndIf
EndSub
PrivateSubcmdstep_Click（）
MediaPlayer1.Controls.fastForward
EndSub
PrivateSub打开_Click（）
OnErrorGoToexitopen
CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer
CommonDialog1.FileName="'"
CommonDialog1.ShowOpen
MediaPlayer1.FileName=CommonDialog1.FileName
cmdplay_Click
exitopen:
CommonDialog1.Filter="*.avi"
CommonDialog1.Action=1
升级会员 