锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net声音选时的信息

声音IT技术

多媒体 音频 声音 音量 大小 如何得到系统实时音量大?。?用VB.net易的win7声音控制软件 ， 驱动程序，设置，文件 ， 注册表四个方面 ， 震动，如看它是否可以恢复全面检查，案件的接口是坏的，这是为配件
首先 ， 请检查声音卡驱动程序，右键单击“vb.net声音选时我的电脑” - 属性 - 硬件 - 设备管理器 - 声音，视频和游戏控制器 - 右击 - ReaItek - 更新或扫描，卸载并重新安装 。（如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音 ， 视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机 。）
调试麦克风：控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - OK -- 后粉红色 - X'静音 ， 推高vb.net声音选时了麦克风插孔前面板 - 选择 - OK，然后打X麦克风静音，然后在右边拉点音频I/O--小扳手 - 选择“禁用前面板插孔检测 - OK - 返回混频器 - 录制 - 小扳手 - 点击麦克风的音量（版本不一致需打X-静音立体声混音）
加强麦克风：右键单击右下角的小喇叭（小喇叭的音量上） - 调整音频属性 - 音量 - 设备音量 - 高级 - （主音??量全推到上） - 选项 - 属性 - 麦克风音量打勾 - 确定返回选项 - 高级控制 - 高级 - 麦克风加强了钩 。
右下角的小喇叭显示：开始---设置---控制面板 - 声音和音频设备 - 音量 - （勾?。┙袅客急攴湃肴挝窭干?。
5 。在网页中，网页声音的操作方法：打开网页 - 工具 - 选项 - 高级 - （勾?。┎シ诺纳?。
6 。游戏耳机出声来：控制面板---高清晰音频配置 - 音频I/O--耳机 - 选举8CH喇叭 。
7 。前部和后部面板插孔调试：控制面板 - 高清晰音频配置 - 音频I/O--模拟 - 后面板插孔图标 - 单击 - 你插入的设备吗？ （需插入的设备，如插耳机） - 当选耳机 - OK，所以
8 。使用QQ聊天的语言时，MIC音量无法调整，请下载补丁 。
9，如声卡驱动安装不上的解决方法：控制面板 - 管理工具 - 服务 - Windows音频 - 启动类型设置为“自动”重新启动它 。
10 。注册表的方法：
开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion \ Run在右侧窗口中新建字符串”系统托盘“点右键（在运行于新的）键（在系统托盘中双击编辑）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系统，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”
开始 - 运行 - 输入regedit打开注册表 ， 然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\ WINDOWSNT \ CURRENTVERSION \ Drivers32创建一个新的字符串值，命名为”wavemapper“值”msacm32 。DRV“ 。重新启动计算机 。
VB.net如何加载音效？方法一：调用系统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.net中如何播放声音，是要什么控件嘛？My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
VB.NET中怎么实现当时间达到设定时间时响铃？？急急急 。。在线等！谢谢了，大神帮忙啊首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示vb.net声音选时你预打开的文件名的路径；一个lbltime用来显示现在的时间；还有一个commondialog,它在工程菜单的部件中vb.net声音选时，vb.net声音选时你可把它加到工具箱中再开始使用;关于对话框你不必自己建，只要从应用程序向导中添加即可;一个timer,它的interval=500 。其次在form1的属性中设置为:startupposition=2－centerscreen和maxbutton=false;label1的属性中设置为：alignment=2－center 。外观大致是如图所示： 下面vb.net声音选时我们开始编程： OptionExplicit DimAlarmTime '申明变量 －－－－－－－－－ PrivateSubCommand1_Click() Calldialog '调用dialog子程序 EndSub －－－－－－－－ PrivateSubCommand2_Click() AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟") IfAlarmTime=“"ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox“你所输入的不是时间格式,请重试!",,“Wrong" Else AlarmTime=CDate(AlarmTime) EndIf '判断输入的是否可转换成time格式 'isdate函数是判断输入的是否可转换成date格式 EndSub －－－－－－－－－－－－－－ PrivateSubCommand3_Click() Calldeng '调用deng子程序 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Click() frmAbout.Show '显示关于对话框 EndSub －－－－－－－－－－－－－ PrivateSubForm_Load() Command3.Enabled=0 AlarmTime=“" '初始化时command3为不可用的 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=“小闹钟" EndIf '如果窗口被最小化,则调用mintime程序 EndSub －－－－－－－－－－－－－－－ PrivateSubmintime() Caption=Format(Time,“longTime") '使用长时间格式来显示时间 EndSub －－－－－－－－－－－－－－－ PrivateSubTimer1_Timer() IflblTime.CaptionCStr(Time)Then lblTime.Caption=Time EndIf '显示时间每秒钟的变化 IfTime=AlarmTimeThen Calldeng EndIf '判断如果现在的时间超过了设定的时间,则调用deng子程序 IfWindowState=1Then IfMinute(CDate(Caption))Minute(Time)Then mintime EndIf EndIf '最小化时显示时间每分钟的变化 EndSub －－－－－－－－－－－－－ Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1“"Then Command3.Enabled=－1 Else ExitSub EndIf '把打开的文件名给于label1 '如果label1不为空时,则command3即可用 EndSub －－－－－－－－－－－－－－ Subdeng() Dimss ss=Shell(Label1.Caption,1) End '启动指定的文件,并且结束小闹钟程序 EndSub 最后在about对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等 。好了，至此vb.net声音选时我们已完成了一个简单的VB程序的编写，希望你能设计出更好的闹钟程序来！
vb.net 控件添加声音建一个窗体，里面添加一个按钮 ， 代码里拷入下面的代码，运行后，单击按钮
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = H1'异步播放
Private Const SND_SYNC = H0'同步播放（缺?。?
Private Sub Command1_Click()
Dim SoundFileAs String, ResultAs Long
SoundFile = "c:\Windows\Media\chord.wav"
Result = sndPlaySound(SoundFile, SND_ASYNC)
End Sub
说明：
要播放不同的声音，例如0-9，你找到相应的wav文件，编程实现就可以了 。
PS:没注意到你是VB.NET,上面的代码是VB6的，生成工程文件，直接用.NET打开并自动转换，也可以使用 。
vb.net 中能否自定义弹出的messagebox声音？vb.net声音选时我知道一种方法vb.net声音选时 ， 就是MessageBoxIcon这个枚举中有好几个图标类型可以选vb.net声音选时，这里就可以调整，不同图标有不同的声音，如果你要让错误信息非要弹出个信息提示音，估计不大容易实现 ， 注意我说是不太容易实现，不是不可能!
例子：MessageBox.Show("谢谢采纳","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) //者是一个信息提示音，图标是一个大写I，你应该懂的!
【关于vb.net声音选时的信息】vb.net声音选时的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于、vb.net声音选时的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：sqlserver登陆密码，sqlserver登录名和密码怎么改

    下一篇：如何建立站群服务器的连接？ 怎么搭建站群服务器链接