Soyez le premier à donner votre avis sur cette source.
Vue 18 214 fois - Téléchargée 1 249 fois
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
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.