vbnet播放音频文件 vbnet读取文件内容

如何在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

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

相关问答

Q1: vb.net中如何播放声音，是要什么控件嘛？

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

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

Q2: vb.net 中 如何实现 播放mp3文件

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

MediaPlayer。使用方法：

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

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

Windows

Media

Player，

勾选，确定

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

代码：

WindowsMediaPlayer1.URL

=

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

WindowsMediaPlayer1.Ctlcontrols.play

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

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

Q3: 我用二进制读取了声音文件，VB或VB.net如何播放二进制声音数据，请高手赐教！

不明白你为什么要二进制读取声音文件，VB可以直接调用API播放声音文件，不需要你二进制来读取声音文件的。

Private

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)

'strFileName 要播放的文件名(带路径)

'playCount 播放的次数

'JianGe 多次播放时,每次的时间间隔

If Len(Dir(strFileName)) = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName, 16 + 1

Sleep JianGe

Call PlayWavFile(strFileName, PlayCount - 1, JianGe)

End Sub

Private Sub Form_Click()

PlayWavFile "C:\aaa.wav", 1, 1000 '参数：播放文件，播放次数，播放间隔

End Sub

Q4: VB.NET如何调用并播放项目资源内的WAV文件。

代码是没有错的，但是其中关键是声音文件资源定义字串必须使用根命名空间，不能用程序集名称；还有就是声音文件必须选属性为嵌入资源。

My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)

Q5: VB.net 如何同时播放多个资源文件内的wav

用API mciSendString可以同时播放多个声音，需要提供路径。

资源文件很麻烦，要用反射读取出来，再用IO写到磁盘路径。

你是做游戏把？软糖建议是不要使用资源文件，而使用本地文件。

用个BGM文件夹保存背景音乐，用SE文件夹保存音效（学习RPG Maker的做法）

API代码奉上，具体实现模块字数超过最大值，请下载附件

Imports System.Text

    ''' summary

    ''' 可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音频文件,*不支持OGG

    ''' /summary

    Public Class 音频设备

    '声明API函数: mciSendString

    System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")

    Public Shared Function mciSendString(strCommand As String,

                                              strReturn As StringBuilder,

                                              iReturnLength As Integer,

                                              hwndCallback As Integer) As Integer

    End Function

    '声明API函数: mciGetErrorString

    System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")

        Public Shared Function mciGetErrorString(errCode As Integer,

                                                 errMsg As StringBuilder,

                                                 buflen As Integer) As Integer

调用方法

Public Class Form1

    Dim 音频设备 As New 音频设备

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim 路径 = "F:\音乐文件名.mp3"

        音频设备.打开("自定义名称1", 路径)

        音频设备.播放("自定义名称1")

        '音频设备.暂停("自定义名称1")

        '音频设备.继续("自定义名称1")

        '音频设备.关闭("自定义名称1")

    End Sub

End Class

如满意，请采纳，还有不懂的请追问，谢谢。

关于vbnet播放音频文件和vbnet读取文件内容的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。