A voir également:
- Vb6 modulo
- Vb6 module - Meilleures réponses
- Vb6 mod - Meilleures réponses
- Le Modulo en VB6 ✓ - Forum - Visual Basic 6
- Maths : modulo ✓ - Forum - Visual Basic
- Fonction modulo en VBA - Forum - Visual Basic
- Vb6 global - Conseils pratiques - Visual Basic / VB.NET
- Vb6 listbox ✓ - Forum - Visual Basic 6
4 réponses
cs_rt15
- Messages postés
- 3874
- Date d'inscription
- mardi 8 mars 2005
- Statut
- Modérateur
- Dernière intervention
- 7 novembre 2014
Bonjour,
Pourquoi ne pas faire :
Public Function Len_(ByVal vsInput As String) As Long
Len_ = Len(vsInput)
End Function
Sinon, pour que le code précédent marche, je crois qu'il faudrait faire ça :
Public intLongueur As Integer
Public Function Len_(ByVal vsInput As String) As String
intLongueur = Len(vsInput)
End Function
La portée (L'endroit (juste dans la routine, partout dans 'appli...) ou
la variable est définie) n'est pas seulement définie par Dim ou Public,
mais aussi par l'emplacement de la déclaration.
Une public hors routine sera visible dans toute l'appli.
Une dim hors routine sera visible dasn toutes les routines du modules.
Une public dans une routine serat... illégale !
Une dim dans une routine ne sera vu que dans la routine elle même.
Pourquoi ne pas faire :
Public Function Len_(ByVal vsInput As String) As Long
Len_ = Len(vsInput)
End Function
Sinon, pour que le code précédent marche, je crois qu'il faudrait faire ça :
Public intLongueur As Integer
Public Function Len_(ByVal vsInput As String) As String
intLongueur = Len(vsInput)
End Function
La portée (L'endroit (juste dans la routine, partout dans 'appli...) ou
la variable est définie) n'est pas seulement définie par Dim ou Public,
mais aussi par l'emplacement de la déclaration.
Une public hors routine sera visible dans toute l'appli.
Une dim hors routine sera visible dasn toutes les routines du modules.
Une public dans une routine serat... illégale !
Une dim dans une routine ne sera vu que dans la routine elle même.
cs_franckydeluka
- Messages postés
- 228
- Date d'inscription
- mardi 5 avril 2005
- Statut
- Membre
- Dernière intervention
- 4 janvier 2008
Pour déclarer une variable dans un module que tu puisses ensuite retrouver dans tout ton projet il faut faire :
(Il ne faut pas la mettre dans une sub ou une fonction car dans ce cas-là sa portée ne sera que de la sub ou de la fonction)
Global nomVariable As Integer
++
Deluka.
(Il ne faut pas la mettre dans une sub ou une fonction car dans ce cas-là sa portée ne sera que de la sub ou de la fonction)
Global nomVariable As Integer
++
Deluka.
cs_MagDix
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Statut
- Membre
- Dernière intervention
- 6 octobre 2012
ok merci à vous deux.....
Pour la variable ca va... mais j'ai un problème pour appeler ma fonction qui est dans le Module...
J'ai dans ma From ce code...
If Module.intLongueur = 32 Then
Count = Count + 1
If Count = 1 Then
Len_ ..........
End If
End If
Et ma fonction dans le Module
Public Function Len_(ByVal vsInput As String) As String
intLongueur = Len(vsInput)
End Function
Ici ca me dit que
Erreur de compilation: Cet argument n'est pas facultatif...
Pourquoi ca me fait ca j'ai un problème qui est lié au Module ou bien quelque chose d'autre...
J'ai même essay le Call afin d'apaler la fonction et bien ca fonctionne pas...
J'ai essayé de nommé ma fonction
Module.Len_
Touhours pareil il ne reconnaît pas le Len_
Je suis perdu....
Aider moi....
Pour la variable ca va... mais j'ai un problème pour appeler ma fonction qui est dans le Module...
J'ai dans ma From ce code...
If Module.intLongueur = 32 Then
Count = Count + 1
If Count = 1 Then
Len_ ..........
End If
End If
Et ma fonction dans le Module
Public Function Len_(ByVal vsInput As String) As String
intLongueur = Len(vsInput)
End Function
Ici ca me dit que
Erreur de compilation: Cet argument n'est pas facultatif...
Pourquoi ca me fait ca j'ai un problème qui est lié au Module ou bien quelque chose d'autre...
J'ai même essay le Call afin d'apaler la fonction et bien ca fonctionne pas...
J'ai essayé de nommé ma fonction
Module.Len_
Touhours pareil il ne reconnaît pas le Len_
Je suis perdu....
Aider moi....
cs_rt15
- Messages postés
- 3874
- Date d'inscription
- mardi 8 mars 2005
- Statut
- Modérateur
- Dernière intervention
- 7 novembre 2014
Bin tu es vraiment débutant de chez débutant toi.
M'enfin, qui ne l'a pas été...
Vala un lien vers des cours.
Le problème, c'est que ta fonction à besoin que tu lui passe un argument : tu l'a définie comme ayant besoin d'une chaîne de caractère.
dim MaChaine As String
...
If Module.intLongueur(MaChaine) = 32 Then
Count = Count + 1
If Count = 1 Then
Len_ ..........
End If
End If
M'enfin, qui ne l'a pas été...
Vala un lien vers des cours.
Le problème, c'est que ta fonction à besoin que tu lui passe un argument : tu l'a définie comme ayant besoin d'une chaîne de caractère.
dim MaChaine As String
...
If Module.intLongueur(MaChaine) = 32 Then
Count = Count + 1
If Count = 1 Then
Len_ ..........
End If
End If