Tableau dynamique

Soyez le premier à donner votre avis sur cette source.

Vue 17 810 fois - Téléchargée 1 185 fois

Description

tableau Dynamique

Source / Exemple :


Option Explicit

' tableau dynamique

Dim gintatableau() As Integer

Private Sub cmdquitter_Click()
Unload Me
End Sub

Private Sub cmdreduireavec_Click()
Dim intcompteur As Integer
'redéfinir la taille du tableau
'AVEC Preserve
ReDim Preserve gintatableau(1 To 10)

'effacer et remplir la zone de liste
lstelements.Clear
For intcompteur = 1 To 10
lstelements.AddItem gintatableau(intcompteur)
Next
End Sub

Private Sub cmdreduiresans_Click()
Dim intcompteur As Integer
'Redéfinir la taille du tableau
'SANS Preserve
ReDim gintatableau(1 To 5)

'effacer et remplir la zone de liste
lstelements.Clear
For intcompteur = 1 To 5
lstelements.AddItem gintatableau(intcompteur)
Next
End Sub

Private Sub cmdremplir_Click()
Dim intcompteur As Integer
'déterminer la taille du tableau
ReDim gintatableau(1 To 25) 'Remplir le tableau
For intcompteur = 1 To 25
gintatableau(intcompteur) = intcompteur * intcompteur
Next
'Effacer et remplir la zone de liste
lstelements.Clear
For intcompteur = 1 To 25
lstelements.AddItem gintatableau(intcompteur)
Next
End Sub

Private Sub Form_Load()
MsgBox "http://www.steven007.fr.st  e mail : steven007@caramail.com"
End Sub

Conclusion :


http://www.steven007.fr.st

si vous avez des suggestion laisser votre message

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de FOHRER

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.