Rechercher : dans
Par :

Comment creer un tableau en vb

Dernière réponse le 29 jan 2008 à 12:14:47 oussama, le 29 jan 2008 à 11:21:56 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « comment creer un tableau en vb » dans :
Tableaux HTML VoirUtilisation de tableaux Il est souvent utile de présenter des informations mieux structurées qu'avec des listes. Les tableaux permettent de les afficher en lignes et en colonnes. Les tableaux sont définis comme étant des suites de lignes. Un...
Langage C - Les tableaux VoirType de données complexes Les variables, telles que nous les avons vues, ne permettent de stocker qu'une seule donnée à la fois. Or, pour de nombreuses données, comme cela est souvent le cas, des variables distinctes seraient beaucoup trop lourdes...

1

Polux31, le 29 jan 2008 à 11:28:42

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

Répondre à Polux31

2

oussama, le 29 jan 2008 à 11:33:33

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

Répondre à oussama

3

 Polux31, le 29 jan 2008 à 12:14:47

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

Répondre à Polux31