参考代码如下
Private Sub File1_Click()WindowsMediaPlayer1.url = App.Path + "\" + File1.List(File1.ListIndex)
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Form_Load()
File1.Path = App.Path
End Sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.url = App.Path + "\1.mp3"
WindowsMediaPlayer1.Controls.play
'WindowsMediaPlayer1.controls.pause '暂停
'Controls.currentPosition = 10 '设置当前播放未知
End Sub
VB 中WindowsMediaPlaye控件
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息 currentMedia.name:string; 同 currentMedia.getItemInfo("Title")currentPlaylist.count:integer; 当前播放列表所包含媒体数 currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia 至于放大,可以先获得播放...
请教VB高手关于WindowsMediaPlayer控件
1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。3、将Form1的Caption属性更改为“小叮当的媒体播...
vB中的Windows Media Player控件
Private Sub File1_Click() WindowsMediaPlayer1.url = App.Path + "\\" + File1.List(File1.ListIndex) WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Form_Load() File1.Path = App.PathEnd SubPrivate Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) W...
如何通过代码在VB或VBA中添加WindowsMediaPlayer控件
打开VB，在左侧的工具箱下面的常规选项卡点击右键，选择“选择项”，稍等片刻，选择“COM组件”，选择WINDOWS MEDIA PLAYER即可
VB中的Windows Media Player控件,如何播放本地音乐
1、建立一个空窗体。2、加入WindowsMediaPlayer控件（也可以完全由代码生成）,更名为Player 3、加入两个命令按钮：cmdPlay,cmdStop 4、sub cmdPlay_Clicked：With Player .uiMode = "none" .URL = "D:\/MUSIC\/雨人.wma" .Controls.PlayEnd With5、sub cmdStop_Clicked：Player.Controls.Stop ...
vb 中怎么获取WindowsMediaPlayer控件播放视频的当前播放时间(进度)_百...
WindowsMediaPlayer.controls.currentPositionString string类型，显示当前进度，字符串格式。如“00:23”label1.caption=WindowsMediaPlayer.controls.currentPositionString 不过要把这个代码放到timer控件里才能实时显示时间 要显示毫秒的用这个，写到Timer里面，但是Timer的Interval属性值要小一点，不然没什么效果 P...
【高分】VB中的Windowsmediaplayer控件,如何实现自动播放下一个视频文件...
WindowsMediaPlayer1.currentPlaylist = sPlaylist For i = 0 To n - 1 Set sMedia = WindowsMediaPlayer1.mediaCollection.Add(p & filenames(i)) '将文件加入到播放列表中 WindowsMediaPlayer1.currentPlaylist.insertItem (WindowsMediaPlayer1.currentPlaylist.Count), sMedia '添加播放列表项 Nex...
VB程序上的windows media player控件设置顺序播放时关于timer的问题
Timer就是定时器，它在设定的时间间隔（比如1秒钟）会自动触发，这样当它在运行的时候检测到windows media player控件处在停止播放的状态，就会自动播放下一曲，从而实现顺序连接播放的功能。但是windows media player控件本身是支持播放列表的，你把要播放的歌曲都放到播放列表中，就可实现连续播放的目的，不...
vb6 windows media player控件使用方法
1.如何加载WindowsMediaPlayer，控件：在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件 只需要将WindowsMediaPlayer1.URL赋...
vb windows mediaplayer的具体使用方法
首先要加载控件，选择“工程”→“部件”→勾选“windows media player”就可以在工具箱中看见这个控件。以下介绍windowsmediaplayer的方法和属性 windowsmediaplayer1.url=“音乐文件地址”'这个是选定一个音乐文件用的 windowsmediaplayer1.controls.play '在url已经设置好的情况下，播放当前选择的文件 windo...
