vb.net按钮加入声音 vb中如何设置按钮的触发条件

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中如何播放声音，是要什么控件嘛？

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

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

vb.net的，按键连续触发事件，比如，按着键不放，音量增大。

1.定义变量记录键是否被按下，按下的累计时间

Dim 按下A键  As Boolean

Dim 按下A键时间 As Integer

2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)

在KeyDown事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = True

在KeyUp事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = False

3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启

在Tick事件中添加如下代码：

If 按下A键 = True

按下A键时间+=1

Call 音量设置(按下A键时间 * 10)

End If

PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000

vb中 点击按钮 可以播放音频

一、直接内存播放，要求声音文件要相当小，作为按键音之类使用。需要将音乐文件做成res资源文件：

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

Private Sub Command2_Click()

Dim B() As Byte

B = LoadResData(101, "CUSTOM")

sndPlaySound B(0), H4 '播放内存里的声音，H8 ' 循环播放，H1 ' 异步播放

End Sub

资源文件制作方法：

外接程序-外接程序管理器-找到资源编辑器-勾选“在启动中加载”“加载/卸载”-确定

工具-资源编辑器-添加自定义资源（在资源编辑器工具栏上，鼠标移上去会提示）-重复，把所有音乐文件添加进去-保存

二、

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

Private Sub Form_load()

Dim SoundFile As String, Result As Long

SoundFile = "D:\Backup\我的文档\FFOutput\两小无猜.wav" '此处为路径

Result = sndPlaySound(SoundFile, 1)

End Sub

以上方法都只能播放wav格式的文件，你需要将文件转换为wav格式。

三、

下面的办法允许播放更多格式，但是你的程序会因此而变大好多：

用控件播放音乐文件

只需要将WindowsMediaPlayer1.URL赋相应的值即可。

例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。

Private Sub Form_Load()

WindowsMediaPlayer1.URL = VB.App.Path "\music.mp3"

End Sub

其中加载WindowsMediaPlayer 控件的方法：

“工程”“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了，像用一般控件一样画一个。

以上所有方法vb6.0 windowsxp下测试通过