VB6 Variable d'un module dans un Form [Résolu]
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
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.
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....
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