Page 1 sur 1
Beep
Publié:
05 Nov 2007 à 17:39par Michael DELIQUE
- Code : Tout sélectionner
Public Sub Beep_API
'permet de faire un bip sur le speaker du pc
%REM
'variableAPI pour la fonction Beep_API
Declare Function NEMBeep Lib "nnotesws" () As Integer
%END REM
On Error Goto ErreurHandle
Call NEMBeep
Exit Sub
ErreurHandle:
Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
Exit Sub
End Sub