bool = True
WindowsMediaPlayer1.Controls.Stop
End Sub
Private Sub Command4_Click()'增大音量按钮Command4
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command5_Click()'减小音量按钮Command5
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command6_Click()'静音按钮Command6
If WindowsMediaPlayer1.settings.mute Then
WindowsMediaPlayer1.settings.mute = False
Else
WindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Command7_Click()'全屏按钮Command7
On Error Resume Next
WindowsMediaPlayer1.FullScreen = True
End Sub
Private Sub Command8_Click()'退出程序按钮Command8
Unload Me
End Sub
Private Sub WindowsMediaPlayer1_StatusChange()'循环播放实现
On Error Resume Next
If bool = False Then
WindowsMediaPlayer1.Controls.Play
End If
End Sub
具体的属性方法:
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean全屏显示
stretchToFit:boolean非全屏状态时是否伸展到最佳大小
uMode:string播放器的模式,full:有下面的控制条; none:只有播放部份没有控制条
playState:integer当前控件状态,下面是三种基本状态:
3:正在播放
2:暂停
1:已停止
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息:
controls.play;播放
controls.stop;停止
controls.pause;暂停
controls.currentPosition:Double 当前播放进度
controls.currentPositionString:string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.durationDouble 总长度
currentMedia.durationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置,包括音量和声道等 。
settings.volume:integer 音量 (0-100)
settings.balance:integer 声道,通过它应该可以进行立体声、左声道、右声道的控制 。
=================
版本2:
属性/方法名: 说明:
[基本属性]
url:string指定媒体位置 , 本机或网络地址
uiMode:String; 播放器界面模式 , 可为Full, Mini, None, Invisible
playState:integer; 播放状态,1=停止,2=暂停 , 3=播放,6=正在缓冲,9=正在连接,10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度,字符串格式 。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量,0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.duration:double; 媒体总长度
currentMedia.durationString:string; 媒体总长度,字符串格式 。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题 , "Author"=艺术家,"Copyright"=版权信息,"Description"=媒体内容描述,"Duration"=持续时间(秒) , "FileSize"=文件大?。?"FileType"=文件类型,"sourceURL"=原始地址
推荐阅读
- 牙签直播卖货,牙签货是怎么做出来的
- 鸿蒙调整桌面图片大小,鸿蒙系统如何调整桌面图标大小
- 螃蟹游戏网络,螃蟹游戏网络连接失败
- 农村新媒体如何发展品牌,新媒体助力乡村发展
- c语言删除好友的函数 c语言删除文件的函数
- jquery基础动画,jquery动效
- chatgpt回归,ts回归
- vb.net虚拟键盘 vb模拟键盘输入
- 包含织梦js里调用的词条