Page 1 sur 1
Simuler Shift F9 pour reconstruire l'index des vues
Publié:
06 Nov 2007 à 09:03par Michael DELIQUE
- Code : Tout sélectionner
Public Sub RebuildIndex_API
'permet de reconstruire les index des vues Lotus notes
%REM
Variable API pour la fonction RebuildIndex_API
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
%END REM
On Error Goto ErreurRebuildIndex_API
keybd_event &h10,0,0,0 ' shift key down
keybd_event &h78,0,0,0 ' F9 key down
keybd_event &h78,0,2,0 ' F9 key up
keybd_event &h10,0,2,0 ' shift key up
Exit Sub
ErreurRebuildIndex_API:
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