|
Public Declare Function MessageBeep Lib "user32" _
(ByVal wType As Long) As Long 'oppure Declare Function Beep Lib "kernel32" _ Alias "Beep" As Long ByVal dwFreq As Long _ ByVal dwDuration As Long 'Specificare la frequenza in hertz del suono 'Questo parametro va regolato in un range 37 32,767 (0x25 - 0x7FFF). Public Sub BeepSpeaker() 'wType should be 0xFFFFFFFF for a speaker beep 'and since -1& = 0xFFFFFFFF (signed longs),use -1& MessageBeep -1& 'oppure utilizzare la funzione beep specificando 'frequenza e durata del segnale 'bep -1 End Sub The Beep API call doesn't work under Win95/98, it just plays the default system sound (works under NT though), this will make the speaker beep under Win95/98, |