---- Const SND_MEMORY = &H4
---- Const SND_ALIAS = &H10000
---- Const SND_FILENAME = &H20000
---- Const SND_RESOURCE = &H40004
---- Const SND_ALIAS_ID = &H110000
---- Const SND_ALIAS_START = 0
---- Const SND_LOOP = &H8
---- Const SND_NOSTOP = &H10
---- Const SND_VALID = &H1F
---- Const SND_NOWA99v = &H2000
---- Const SND_VALIDFLAGS = &H17201F
---- Const SND_RESERVED = &HFF000000
---- Const SND_TYPE_MASK = &H170007
---- Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long
---- 3. 在Form1 上 添 加 一 个 文 本 框 控 件， 采 用 缺 省 的 方 法 建 立Text1。 将 它 的Caption 属 性 设 置 为NULL。
---- 4. 在Form1 上 添 加 一 个 命 令 按 钮 控 件， 采 用 缺 省 的 方 法 建 立Command1。 将 它 的Caption 属 性 设 置 为" 使 用sndPlaySound 函 数败*
---- 5. 在Form1 上 添 加 一 个 命 令 按 钮 控 件， 采 用 缺 省 的 方 法 建 立Command2。 将 它 的Caption 属 性 设 置 为" 使 用mciExecute 函 数败*
---- 6. 将 如 下 的 代 码 添 加 到Command1 的 单 击 事 件 中：
Private Sub Command1_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用sndPlaySound 函 数 播 放TADA.WAV 文 件。"
ReturnValue = sndPlaySound("C:\WIN95\MEDIA\TADA.WAV", SND_SYNC)
End Sub
---- 7. 将 如 下 的 代 码 添 加 到Command2 的 单 击 事 件 中：
Private Sub Command2_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用mciExecute 函 数 播 放Canyon.mid 文 件。"
ReturnSoundValue = mciExecute
("play C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
End Sub
---- 通 过 按 下F5 键 来 执 行 样 例 程 序。 单 击" 使 用sndPlaySound 函数" 命 令 按 钮 则 使 用sndPlaySound 函 数 来 播 放C:\WIN95\MEDIA 目 录下 面 的TADA.WAV 声 音 文 件。 单 击" 使 用mciExecute 函 数" 则 使 用mciExecute 函 数 来 播 放C:\WIN95\MEDIA 目 录 下 面 的CANYON.MID 文 件 的10 毫 秒 到100 毫 秒 的 部 分。
2.调用WINDOWS 播放声音的API直接控制！
如何让VB的按钮播放自己指定的声音.不用播放器控键
--- 通 过 按 下F5 键 来 执 行 样 例 程 序。 单 击" 使 用sndPlaySound 函数" 命 令 按 钮 则 使 用sndPlaySound 函 数 来 播 放C:\\WIN95\\MEDIA 目 录下 面 的TADA.WAV 声 音 文 件。 单 击" 使 用mciExecute 函 数" 则 使 用mciExecute 函 数 来 播 放C:\\WIN95...
呃……有问题想问啊,如何让VB独立的播放音乐?不要res的方法……
点vb菜单-外接程序-外接程序管理器,选择资源编辑器,然后把加载行为的前两项勾选,最后点确定即可在工具栏里添加资源编辑器的按钮,独立播放建议采用控件,比如wmp
VB怎么播放声音?不用控件 ,用代码!控件也行,但要能隐藏
添加WindowsMediaPlayer控件 Private Sub Form_Load()WindowsMediaPlayer1.Visible = False WindowsMediaPlayer1.uiMode = "none"WindowsMediaPlayer1.URL = "E:\\music\\吉克隽逸\\吉克隽逸 - 不要怕.mp3"WindowsMediaPlayer1.Controls.play End Sub ...
vb中 点击按钮 可以播放音频
用控件播放音乐文件只需要将WindowsMediaPlayer1.URL赋相应的值即可。例如要在窗体加载时播放music.mp3这个文件,只要这样写代码。Private Sub Form_Load()WindowsMediaPlayer1.URL = VB.App.Path & "\\music.mp3"End Sub其中加载WindowsMediaPlayer 控件的方法:“工程”“部件”,在弹出的菜单中,拉动滚动条找到Windows...
用VB做一个点击按钮播放声音的文件
不用等第一个播放完 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long '下面 这个是代码部分，把它放在按钮的代码中 sndPlaySound "c:\/1.wav", SND_ASYNC '声音代码 ...
怎么在vb按钮里添加声音,声音文件在F:\\KuGou音乐里,帮帮我写一个程序...
模块里加上 Public Declare Function sndPlaySound Lib "winmm" Alias _"sndPlaySoundA" (ByVal lpszSoundName As String, _ByVal uFlags As Long) As Long ' flag uitzetten Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const ...
VB中添加什么控件可播放音乐文件,添加的代码是什么?
有四种方法：第一：如果你仅仅是想播放WAV这样的背景音乐的话，可以使用API函数，不用添加控件，这样可以减少系统资源，方法如下：在通用中声明：Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long)...
求一个VB制作 MP3播放器的代码,不用MP3控件的,我给100分啊!!_百度知...
durationString 时间格式的字符串 "4:34"[settings]可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。settings.volume:integer 音量 （0-100）settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。但对应的取值尚不清楚。做播放器就简单多了 ...
用VB实现发声的几种方法
２多媒体控件在ＶＢ中使用的多媒体ＭＣＩ控件可以管理媒体控制接口 ＭＣＩ 设备上的多媒体文件的录制与播放，这个控件可用命令来控制下列设备：声卡、ＭＩＤＩ序列发生器、ＣＤ－ＲＯＭ驱动器、音频ＣＤ播放器、视盘播放器、视带录制／播放器等等。多媒体控件还可让你播放ＷＡＶ和ＭＩＤ声音文件及...
VB中如何在单击command按钮时播放一小段声音,类似于按键音的。
ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Const SND_ASYNC = &H1 Private Const SND_FILENAME = &H20000 Private Sub Command1_Click()PlaySound "e:\\tmp\\2.wav", 0&, SND_ASYNC + SND_FILENAME MsgBox "听到声音了吗？"End Sub ...
