Comment creer un tableau en vb

Bonjour,

j'explique mon mini projet:

j'ai 2 textbox que l'utilisateur doit remplir,une foid il les a rempli il lique sur un bouton pour la validation,a ce moment je veux que les 2 champs s'ajoute dans un tableau et ainsi il pourra visualiser les donnees saisites.

merci pour votre aide
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Pourquoi faire un tableau pour uniquement 2 valeurs ?

    Le mieux est de mettre la valeur de la textbox1 dans une variable privée et la valeur de la textbox2 dans une autre variable privée. Tu fais ensuite un accesseur en lecture en public pour récupérer les valeurs.

    ;o)

    polux
    1. je t'explique.
      il s'agit de saisir des codes articles ainsi que la quantité à acheté.et parfois le clt peut achete plusieurs articles donc je veux que l'utilisateur visualise les articles ainsi que leur quantité qu'il a saisi avant de valider les données.

      merci
      1. ok, j'ai compris.

        Voici un exemple que tu peux placer dans un module. A toi d'arranger ça à ta sauce.

        Option Explicit
        
        Private Const PASALLOC = 1
        
        Private Type tabCde
            article As Variant
            qte As Long
        End Type
        
        Public cdeVisu() As tabCde
        Private max As Long
        
        Private Sub gerePasAlloc(ByVal ind As Long)
        
            If ind > max Then
                max = max + PASALLOC
                ReDim Preserve cdeVisu(max)
            End If
            
        End Sub
        
        Public Sub setArticle(ByVal ind As Long, ByVal str As Variant)
            Call gerePasAlloc(ind)
            cdeVisu(ind).article = str
        End Sub
        
        Public Sub setQte(ByVal ind As Long, ByVal str As Long)
            cdeVisu(ind).qte = str
        End Sub
        
        Public Function getArticle(ByVal ind As Long) As Variant
            getArticle = cdeVisu(ind).article
        End Function
        
        Public Function getQte(ByVal ind As Long) As Long
            getQte = cdeVisu(ind).qte
        End Function
        


        bon courage

        ;o)

        Polux