frmmediap.frm

国防工业部VB高级编程源码

'减少声量
    If MediaP.Volume - 300 >= -10000 Then
        MediaP.Volume = MediaP.Volume - 300
    End If
End Sub

Private Sub mnuCtrlStereo_Click()
'设置立体声
        mnuCtrlStereo.Checked = True
        MediaP.Balance = 0
        mnuCtrlLeft.Checked = False
        mnuCtrlRight.Checked = False
    
End Sub


Private Sub mnuCtrlWidthBig_Click()
'增加边界的厚度
    If MediaP.VideoBorderWidth + 2 <= 10 Then
    MediaP.VideoBorderWidth = MediaP.VideoBorderWidth + 2
    End If

End Sub

Private Sub mnuCtrlWidthSmall_Click()
'减少边界的厚度
    If MediaP.VideoBorderWidth - 2 >= 0 Then
    MediaP.VideoBorderWidth = MediaP.VideoBorderWidth - 2
    End If
    
End Sub

Private Sub mnuFileClose_Click()
    '关闭文件
    MediaP.Stop
    MediaP.FileName = ""
    
    mnuViewsf.Enabled = False

End Sub

Private Sub mnuFileExit_Click()
'退出程序，把打开的文件名保存到注册表中

    SaveSetting "MPApp", "FileName", "File1", mnuFileName0.Caption
    SaveSetting "MPApp", "FileName", "File2", mnuFileName1.Caption
    End
End Sub

Private Sub mnuFileName0_Click()
'打开当前文件
    FileOpen mnuFileName0.Caption, mnuFileName0.Caption
End Sub

Private Sub mnuFileName1_Click()
'打开当前文件
    FileOpen mnuFileName0.Caption, mnuFileName1.Caption
End Sub

Private Sub mnuFileOpen_Click()
'弹出文件打开对话框，选择文件
    m_strPreFileName = arrFileName(m_intFileCount)
    
    cmdlgFile.Filter = "Microsoft 流式媒体文件(*.asf;*.asx;*.lsf;*.lsx)|*.asf;*.asx;*.lsf;*.lsx|"
    cmdlgFile.Filter = cmdlgFile.Filter + "数据文件(*.dat)|*.dat|"
    cmdlgFile.Filter = cmdlgFile.Filter + "视频文件(*.avi)|*.avi|"
    cmdlgFile.Filter = cmdlgFile.Filter + "Audio文件(*.wav)|*.wav|"
    'cmdlgFile.Filter = cmdlgFile.Filter + "电影文件(*.mpeg;*.mpg;*.mpe)|*.mpeg;*.mpg;*.mpe|"
    cmdlgFile.Filter = cmdlgFile.Filter + "MP3文件(*.mp3;*.m3u)|*.mp3;*.m3u|"
    cmdlgFile.Filter = cmdlgFile.Filter + "MIDI文件(*.mid;*.midi;*.rmi)|*.mid;*.midi;*.rmi|"
    cmdlgFile.Filter = cmdlgFile.Filter + "Indeo视频文件(*.ief)|*.ief|"
    cmdlgFile.Filter = cmdlgFile.Filter + "AIFF格式声音(*.aif;*.aifc;*.aiff)|*.aif;*.aifc;*.aiff|"
    cmdlgFile.Filter = cmdlgFile.Filter + "AU格式声音(*.au;*.snd)|*.au;*.snd|"
    cmdlgFile.Filter = cmdlgFile.Filter + "QuickTime文件(*.mov;*.qt)|*.mov;*.qt|"
    cmdlgFile.Filter = cmdlgFile.Filter + "All Files (*.*)|*.*"
    
    cmdlgFile.FilterIndex = 2
    
    cmdlgFile.ShowOpen
    
    '调用FileOpen过程
    If cmdlgFile.FileName <> "" Then
        FileOpen m_strPreFileName, cmdlgFile.FileName
    End If
    
End Sub

Sub FileOpen(ByVal strPreFile As String, ByVal strCurFile As String)
'使用MediaPlayer控件打开文件
    m_intFileCount = m_intFileCount + 1
    ReDim Preserve arrFileName(m_intFileCount) As String
    arrFileName(m_intFileCount) = strCurFile
    '播放当前文件
    MediaP.AutoStart = True
    MediaP.AutoSize = True
    MediaP.EnablePositionControls = True
    MediaP.EnableTracker = True
    
    
    MediaP.FileName = strCurFile
    '显示的图像大小为原始大小
    MediaP.DisplaySize = mpDefaultSize
    
    
    mnuViewMin.Checked = False
    mnuViewC.Checked = False
    mnuViewS.Checked = False
    mnuViewC_Click
    
    mnuViewsf.Enabled = True
    mnuViewsfSame.Checked = True
    
End Sub

Private Sub mnuHelpAboutMe_Click()
'显示AboutMe对话框
    frmAbout.Show
End Sub

Private Sub mnuHelpAboutMP_Click()
'显示MediaPlayer控件的About对话框
    MediaP.AboutBox
