vb多媒体程序代码文档格式.docx
- 文档编号:16518347
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:18
- 大小:18.51KB
vb多媒体程序代码文档格式.docx
《vb多媒体程序代码文档格式.docx》由会员分享,可在线阅读,更多相关《vb多媒体程序代码文档格式.docx(18页珍藏版)》请在冰豆网上搜索。
Form3.Show
PrivateSubForm2_Load()
Label1.ForeColor=RGB(0,200,0)
PrivateSubLabel1_Click()
PrivateSubmp3_Click()
Form4.Show
PrivateSub后退_Click()
Form1.Show
PrivateSub视频_Click()
Form5.Show
第三窗体
OptionExplicit
PrivateDeclareFunctionSetWindowLongLib"
user32"
Alias"
SetWindowLongA"
(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionGetWindowLongLib"
GetWindowLongA"
(ByValhwndAsLong,ByValnIndexAsLong)AsLong
PrivateConstGWL_STYLE=(-16)
PrivateConstWS_CAPTION=&
HC00000
PrivateConstWS_THICKFRAME=&
H40000
PrivateSubcmdnextframe_Click()
ShockwaveFlash1.Forward
EndSub
PrivateSubcmdpause_Click()
ShockwaveFlash1.Stop
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
PrivateSubcmdpreframe_Click()
ShockwaveFlash1.back
PrivateSubCommand6_Click()
PrivateSubCommand2_Click()
List1.Clear
PrivateSubList2_Click()
ShockwaveFlash1.Movie=List1.ListIndex
PrivateSubList2_DblClick()
ShockwaveFlash1.Movie=List1.Text
PrivateSubform_resize()
ShockwaveFlash1.Height=Form1.Height/2:
ShockwaveFlash1.Width=Form1.Width/2
PrivateSub打开_Click()
OnErrorGoToexitopen
CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer
CommonDialog1.FileName="
"
CommonDialog1.ShowOpen
cmdplay_Click
exitopen:
List1.AddItem(CommonDialog1.FileName)
PrivateSub返回_Click()
PrivateSub放大_Click()
放大.Checked=Not放大.Checked
If放大.CheckedThen
ShockwaveFlash1.Zoom(50)
放大.Caption="
正常"
ShockwaveFlash1.Zoom(0)
放大"
EndIf
PrivateSub连续播放_Click()
List1.ListIndex=List1.ListIndex+1
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
全屏播放"
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
PrivateSub循环播放_Click()
ShockwaveFlash1.Rewind
PrivateSubSlider1_Scroll()
ShockwaveFlash1.FrameNum=Slider1.Value
Form3.Slider1.Value=ShockwaveFlash1.FrameNum
第四窗体
PrivateSubcmdcontinue_Click()
IfCommonDialog1.FileName="
Then
MsgBox"
未选择媒体文件"
vbOKOnly,"
错误消息"
Else:
WindowsMediaPlayer1.Controls.play
PrivateSubcmdnext_Click()
OnErrorGoTonexterr
WindowsMediaPlayer1.Controls.Next
ExitSub
nexterr:
IfCommonDialog1.FileName="
Else:
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.URL=CommonDialog1.FileName
Label1.Caption="
现在正在播放:
&
CommonDialog1.FileName
ExitSub
PrivateSubcmdstop_Click()
'
WindowsMediaPlayer1.Controls.Stop
cmdplay.Enabled=True
cmdpause.Enabled=True
cmdcontinue.Enabled=True
cmdstop.Enabled=True
PrivateSubCommand7_Click()
UnloadMe
Form2.Show
PrivateSubForm_Load()
BackColor=RGB(200,100,50)
PrivateSubList1_Click()
WindowsMediaPlayer1.URL=List1.ListIndex
PrivateSubList1_DblClick()
WindowsMediaPlayer1.URL=List1.Text
CommonDialog1.Filter="
MP3Files(*.mp3)|*.mp3|WaveFiles(*.wav)|*.wav"
CommonDialog1.FilterIndex=1
CommonDialog1.Action=1
CommonDialog1.Flags=1
List2.AddItemCommonDialog1.FileName
List2.Visible=False
WindowsMediaPlayer1.Move0,0,Me.ScaleWidth,Me.ScaleHeight
cmdcontinue.Visible=False
cmdstop.Visible=False
cmdcontinue.Visible=True
cmdstop.Visible=True
List2.Visible=True
第五窗体
PrivateSubcmdopen_Click()
MediaPlayer1.FileName=CommonDialog1.FileName
*.avi"
MediaPlayer1.URL=List1.ListIndex
MediaPlayer1.URL=List1.Text
PrivateSubCommand1_Click()
PrivateSubform3_resize()
MediaPlayer1.Height=Form5.Height/2:
MediaPlayer1.Width=Form5.Width/2
BackColor=RGB(100,100,100)
MediaPlayer1.Controls.pause
MediaPlayer1.URL=CommonDialog1.FileName
MediaPlayer1.Controls.play
MediaPlayer1.Controls.Stop
cmdpause.Enabled=False
PrivateSubcmdstep_Click()
MediaPlayer1.Controls.fastForward
OnErrorGoToexitopen
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 多媒体 程序代码