Dim i%
Private Sub Command1_Click()
On Error GoTo userCanceled
File1.Path = Text1.Text
If File1.ListCount < 2 Then Exit Sub
i = Int((File1.ListCount - 1) * Rnd)
File1.Selected(i) = True
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
userCanceled:
End Sub
Private Sub Form_Load()
File1.Pattern = "*.AVI;*.MOV;*.DAT;*.MPG;*.WAV;*.MID;*.QT;*.MPEG;*.F4V" & _
";*.RM;*.RMVB;*.WMV;*.FLV;*.3GP;*.MP4;*.MP3;*.ASF;*.WMA;*.MKV;*.BC!"
End Sub
Private Sub WindowsMediaPlayer1_MediaChange(ByVal Item As Object)
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
Select Case NewState
Case Is = wmppsMediaEnded
WindowsMediaPlayer1.Controls.play
i = Int((File1.ListCount - 1) * Rnd)
File1.Selected(i) = True
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
End Select
End Sub本回答被提问者采纳
VB里如何让WindowsMediaPlayer控件播放指定文件夹内音乐文件
WindowsMediaPlayer1.Controls.play i = Int((File1.ListCount - 1) * Rnd)File1.Selected(i) = True WindowsMediaPlayer1.URL = File1.Path & "\\" & File1.FileName End Select End Sub
vb中,如何让Windows Media Player控件播放音乐文件?
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息 currentMedia.name:string; 同 currentMedia.getItemInfo("Title")[currentPlaylist] 当前播放列表属性 currentPlaylist.count:integer; 当前播放列表所包含媒体数 currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息 WindowsMediaPlayer....
VB中的WindowsMediaPlayer控件怎么播放在同一目录上的mp3文件啊?大神...
首先列出目录下的所有MP3文件并赋给某个数组变量，然后再播放。没时间帮你写，只能说一下方法了 Private Sub Command1_Click() Dim file As String file = Dir("C:\\windows\\*.mp3") '改成绝对路径，这个变量换成数组的，利用FOR来赋值，得到正确的文件路径后就再播放就可以了，自己完善一下吧 D...
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 ...
vb6 windows media player控件使用方法
1.如何加载WindowsMediaPlayer，控件：在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件 只需要将WindowsMediaPlayer1.URL赋...
VB里如何让WindowsMediaPlayer控件播放指定文件夹内音乐文件
加一个WindowsMediaPlayer控件，占停，停止都有，加三个按钮，一个开始，一个上一曲，一个下一曲，先找到目标文件夹中所有mp3文件的名字，在存放到一个数组中，再通过改变WMP的URL来实现播放，上一曲，下一曲。。。
VB如何播放资源文件中的WAV和MP3?
这个要用到一个 windows media player 的控件才可以 在菜单栏中的工具选项,选择 添加移除工具 弹出对话框后 选择COM组件,然后点 浏览 在"c:\\windows\\system32\\MSDXM.OCX(可以用搜索搜到他) 然后确定,这时候旁边的工具栏里面就多了一个 windows media player 的控件,将它拖放到窗体中 ...
vb6 windows media player控件使用方法
1.如何加载WindowsMediaPlayer，控件：在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件 只需要将WindowsMediaPlayer1.URL赋...
在VB6中如何用WindowsMediaPlayer控件播放MP3文件?
给控件一个MP3的路径啊！比如在D盘有个叫123的音乐文件！你给他的路径就是"D:\\123.mp3"
怎么设置windows media player自动播放电脑内的音乐
1、右键单击指定的音乐→属性→更改→点击选中windows media player→确定2、右键单击指定的音乐→创建快捷方式→复制此快捷方式 3、“开始”→所有程序→右键单击“启动”→“打开”→粘贴 好了!windows media player可以自动播放电脑内你指定的音乐本回答由网友推荐 举报| 答案纠错 | 评论 1 9 cjz3324 采纳率:79...