End Sub

Private Sub mnuHelpMP_Click()
'显示帮助文件
    MediaP.ShowDialog mpShowDialogHelp
End Sub

Private Sub mnuPlayhj_Click()
'快退
    If MediaP.AllowScan Then
        MediaP.FastReverse
    End If
End Sub

Private Sub mnuPlaykj_Click()
'快跳进
    If MediaP.CanPreview Then
         MediaP.Next
    End If
End Sub

Private Sub mnuPlaykt_Click()
'快跳退
    If MediaP.CanPreview Then
        MediaP.Previous
    End If
End Sub

Private Sub mnuPlayPP_Click()
'播放和暂停控制
    If MediaP.PlayState = mpPaused Or MediaP.PlayState = mpStopped Then
        MediaP.Play
    ElseIf MediaP.PlayState = mpPlaying Then
        MediaP.Pause
    End If
        
End Sub

Private Sub mnuPlayqj_Click()
'快进
    If MediaP.AllowScan Then
        MediaP.FastForward
    End If
End Sub

Private Sub mnuPlayStop_Click()
'停止控制
    If MediaP.PlayState = mpPlaying Then
        MediaP.Stop
    End If
End Sub

Private Sub mnuViewBarAudio_Click()
'音量控制栏
    MediaP.ShowAudioControls = Not MediaP.ShowAudioControls
    mnuViewBarAudio.Checked = MediaP.ShowAudioControls
    FormResize
End Sub

Private Sub mnuViewBarCaptioning_Click()
'字幕栏
    MediaP.ShowCaptioning = Not MediaP.ShowCaptioning
    mnuViewBarCaptioning.Checked = MediaP.ShowCaptioning
    FormResize
End Sub

Private Sub mnuViewBarControls_Click()
'控制栏
    MediaP.ShowControls = Not MediaP.ShowControls
    mnuViewBarControls.Checked = MediaP.ShowControls
    FormResize
End Sub

Private Sub mnuViewBarDisplay_Click()
'信息栏
    MediaP.ShowDisplay = Not MediaP.ShowDisplay
    mnuViewBarDisplay.Checked = MediaP.ShowDisplay
    FormResize
End Sub

Private Sub mnuViewBarGoto_Click()
'goto栏
    MediaP.ShowGotoBar = Not MediaP.ShowGotoBar
    mnuViewBarGoto.Checked = MediaP.ShowGotoBar
    FormResize
    
End Sub

Private Sub mnuViewBarPosition_Click()
'位置栏
    MediaP.ShowPositionControls = Not MediaP.ShowPositionControls
    mnuViewBarPosition.Checked = MediaP.ShowPositionControls
    FormResize
End Sub

Private Sub mnuViewBarStatus_Click()
'状态栏
    MediaP.ShowStatusBar = Not MediaP.ShowStatusBar
    mnuViewBarStatus.Checked = MediaP.ShowStatusBar
    FormResize
End Sub

Private Sub mnuViewBarTracker_Click()
'轨道栏
    MediaP.ShowTracker = Not MediaP.ShowTracker
    mnuViewBarTracker.Checked = MediaP.ShowTracker
    FormResize
End Sub

Private Sub mnuViewC_Click()
'简约显示
    mnuViewC.Checked = Not mnuViewC.Checked
    If mnuViewC.Checked Then
        MediaP.ShowAudioControls = True
        MediaP.ShowCaptioning = False
        MediaP.ShowDisplay = False
        MediaP.ShowGotoBar = False
        MediaP.ShowPositionControls = True
        MediaP.ShowStatusBar = False
        MediaP.ShowTracker = False
        MediaP.ShowControls = True
        mnuViewMin.Checked = False
        mnuViewS.Checked = False
    Else
        mnuViewS_Click
    End If

    FormResize
    CheckMenu
End Sub

Private Sub mnuViewFull_Click()
'全屏显示
    mnuViewFull.Checked = Not mnuViewFull.Checked
    If mnuViewFull.Checked Then
        ShowScreen (3)
    Else
        ShowScreen (0)
    End If
End Sub

Private Sub mnuViewMin_Click()
'最小显示
    mnuViewMin.Checked = Not mnuViewMin.Checked
   If mnuViewMin.Checked Then
        MediaP.ShowControls = False
        MediaP.ShowAudioControls = False
        MediaP.ShowCaptioning = False
        MediaP.ShowDisplay = False
        MediaP.ShowGotoBar = False
        MediaP.ShowPositionControls = False
        MediaP.ShowStatusBar = False
        MediaP.ShowTracker = False
        mnuViewC.Checked = False
        mnuViewS.Checked = -False
    Else
        mnuViewC_Click
    End If
   FormResize
   CheckMenu
End Sub

Private Sub mnuViewPre_Click()
'显示选项对话框
    MediaP.ShowDialog mpShowDialogOptions
    FormResize
End Sub

