Probleme avec ByRef

Salut tout le monde,

J'ai un problem ici avec une fonction que j'essaie de faire.

La fonction est ultra simple et va comme suit :

Public Function Inc (ByRef i As Integer, Optional ByVal x As Integer) As Integer
  If (x < 1)  Then
   i = i + 1
  Else
   i = i + x
  End If
  Inc = i
End Function

et dans mon form load :

Private Sub Form_Load()
    Dim i As Integer
   
    Do While i < 3
        Inc i
    Loop
   
End Sub

Et ca creer une boucle sans fin...

Met comme jutilise ByRef le i de mon form load deverait etre incrementer a chaque appel de la function Inc...


Quelqu'un peut m'aider svp ?

---

  zen69 aka Ortho Le Profett
  [site web]

salut,

mis à part que INC est une fonction alors qu'en procédure simple çà suffit..., ton code est bon.
et pas de boucle sans fin chez moi...

tu es sûr de ne pas avoir un autre code quelquepart... ?

---

Prenez un instant pour répondre à ce sondage svp

idem ça fonctionne nickel.
fais un déboguage pas à pas ...tu verras bien

euh... il n'y a aucun rapport puisque tu n'utilises pas le retour de ta fonction.
çà serait pareil avec inc=-800

Public Sub  Inc( ByRef  iVal  As Integer ,  Optional ByVal iAdd As Integer = 1 )
  iVal = iVal + iAdd
End Sub

ce qui te permet alors aussi de décrémenter
++

---

Prenez un instant pour répondre à ce sondage svp

en fait jai aussi fait une command dec pour pouvoir decrementer avec un seul parametre...

---

  zen69 aka Ortho Le Profett
  [site web]

PCPT t'as ben raison ;)

---

  zen69 aka Ortho Le Profett
  [site web]