Procedure Sub ou fonction non définie...

Signaler
Messages postés
8
Date d'inscription
jeudi 1 juillet 2004
Statut
Membre
Dernière intervention
26 janvier 2006
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Bonjour,

Je récupere un vieux projet VB4 Qui refusse de compilé : erreur cité dans le sujet...
Il bute sur un bout de code :

''@B ProfileStart
Sub ProfileStart(msStart As Long)
#If afdebug Then
msStart = timeGetTime()
#End If
End Sub
''@E ProfileStart

Effectivement... cette fonction n'existe pas dasn le projet...il doit me manquer une référence à un API... ?
Vous connaissez ca ?

Merci d'avance
Mat

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
Non, ca me dit rien, et pourant j'ai travaillé sous VB 4 pendant plus d'un an !

Niveau API, je pense qu'il existe un équivalent : GetTickCount qui permet de connaître le nombre de milliseconde écoulé depuis le démarrage de Windows, soit la même chose que décrit dans la MSDN pour cette fonction.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
Messages postés
8
Date d'inscription
jeudi 1 juillet 2004
Statut
Membre
Dernière intervention
26 janvier 2006

Disons que je voudrais le moins possible toucher au projet qui doit mourir d'ici qlq mois... simplement réussir à rétablir son environnement pour pouvoir le recompiler...

J'ai memem pas l'aide VB4 d'installée... C'est bizarre ces "#If"... c'est des etapes de précompilation ?
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
Ben il te suffit juste de remplacer les timeGetTime par des GetTickCount, et rajouter la déclaration de cette api dans un module en global à tout le projet, et le tour est joué...
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer