d'accord avec Renfield. On peut s'en servir pour extraire des enregistrement sur une requête de BDD.
J'utilise aussi des tableaux de "type utilisateur"..
Mais pour ma part je préfère rendre le tableau lui même.
j'avoue ne pas trop comprendre la chose...
un simple How-To sur comment renvoyer un tableau ?
nettoyons un peu le code...
completement contre-performant de faire ton Redim Preserve DANS la boucle.
alloue tes 10 Items AVANT la boucle, une fois pour toutes...
De plus, dans ton tableau, tu perds la case d'index 0 que tu ne remplis pas dans ta boucle For i = 1 To 10
Public Function Tableau_Procedure() As String()
Dim i As Long
Dim xsRet(9) As String
'# A voir si l'on a un nombre fixe d'element ou non...
'Dim xsRet() As String
'ReDim Tableau_Procedure(9)
For i = 0 To 9
xsRet(i) = "Item " & i
Next i
Tableau_Procedure = xsRet
End Function
'Dans un formulaire :
Private Sub Command1_Click()
Dim i As Long
Dim Tableau_Form() As String
Tableau_Form = Module1.Tableau_Procedure
For i = 0 To UBound(Tableau_Form)
List1.AddItem Tableau_Form(i)
Next i
End Sub
Personellement, je prefere ce genre de choses:
Public Function RemplirTableau(ByRef vxsRet() As String) As Long
Dim i As Long
'# A voir si l'on a un nombre fixe d'element ou non...
ReDim vxsRet(9)
For i = 0 To 9
vxsRet(i) = "Item " & i
Next i
'# Renvoie le nombre d'element du tableau
RemplirTableau = 10
End Function
'Dans un formulaire :
Private Sub Command1_Click()
Dim i As Long
Dim xsItems() As String
For i = 0 To RemplirTableau(xsItems) - 1
List1.AddItem xsItems(i)
Next i
End Sub
3 sept. 2010 à 13:24
d'accord avec Renfield. On peut s'en servir pour extraire des enregistrement sur une requête de BDD.
J'utilise aussi des tableaux de "type utilisateur"..
Mais pour ma part je préfère rendre le tableau lui même.
3 sept. 2010 à 10:54
2 sept. 2010 à 11:55
un simple How-To sur comment renvoyer un tableau ?
nettoyons un peu le code...
completement contre-performant de faire ton Redim Preserve DANS la boucle.
alloue tes 10 Items AVANT la boucle, une fois pour toutes...
De plus, dans ton tableau, tu perds la case d'index 0 que tu ne remplis pas dans ta boucle For i = 1 To 10
Public Function Tableau_Procedure() As String()
Dim i As Long
Dim xsRet(9) As String
'# A voir si l'on a un nombre fixe d'element ou non...
'Dim xsRet() As String
'ReDim Tableau_Procedure(9)
For i = 0 To 9
xsRet(i) = "Item " & i
Next i
Tableau_Procedure = xsRet
End Function
'Dans un formulaire :
Private Sub Command1_Click()
Dim i As Long
Dim Tableau_Form() As String
Tableau_Form = Module1.Tableau_Procedure
For i = 0 To UBound(Tableau_Form)
List1.AddItem Tableau_Form(i)
Next i
End Sub
Personellement, je prefere ce genre de choses:
Public Function RemplirTableau(ByRef vxsRet() As String) As Long
Dim i As Long
'# A voir si l'on a un nombre fixe d'element ou non...
ReDim vxsRet(9)
For i = 0 To 9
vxsRet(i) = "Item " & i
Next i
'# Renvoie le nombre d'element du tableau
RemplirTableau = 10
End Function
'Dans un formulaire :
Private Sub Command1_Click()
Dim i As Long
Dim xsItems() As String
For i = 0 To RemplirTableau(xsItems) - 1
List1.AddItem xsItems(i)
Next i
End Sub