A voir également:
- Fonction qui retourne un tableau en c
- Fonction qui retourne un tableau - Meilleures réponses
- Une fonction qui renvoie un tableau - Forum - C / C++ / C++.NET
- Une fonction qui retourne un tableau ✓ - Forum - Visual Basic 6
- Fonction qui retourne un tableau ✓ - Forum - ASP / ASP.NET
- Fonction qui retourne un tableau ✓ - Forum - C / C++ / C++.NET
- Fonction qui retourne un tableau - Forum - C# / .NET
3 réponses
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
Tableau de classe.... oui, si tu veux,
Private Sub Form_Load()
Dim i As Long
For i = 0 To UBound(MaFonction)
Debug.Print MaFonction(i).Value
Next i
End Sub
Public Function MaFonction() As Variant
Dim xnRet(5) As Class1
Set xnRet(0) New Class1: xnRet(0).Value 12
Set xnRet(1) New Class1: xnRet(1).Value 5
Set xnRet(2) New Class1: xnRet(2).Value 7
Set xnRet(3) New Class1: xnRet(3).Value 6
Set xnRet(4) New Class1: xnRet(4).Value 2
Set xnRet(5) New Class1: xnRet(5).Value 9
MaFonction = xnRet
End Function
mais on preferera utiliser une collection :
Private Sub Form_Load()
Dim oVar1 As Class1
For Each oVar1 In MaFonction
Debug.Print oVar1.Value
Next oVar1
End Sub
Public Function MaFonction() As Collection
Dim oVar1 As Class1
Set MaFonction = New Collection
Set oVar1 = New Class1
oVar1.Value = 12
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 5
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 7
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 6
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 2
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 9
MaFonction.Add oVar1
End Function
Private Sub Form_Load()
Dim i As Long
For i = 0 To UBound(MaFonction)
Debug.Print MaFonction(i).Value
Next i
End Sub
Public Function MaFonction() As Variant
Dim xnRet(5) As Class1
Set xnRet(0) New Class1: xnRet(0).Value 12
Set xnRet(1) New Class1: xnRet(1).Value 5
Set xnRet(2) New Class1: xnRet(2).Value 7
Set xnRet(3) New Class1: xnRet(3).Value 6
Set xnRet(4) New Class1: xnRet(4).Value 2
Set xnRet(5) New Class1: xnRet(5).Value 9
MaFonction = xnRet
End Function
mais on preferera utiliser une collection :
Private Sub Form_Load()
Dim oVar1 As Class1
For Each oVar1 In MaFonction
Debug.Print oVar1.Value
Next oVar1
End Sub
Public Function MaFonction() As Collection
Dim oVar1 As Class1
Set MaFonction = New Collection
Set oVar1 = New Class1
oVar1.Value = 12
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 5
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 7
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 6
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 2
MaFonction.Add oVar1
Set oVar1 = New Class1
oVar1.Value = 9
MaFonction.Add oVar1
End Function
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
'lut Bouv
ce genre de chose est faisable, passer par un Variant :
Public Function MaFonction() As Variant
Dim xnRet(5) As Long
xnRet(0) = 12
xnRet(1) = 5
xnRet(2) = 7
xnRet(3) = 6
xnRet(4) = 2
xnRet(5) = 9
MaFonction = xnRet
End Function
ce genre de chose est faisable, passer par un Variant :
Public Function MaFonction() As Variant
Dim xnRet(5) As Long
xnRet(0) = 12
xnRet(1) = 5
xnRet(2) = 7
xnRet(3) = 6
xnRet(4) = 2
xnRet(5) = 9
MaFonction = xnRet
End Function