VB6 Variable d'un module dans un Form [Résolu]
cs_MagDix
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Statut
- Membre
- Dernière intervention
- 6 octobre 2012
- Messages postés
- 3874
- Date d'inscription
- mardi 8 mars 2005
- Statut
- Modérateur
- Dernière intervention
- 7 novembre 2014
A voir également:
- Vb6 module
- Vb6 form - Meilleures réponses
- Vb6 modulo - Meilleures réponses
- Visual Basic / VB.NET : Vb6 : module de fonctions statistiques de base - CodeS SourceS - Guide
- Addin helper - créez vos propres addin pour vb6 [modules de classe] - Codes sources - Visual Basic / VB.NET (Tutoriels)
- [vb6] portées des variables - Conseils pratiques - Visual Basic / VB.NET
- Module d'Objet Public ✓ - Forum - Visual Basic 6
- Module vb5 -> vb6 - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
4 réponses
Meilleure réponse
- 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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
198 internautes nous ont dit merci ce mois-ci
- Messages postés
- 228
- Date d'inscription
- mardi 5 avril 2005
- Statut
- Membre
- Dernière intervention
- 4 janvier 2008
- 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....
- 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