vb点虐 加入音频播放 vb6播放音频文件

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

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

爱民ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

MediaPlayer。使用方法：

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

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

Windows

Media

Player，

勾选，确定

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

代码：

WindowsMediaPlayer1.URL

=

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

WindowsMediaPlayer1.Ctlcontrols.play

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

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

如何在VB.NET中调用MP3播放器

工具栏里选择"添加,删除组件"

选择com组件

选择"Windows Media Player "

然后在界面上加入这个组件

代码

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles Button1.Click

Const DATA_FILE_EXTENSION As String = ".mp3"

Dim dlgFileDialog As New OpenFileDialog

With dlgFileDialog

.Filter = DATA_FILE_EXTENSION _

" files (*" DATA_FILE_EXTENSION "|*" DATA_FILE_EXTENSION

.FilterIndex = 1

.RestoreDirectory = True

If .ShowDialog() = DialogResult.OK Then

'Play the sound file

Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName

End If

End With

End Sub

参考资料中可以看到很详细的步骤

VB点虐 里面怎么添加音乐

给你个 很简单的

Public Class Form1

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

‘ 声明函数 mciexcute 加入库 winmm.all

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call mciExecute("play E:\music\music\单身情歌.wma ")

'在 formload过程中 调用函数 mciexcute 里面 是 文件 路径

End Sub

End Class

文章名称：vb点虐 加入音频播放 vb6播放音频文件
文章地址：http://mswzjz.cn/article/ddgddsg.html