VB+WMP

URL:string 可以指定媒体位置 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.duration Double 总长度 currentMedia.durationString 时间格式的字符串 "4:34" [settings] 可以通过WindowsMediaPlayer.settings对播放器进行设置,包括音量和声道等。 settings.volume:integer 音量 (0-100) settings.balance:integer 声道,通过它应该可以进行立体声、左声道、右声道的控制。但对应的取值尚不清楚。

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...