Tableau dynamique

Soyez le premier à donner votre avis sur cette source.

Vue 18 160 fois - Téléchargée 1 237 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

Commentaire

Messages postés
5
Date d'inscription
lundi 21 novembre 2011
Statut
Membre
Dernière intervention
26 novembre 2011

svp comment je peu declarer un tableau et l'afficher dans un form vb6 et adresser les donner vers ses cellules? merci

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.