A voir également:
- HELLLLLLPP EN VB6
- Vb6 - Télécharger - Divers Utilitaires
- Vb6 portable - Forum VB / VBA
- Vb6 freefile - Forum VB / VBA
- Vb6 windows 10 - Forum VB / VBA
- Atan2 en VB6 - Forum VB / VBA
4 réponses
Utilisateur anonyme
16 août 2005 à 23:07
16 août 2005 à 23:07
Bonjour,
Il y a surement plus simple, mais voici une solution :
Déclarez un Type dans un module :
pour la suite elle peut-être n'importe-ou dans le projet.
Lupin
Il y a surement plus simple, mais voici une solution :
Déclarez un Type dans un module :
Type Boite
objTableau(10) As String
End Type
'
pour la suite elle peut-être n'importe-ou dans le projet.
Sub Principal()
Dim Bte As Boite
Dim Flag As Boolean
Bte.objTableau(1) = "Arsene"
MsgBox Bte.objTableau(1)
Flag = Transfert(Bte)
MsgBox Bte.objTableau(1)
End Sub
'
Private Function Transfert(ByRef objBte As Boite) As Boolean
Transfert = False
objBte.objTableau(1) = "Lupin"
Transfert = True
End Function
Lupin
Utilisateur anonyme
17 août 2005 à 12:35
17 août 2005 à 12:35
re:
et comme cela aussi ça fonctionne !
Lupin
et comme cela aussi ça fonctionne !
Sub Principal()
Dim UnTab(10) As String
UnTab(1) = "Sherlock"
MsgBox UnTab(1)
Flag = Deplace(UnTab())
MsgBox UnTab(1)
End Sub
'
Function Deplace(ByRef ceTab() As String) As Boolean
Deplace = False
ceTab(1) = "Holmes"
Deplace = True
End Function
Lupin
en fait en cherchant bien j'ai trouver un moyen ,dans un module,je crée mon type est mon tableaux,que je declare en PUBLIC dans les options explicite est de la je sais acceder directement a ce tableau de n'importe quelle endroit,que ce soit dans un module ou dans le code generale !!!!,encore merci
