请教一个在vb.net中关于背景音乐的问题.

我以前做的时候，是监视背景音乐的播放模式状态的，这样来按照不同的要求进行不同的操作！

创新互联建站服务项目包括乌什网站建设、乌什网站制作、乌什网页制作以及乌什网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，乌什网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到乌什省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

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音乐连续播放呢？

找1986年3月3日生的人

谁和我是同年同月同日、出生的

加我QQ183746999

VB后台播放音乐

需要用到多线程。

用vb.net很好搞,而且vb.net的控件vb能调用，所以你说的问题比较简单。

你现在要做的就是用vb.net搞一个控件，做个放音方法，执行后开一个放音乐的线程，然后把这个控件让vb调用。

VB调用api做多线程很复杂,得不偿失

VB中如何播放音乐，最好给个全一点的代码

声明：

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength

As Long, ByVal hwndCallback As Long) As Long

代码：

Dim returnstring As String

FileName As String

returnstring = Space(127)

FileName = "C:\A1.avi"

erg = mciSendString("open " Chr$(34) FileName Chr$(34) " type avivideo alias video", returnstring, 127, 0)

erg = mciSendString("set video time format ms", returnstring, 127, 0)

erg = mciSendString("play video from 0", returnstring, 127, 0)

'记着关闭！

erg = mciSendString("close video", returnstring, 127, 0)

如果声音在资源文件内

假设这个声音文件的关键字为"HAHA",先定义一个API函数:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long

注意：必须把的lpszSoundName类型设成Any，不能按照win32api.txt文件中的定义

Const SND_ASYNC = H1

Const SND_MEMORY = H4

再输入如下代码：

Dim Toms() As Byte

Toms=LoadResData("HAHA","WAVE")

sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC

这样就OK了！

分享名称：vb.net演奏音乐 vb播放背景音乐
文章起源：http://pwwzsj.com/article/doccehe.html