Tableau dynamique

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_steven007)