vb.net关闭声音 vbs声音

vb 中如何去掉massagebox的声音

VB中MessageBox和MsgBox 默认是不加声音的，只有你设置了，才会发出声音。

如

'无声音

MessageBox.Show("Hello World", "Windows")

'有声音

MessageBox.Show("Hello World", "Windows", MessageBoxButtons.OK, MessageBoxIcon.Warning)

相关问答

Q1: vb.net声道控制

左右声道控制的原理：

waveOutGetVolume取得的音量值转换成16进制，高位是左声道的值，低位是右声道的值。

’这段代码摘这段代码摘自互联网

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Const WAVE_MAPPER = -1

Public Function SetLR(ByVal L As Long, ByVal R As Long) As Long

Dim mLR As String

mLR = "H" Right("0000" Hex(L), 4) Right("0000" Hex(R), 4)

waveOutSetVolume WAVE_MAPPER, CLng(mLR)

End Function

Public Function GetLR(ByRef L As Long, ByRef R As Long) As Long

Dim LR As Long

waveOutGetVolume WAVE_MAPPER, LR

L = CLng("H" Left(Hex(LR), 4))

R = CLng("H" Right(Hex(LR), 4))

End Function

以上2个自定义的函数可以方便的取得和设置左右声道。

如：

Private Sub Form_Load()

Dim mL As Long, mR As Long

GetLR mL, mR

MsgBox "左" mL "--右" mR

End Sub

Private Sub Command1_Click()

SetLR 65535, 22222

End Sub

可以用一个Slider来进行细致的控制。

下载类库，可以实现左右声道的控制

Q2: 用vb.net实现闹钟提醒程序

一个提醒程序 最典型的就是闹钟程序 网上有不少个性化的提醒程序下载 但是大部分都是以时间为主的闹钟提醒 我们也可以用来打造一个适合自己的提醒程序 比如监控一个某个应用程序的变化然后发出声音提醒自己等等

一个提醒程序 最重要能在符合提醒条件的时候发出声音来提醒使用者 在这里 我们就对具体的提醒条件啰嗦了 只针对如何实现提醒声音的播放进行说明

在的 net组件中 并没有提供播放声音文件的组件 但是我们可以通过使用Com组件来播放声音文件 但是 要注意的事 我们只需要发出提示的声音而已 并不需要像播放器那样播放不同格式的声音文件和繁多的列表 所以我们可以通过API函数来循环播放单个的声音文件

在WindowsAPI函数的有一个PlaySound函数 它用于播放WAV格式的声音文件 我们可以用它来反复播放一个指定的WAV文件来实现提醒功能

首先在中引入API声明

Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer

然后定义几个我们程序中必须用到的dwFlags参数常量

同步调用PlaySound中指定的文件 播放完WAV文件后才返回结果

Const SND_SYNC As Integer = H

异步调用PlaySound中指定的文件 不必等到播放完WAV文件后就直接返回结果 在这里我们可以调用异步方法来播放文件

Const SND_ASYNC As Integer = H

反复播放指定的WAV文件

Const SND_LOOP As Integer = H

在调用的时候hModule参数必须为

需要停止的时候通过调用PlaySound（vbNullString ）来实现现在我们在窗体上放置两个按钮 一个用于开始播放 一个用于停止播放 然后再放置一个TextBox控件 用于指定WAV文件的路径 界面如下图所示

图一 示例界面

完整代码如下

Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer

Const SND_FILENAME As Integer = H

Const SND_ALIAS As Integer = H

Const SND_SYNC As Integer = H

Const SND_ASYNC As Integer = H

Const SND_LOOP As Integer = H

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

PlaySound（TextBox Text SND_LOOP Or SND_ASYNC）

End Sub

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

PlaySound（vbNullString ）

End Sub

运行 在TextBox 中输入有效的WAV文件的路径 然后单击开始 就可以循环播放声音了 单击停止按钮就可以停止播放

lishixinzhi/Article/program/net/201311/12453

Q3: vb.net中的mediaplay控件播放视频有图像无声音

　1． Beep

最简单的一种方法，通过计算机的扬声器发出声响， 声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。

Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默认系统会自动加载。调用很简单，看下面的例子。

Dim I As Integer

For I = 1 To 100 ' Loop 100 times.

Beep() ' Sound a tone.

Next I

2． 用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：

先声明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

3． 调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub

关于vb.net关闭声音和vbs声音的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。