[DllImport("kernel32.dll", SetLastError=true)]
[return: MarshalAs(UnmanagedType.Bool)]
static extern bool Beep(uint dwFreq, uint dwDuration);
<DllImport("kernel32.dll", SetLastError := True)> _
Private Shared Function Beep(dwFreq As UInteger, dwDuration As UInteger) As Boolean
End Function
Declare Function Lib "kernel32.dll" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Sub Wait Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Integer)
dwFreq
Windows NT:
Specifies the frequency, in hertz, of the sound. This parameter must be in the range 37 through 32767 (0x25 through 0x7FFF).
Windows 95:
The parameter is ignored.
dwDuration
Windows NT:
Specifies the duration, in milliseconds, of the sound.
Windows 95:
The parameter is ignored.
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Unlike MessageBeep, this function is synchronous. (It doesn’t return control to its caller until the sound finishes.)
Please add some sample code!
The following sample plays the PC speaker in a series of ascending frequencies:
using System;
using System.Runtime.InteropServices;
class BeepSample
{
[DllImport("kernel32.dll", SetLastError=true)]
static extern bool Beep(uint dwFreq, uint dwDuration);
static void Main()
{
Console.WriteLine("Testing PC speaker...");
for (uint i = 100; i <= 20000; i++)
{
Beep(i, 5);
}
Console.WriteLine("Testing complete.");
}
}
Added by David Carachi
System.Console.Beep
This function does nothing when imported into a VB6 application. It does however work properly when called directly from a C++ application compiled with MSVC6.
Added by Barny Short
-VB.NET 10 addition by: Shawn LaRoche