- 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
Beep
1 message
• Page 1 sur 1
Beep
par Michael DELIQUE » 05 Nov 2007 à 17:39
Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
-
Michael DELIQUE - Administrateur
- Message(s) : 12183
- Inscrit(e) le : 16 Déc 2004 à 10:36
- Localisation : Paris/Cergy
1 message
• Page 1 sur 1