vb点虐 播放mp3 vb播放音乐

VB点虐 如何用WindowsMediaPlayer控件播放Resource目录下的mp3文件

首先列出目录下的所有MP3文件并赋给某个数组变量，然后再播放。没时间帮你写，只能说一下方法了 Private Sub Command1_Click() Dim file As String file = Dir("C:\windows\*.mp3") '改成绝对路径，这个变量换成数组的，利用FOR来赋值，得到正确的文件路径后就再播放就可以了，自己完善一下吧 Do While file "" Print file file = Dir Loop End Sub

我们提供的服务有：网站设计、成都网站制作、微信公众号开发、网站优化、网站认证、丹徒ssl等。为1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的丹徒网站制作公司

vb点虐 中 如何实现 播放mp3文件

在.NET里，没有托管的音乐播放器，用API只能播放WAV格式，对于MP3等形式的音频文件，就要依赖于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上点右键，选择“选择项目(Choose

Items)”，切到COM选项卡，找到

Windows

Media

Player，

勾选，确定

在t工具箱上，把刚才加入的MediaPlayer控件，拖放到窗体上

代码：

WindowsMediaPlayer1.URL

=

"mp3文件路径，支持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止，直接看

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

vb点虐 中如何控制MP3播放

先定义api函数

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub mnu_Music_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_Music.Click

mciSendString("open c:\1.mp3 alias mp3", Nothing, 0, IntPtr.Zero)

mciSendString("Play mp3", Nothing, 0, IntPtr.Zero)

End Sub

上面2行代码就可以播放了，测试通过。

就是没有其它功能，自己加上吧，

如：关闭 mciSendString("close mp3",Nothing,0,intPtr.Zero)

等等

vb点虐 中如何播放声音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的声音文件的路径