HELLLLLLPP EN VB6
BLACKCROW
-
blackcrow -
blackcrow -
bonjour a tous,je vient demander un peu d'aide pour creer une application en vb6,je recherche comment passer un tableaux d'agregat(type) ou meme un simple tableaux en parametre dans une fonction qui ce trouve dans un module,j'ai creer mon code generale est y est "accrocher" 2 module contenant 2fonction,j'aimerais pouvoir passer un tableaux ,merci d'avance
BLACKCROW
BLACKCROW
A voir également:
- HELLLLLLPP EN VB6
- Vb6 - Télécharger - Divers Utilitaires
- Split vb6 - Forum VB / VBA
- Vb6 listbox ✓ - Forum VB / VBA
- Vb6 freefile - Forum VB / VBA
- Msflexgrid vb6 - Forum VB / VBA
4 réponses
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
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