VB 如何 打开程序播放mp3或wma 背景音乐?
发布网友
发布时间：2022-05-27 12:56
我来回答
共3个回答
热心网友
时间：2023-10-23 22:37
播放资源文件文件中的声音
点击vb菜单-工具-资源编辑器,用鼠标拉宽,倒数第二个按钮,把你的wav文件添加进去,类型名为"WAVE",标识号为"MySound",注意都要带上双引号,然后保存资源文件,例子及代码如下:
'通用声明
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hMole As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC& = &H1
Private Const SND_NODEFAULT& = &H2
Private Const SND_RESOURCE& = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long
'调用
hInst = App.hInstance
sSoundName = "MySound"
iFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT
lRet = PlaySound(sSoundName, hInst, lFlags)
mp3不支持在资源文件中直接播放,需要释放到硬盘里才能播放,不仅只解决了表象,且需要使用对应的另一个api函数,建议找一个格式转换软件转一下,应该费不了多大事
热心网友
时间：2023-10-23 22:38
在 “工程”->"部件"中添加“windows Media player ”
然后放在窗体上
private 苏北 form_load（）
WindowsMediaPlayer1.url="" ' 路径和文件名例如： "d:\歌曲\追梦人.MP3"
热心网友
时间：2023-10-23 22:38
使用wmp控件
url属性设置为 音乐 路径
使用play方法播放追问如何利用资源文件，我想把它嵌入进去
追答资源文件不能直接播放，还是先保存，然后播放的时候释放出来吧。
VB 如何 打开程序播放mp3或wma 背景音乐?
播放资源文件文件中的声音 点击vb菜单-工具-资源编辑器,用鼠标拉宽,倒数第二个按钮,把你的wav文件添加进去,类型名为"WAVE",标识号为"MySound",注意都要带上双引号,然后保存资源文件,例子及代码如下:'通用声明 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _(ByVal lpsz...
在VB中 怎么播放背景mp3 wma 文件
Call mciSendString("open " & FileName & " alias File", ReturnStr, 128, 0) '加载，FileName是音乐路径。Call mciExecute("play File") '播放 FileName两边要有""的,要这样:Call mciSendString("open """ & FileName & """ alias File", ReturnStr, 128, 0)这样就可以了.先用这个好...
[VB6] 如何实现WMA和MP3的播放
--- 该 程 序 通 过VB 的 多 媒 体 控 件MCI32.OCX 可 以 打 开MPEG 压 缩 文 件( 如VCD2.0 版 的.DAT 文 件) 来 实 现 一 个VCD 播 放 器 的 设 计 --- 首 先 必 须 确 保 在 你 的Windows 系 统 中SYSTEM.INI 文 件 关 于[MCI] 中 需 有MPEGVideo 项( 一...
VB中如何播放wma、名片格式音频文件
VB里有一个控件叫Window Media Player 用它就可以播放这些格式的文件了.
VB编写能播放音频的程序。。。100分提供
我用vb编了一套播放器程序,有源代码,要的话发email我 frankkanks@yahoo.com.cn下文为程序的参考资料(详)MCI Command String总览 MCI Command String是多媒体设备的程序接口。通过它,我们可以打开一个多媒体文件,例如mp3,VCD文件,Mpeg4格式的文件等等,并对它进行播放,暂停,关闭等操作。现在小弟有幸给大家介绍一下...
vb 载入声音
OLE1.Action=7 '播放，9停止。 很简单，嵌入模式（缺省）可打包到frx（窗体数据文件）、exe（你要的）、ctx（用户控件数据文件）、ocx（ActiveX控件）等。 运行时自动把文件放到临时文件夹（可被清除垃圾程序删除）。 .wav文件是直接播放，其它文件按关联运行（比如wma、mp3就会调用所关联的播放器，不...
怎样才能在VB中播放视频文件
而WindowsMediaPlayer的默认支持的播放格式为wma、mp3、asf。还有WindowsMediaPlayer1.Controls = play不能用的 吧 这控件都没有Controls这个属性，所以不能用的吧 我直接这样是可以的Private Sub Form_Load()WindowsMediaPlayer1.URL = "E:\music\beyond\Beyond.Live.1991_C.mp3"End Sub ...
VB 关于MP3播放器制作
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图 按钮Open MP3 File是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲...
VB中的Windows Media Player控件,如何播放本地音乐
1、建立一个空窗体。2、加入WindowsMediaPlayer控件（也可以完全由代码生成）,更名为Player 3、加入两个命令按钮：cmdPlay,cmdStop 4、sub cmdPlay_Clicked：With Player .uiMode = "none" .URL = "D:/MUSIC/雨人.wma" .Controls.PlayEnd With5、sub cmdStop_Clicked：Player.Controls.Stop ...
VB制作MP3播放器问题
.Filter = "*.mp3 |*.mp3;*.wma|*.wma".ShowOpen song = .FileName End With If song = "" Then Exit Sub a = Mid(song, InStrRev(song, "\") + 1)ab = song List1.AddItem a End Sub Private Sub Label1_DblClick()Form1.Caption = "Super Mp3 Player & 播放列表" + ab W...
