media player 控件说明
发布网友
发布时间：2024-07-03 23:26
共1个回答
热心网友
时间：2024-07-04 13:25
MediaPlayer1.Play 播放
MediaPlayer1.Stop 停止
MediaPlayer1.Pause 暂停
MediaPlayer1.PlayCount 文件播放次数
MediaPlayer1.AutoRewind 是否循环播放
MediaPlayer1.Balance 声道
MediaPlayer1.Volume 音量
MediaPlayer1.Mute 静音
MediaPlayer1.EnableContextMenu 是否允许在控件上点击鼠标右键时弹出快捷菜单
MediaPlayer1.AnimationAtStart 是否在播放前先播放动画
MediaPlayer1.ShowControls 是否显示控件工具栏
MediaPlayer1.ShowAudioControls 是否显示声音控制按钮
MediaPlayer1.ShowDisplay 是否显示数据文件的相关信息
MediaPlayer1.ShowGotoBar 是否显示Goto栏
MediaPlayer1.ShowPositionControls 是否显示位置调节按钮
MediaPlayer1.ShowStatusBar 是否显示状态栏
MediaPlayer1.ShowTracker 是否显示进度条
MediaPlayer1.FastForward 快进
MediaPlayer1.FastReverse 快退
MediaPlayer1.Rate 快进／快退速率
MediaPlayer1.AllowChangeDisplaySize 是否允许自由设置播放图象大小
MediaPlayer1.DisplaySize 设置播放图象大小
1-MpDefaultSize 原始大小
2-MpHalfSize 原始大小的一半
3-MpDoubleSize 原始大小的两倍
4-MpFullScreen 全屏
5-MpOneSixteenthScreen 屏幕大小的1/16
6-MpOneFourthScreen 屏幕大小的1/4
7-MpOneHalfScreen 屏幕大小的1/2
MediaPlayer1.ClickToPlay 是否允许单击播放窗口启动Media Player
'选择播放文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChooseBGM.Click
btnStartPause.Enabled = False
dlgOpenFile.Filter = "MP3 files (*.mp3)|*.mp3|MIDI files (*.mid)|*.mid|All files (*.*)|*.*" '打开文件的类型说明
dlgOpenFile.FilterIndex = 1 '默认状态下显示的文件类型
dlgOpenFile.RestoreDirectory = True
If dlgOpenFile.ShowDialog() = DialogResult.OK Then
strBGMFileName = dlgOpenFile.FileName()
AxBGM.Open(strBGMFileName) '如果选择了正确的文件，则打开此文件
btnStartPause.Enabled = True
End If
End Sub
'播放或暂停音乐
Private Sub btnStartPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartPause.Click
If btnStartPause.Text = "开始播放" Then
AxBGM.Play()
Else
AxBGM.Pause()
End If
End Sub
