HELLLLLLPP EN VB6

Question

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

Utilisateur anonyme · Answer

Bonjour,

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 · Answer

re:

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

blackcrow · Answer

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

blackcrow · Answer

j'avais deja essayer de passer mon tableau par reference, mai il m'afficher toujour un message d'erreur !!!

HELLLLLLPP EN VB6

4 réponses

Discussions similaires

Newsletters