VB6.0 Comment connaitre nom de procédure/function en exécution?

Question

Bonjour &#224; tous.



Je d&#233;veloppe une appli sous VB 6.0 dans laquelle j'ai utilis&#233; des
fichiers .INI pour param&#233;trer mes controls (NB controls, couleurs,
leurs animation, etc...)



Donc chaque fois que je veux param&#233;trer  j'utilise  ma fonction suivante :

Public Function LitFichierIni(Section As String, cle As String, ByVal FICHIER As String, _

   Optional Valeur As String = "", Optional Sender As String, Optional TypeData As String) As String

Dim strReturn As String

Dim FichierLog As String

strReturn = String(255, 0)

GetPrivateProfileString Section, cle, Valeur, strReturn, Len(strReturn), FICHIER

  LitFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

  If Not (LitFichierIni > "") And (InStr(1, cle, "F") = 0) Then

    'MsgBox "Erreur Param&#233;trage Dans :" & FICHIER
& Chr(13) & " Section : " & Section & " ou cl&#233; : "
& cle & " Non trouv&#233;e!"

    FichierLog = Chemin & "LOG/PARAMETRAGE.LOG"

    Open FichierLog For Append As #1

    Print #1, Now

    If Not IsMissing(Sender) Then Print #1, "Element appelant :"; Sender

    Print #1, "Erreur Param&#233;trage Dans :"; FICHIER

    Print #1, " Section : "; Section, " ou cl&#233; : "; cle, " Non trouv&#233;e!"

    Close #1

  End If

  If Not IsMissing(TypeData) And Not (LitFichierIni > "") Then

    Select Case TypeData

    Case "Integer"

      LitFichierIni = "0"

    Case "String"

      LitFichierIni = "?????"

    End Select

  End If

End Function



Un exemple d'appel de ma fonction :

    ctl.X1 = LitFichierIni(ctl.name, "LEFT" & SIndex, FICHIER, , "Page_Synoptique/Position1", "Integer")



Voila mon soucis:

Lorsque j'appelle ma fonction et que le param&#232;trage est mal fait,
j'envoi l'erreur dans un fichier log (FichierLog). Actuellement, dans
mon param&#233;tre "Sender", j'inscris texto, l'endroit ou &#224; &#233;t&#233; r&#233;alis&#233;
l'appel de la fonction pour retrouver facilement par la suite.



Question : 

  Existe-t-il une methode permettant d'inscrire dans une string le
nom de la proc&#233;dure ou fonction dans laquelle on se trouve pendant
l'&#233;x&#233;cution  ?

un truc du genre : ME.sub.name



Si quelqun a une id&#233;e, merci d'avance!






C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

andrieuremi · Answer

Ce que je te propose, c'est de d&#233;clarer une constante SubName avec la valeur du nom de la proc&#233;dure ou fonction et ce dans chaque sous-programme. Si tu regarde bien c'est juste 1 ligne de code &#224; rajouter :

const SubName="Nomfonction/proc"

Tu peux y acc&#233;der par la suite avec cette constante SubName.

Par contre, pense &#224; renommer cette constante si par la suite tu changes le nom de ta(tes) proc&#233;dure(s) ou fonction(s).

cs_DURANDO · Answer

En effet, c'est une bonne id&#233;e. 

J'avais oubli&#233; une pr&#233;cision, si ma fonction est appel&#233;e plusieurs fois
dans une sub par exemple, je'indique un incr&#233;ment &#224; la suite du nom
dans sender :

   1 ier appel  : LitFichierIni(ctl.name, "LEFT",FICHIER, , subname0, "Integer") 

   2 ieme appel  : LitFichierIni(ctl.name, "LEFT",FICHIER, , subname1, "Integer") 



Suite &#224; ta proposition, je pense que je vais passer une variable byref
qui sera incr&#233;ment&#233;e par ma fonction. Je l'initialiserai en d&#233;but de
"sub".

Ca devrait resembler &#224; ca:

   1 ier appel  : LitFichierIni(ctl.name, "LEFT",FICHIER, , SubName,idx, "Integer") 



Dans ma fonction :

     If Not IsMissing(Sender) Then 

      Print #1, "Element appelant :"; Sender & str(idx)

      Idx = Idx + 1

   End if





Merci.

C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

VB6.0 Comment connaitre nom de procédure/function en exécution?

2 réponses

Discussions similaires