Private Sub mnuViewS_Click()
'标准显示
    mnuViewS.Checked = Not mnuViewS.Checked
    If mnuViewS.Checked Then
        MediaP.ShowAudioControls = True
        MediaP.ShowCaptioning = True
        MediaP.ShowControls = True
        MediaP.ShowDisplay = True
        MediaP.ShowGotoBar = True
        MediaP.ShowPositionControls = True
        MediaP.ShowStatusBar = True
        MediaP.ShowTracker = True
        mnuViewMin.Checked = False
        mnuViewC.Checked = False
    Else
        mnuViewC_Click
    End If
    FormResize
    CheckMenu
End Sub

Sub CheckMenu()
'检查View菜单栏的状态
    If MediaP.ShowAudioControls Then
        mnuViewBarAudio.Checked = True
    Else
        mnuViewBarAudio.Checked = False
    End If
    
    If MediaP.ShowCaptioning Then
        mnuViewBarCaptioning.Checked = True
    Else
        mnuViewBarCaptioning.Checked = False
    End If
    
    If MediaP.ShowDisplay Then
        mnuViewBarDisplay.Checked = True
    Else
        mnuViewBarDisplay.Checked = False
    End If
    
    If MediaP.ShowGotoBar Then
        mnuViewBarGoto.Checked = True
    Else
        mnuViewBarGoto.Checked = False
    End If
    
    If MediaP.ShowPositionControls Then
        mnuViewBarPosition.Checked = True
    Else
        mnuViewBarPosition.Checked = False
    End If
    
    If MediaP.ShowStatusBar Then
        mnuViewBarStatus.Checked = True
    Else
        mnuViewBarStatus.Checked = False
    End If
    
    If MediaP.ShowTracker Then
        mnuViewBarTracker.Checked = True
    Else
        mnuViewBarTracker.Checked = False
    End If
    
    If MediaP.ShowControls Then
        mnuViewBarControls.Checked = True
    Else
        mnuViewBarControls.Checked = False
    End If
End Sub

Sub ShowScreen(ByVal intSize As Integer)
'检查显示图像的大小的菜单栏状态
    MediaP.AllowChangeDisplaySize = True
    MediaP.DisplaySize = intSize
    FormResize
    
    '设置Checked值
    mnuViewsfSame.Checked = False
    mnuViewsfHalf.Checked = False
    mnuViewsfTwo.Checked = False
    mnuViewsfSix.Checked = False
    mnuViewsfFour.Checked = False
    mnuViewFull.Checked = False
    mnuViewsfTwoOne.Checked = False
    
    
    Select Case intSize
    Case 0
        mnuViewsfSame.Checked = True
    Case 1
        mnuViewsfHalf.Checked = True
    Case 2
        mnuViewsfTwo.Checked = True
    Case 3
        mnuViewFull.Checked = True
    Case 4
    Case 5
        mnuViewsfSix.Checked = True
    Case 6
        mnuViewsfFour.Checked = True
    Case 7
        mnuViewsfTwoOne.Checked = True
    End Select
    
End Sub

Private Sub mnuViewsfFour_Click()
'屏幕的1/4显示
    mnuViewsfFour.Checked = Not mnuViewsfFour.Checked
    If mnuViewsfFour.Checked Then
        ShowScreen (6)
    Else
        mnuViewsfSame_Click
    End If

End Sub

Private Sub mnuViewsfHalf_Click()
'屏幕的1/2显示
    mnuViewsfHalf.Checked = Not mnuViewsfHalf.Checked
    If mnuViewsfHalf.Checked Then
        ShowScreen (1)
    Else
        mnuViewsfSame_Click
    End If

End Sub

Private Sub mnuViewsfSame_Click()
'原始大小显示
    mnuViewsfSame.Checked = Not mnuViewsfSame.Checked
    If mnuViewsfSame.Checked Then
        ShowScreen (0)
    Else
        ShowScreen (3)
    End If

End Sub

Private Sub mnuViewsfSix_Click()
'屏幕的1/16显示
    mnuViewsfSix.Checked = Not mnuViewsfSix.Checked
    If mnuViewsfSix.Checked Then
        ShowScreen (5)
    Else
        mnuViewsfSame_Click
    End If

End Sub

Private Sub mnuViewsfTwo_Click()
'原始大小的2倍显示
    mnuViewsfTwo.Checked = Not mnuViewsfTwo.Checked
    If mnuViewsfTwo.Checked Then
        ShowScreen (2)
    Else
        mnuViewsfSame_Click
    End If

End Sub

Private Sub mnuViewsfTwoOne_Click()
'屏幕的1/2显示
    mnuViewsfTwoOne.Checked = Not mnuViewsfTwoOne.Checked
    If mnuViewsfTwoOne.Checked Then
        ShowScreen (7)
    Else
        mnuViewsfSame_Click
    End If

End Sub

Private Sub mnuViewStat_Click()
'统计信息对话框显示
    MediaP.ShowDialog mpShowDialogStatistics
End Sub