189 8069 5689

vb点虐 加入音频播放 vb怎么放音乐

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

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

创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的南靖网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!

MediaPlayer。使用方法:

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

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

Windows

Media

Player,

勾选,确定

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

代码:

WindowsMediaPlayer1.URL

=

"mp3文件路径,支则兄持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

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

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

VB点虐 如何加载音效?

方法一:调用系统DLL(这个有点不完善,也就是播放声音时窗体无法控制,效果相当于Enabled=true,但音频播放完毕后就没事了)

Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" 渣瞎(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

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

Dim SoundFile As String, Result As Long

SoundFile = "D:\KuGou\Pianoboy - 如握空第105天.wav" '此处为路径

Result = sndPlaySound(SoundFile, 0)

End Sub

方法二:使用WindowsMediaPlayer(WindowsMediaPlayer1的可见为False)

先添加一个windowsmediaplayer控件(工具箱里没有,需要手动添加)

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

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL = "D:\KuGou\Pianoboy - 第105天.mp3"

End Sub

上面的都是点击button1(按钮1)后播放声音,若是鼠标移动到某控件上发出声皮漏音的话改一下触发事件就OK了。

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点虐 加入音频播放 vb怎么放音乐
转载注明:http://cdxtjz.cn/article/ddpjhde.html

其他资讯