1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
| Option Explicit
Private Const NB_LIGNE = 4
Private Const NB_COLONNE = 400
'TYPE UTILISATEUR
Private Type zTab
Tab2D() As Double
End Type
Dim MyzTab As zTab
'CHARGEMENT DU FORMULAIRE
Private Sub Form_Load()
Dim i, j As Integer
ReDim MyzTab.Tab2D(NB_LIGNE - 1, NB_COLONNE - 1)
'Initialise le tableau
For i = 0 To UBound(MyzTab.Tab2D)
For j = 0 To NB_COLONNE - 1
MyzTab.Tab2D(i, j) = CDbl(CStr(i) & "." & Format(CStr(j), "000"))
Next j
Next i
End Sub
'CLIQUE SUR LE BOUTON
Private Sub Command1_Click()
ShowInList MyzTab.Tab2D
End Sub
'FONCTION QUI AFFICHE LES ELEMENTS DU TABLEAU DANS LA LISTBOX
Public Sub ShowInList(ByRef zTab2D() As Double)
Dim i, j As Integer
For i = LBound(zTab2D) To UBound(zTab2D)
'Erreur à la compilation sur LBound : Tableau attendu ? ? ?
For j = LBound(zTab2D(i)) To UBound(zTab2D(i))
List1.AddItem zTab2D(j, i)
Next j
Next i
'-------------------------------------------------------------------------------------
'Expression | Valeur | par type
'-------------------------------------------------------------------------------------
'- zTab2D | | Double(0 to 3,0 to 399)
' + zTab2D(0) | | Double(0 to 399)
' + zTab2D(1) | | Double(0 to 399)
' + zTab2D(2) | | Double(0 to 399)
' - zTab2D(3) | | Double(0 to 399)
' zTab2D(3,0) | 3 | Double
' zTab2D(3,0) | 3.001 | Double
' zTab2D(3,0) | 3.002 | Double
' zTab2D(3,0) | 3.003 | Double
' . | . | .
' . | . | .
' . | . | .
' zTab2D(3,397) | 3.397 | Double
' zTab2D(3,398) | 3.398 | Double
' zTab2D(3,399) | 3.399 | Double
'IsArray(zTab2D) | Vrai | Boolean
'IsArray(zTab2D(0)) | <Indice en dehors de la plage> | Integer
'-------------------------------------------------------------------------------------
End Sub |
Partager