锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net音乐文件 vb添加音乐

IT技术文件

求用《VB.NET》获取文件夹下的所有MP3文件名的代码 。Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each FileName As String In IO.Directory.GetFiles("E:\音乐", "*.mp3")
TextBox1.Text = vbNewLineIO.Path.GetFileName(FileName)
Next
End Sub
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.
里面的方法吧 。
vb.net怎么播放音乐文件添加一个 WindowsMediaPlayer 控件 一句代码即可播放音乐 AxWindowsMediaPlayer1.URL = "音乐地址"
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
如满意，请采纳，还有不懂的请追问 ， 谢谢 。
VB.net里面怎么添加音乐给vb.net音乐文件你个 很简单vb.net音乐文件的
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.net音乐文件 vb添加音乐】vb.net音乐文件的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容 ， 更多关于vb添加音乐、vb.net音乐文件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：SAP打印证书，sap会计凭证打印

    下一篇：游戏师父嘲讽动作，游戏 师父