Discussion :

[Claude 3573]

Voila mon problème, comme débutant je construit une caisse enregistreuse et j'aimerai bien pouvoir entré mes articles avec un "tree view"

voici mon code qui ne fonctionne qu'en parti.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   '############################################################
   '#                 Eingabe/Entré de Données                 #
   '############################################################
 
 
   Private Sub btEingabe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEingabe.Click
      Dim Artikel As New ArrayList()
      Dim Anummer = tbEingabeANum.Text
      Dim Aname = tbEingangName.Text
      Dim Apreis = tbEingangPreise.Text
      Dim Amenge = tbEingangmenge.Text
      Artikel.Add(Anummer)
      Artikel.Add(Aname)
      Artikel.Add(Apreis)
      Artikel.Add(Amenge)
      lstA.Items.Add(Artikel) 'doit enregistrer sur( tvListe) et non pas lstA
   End Sub

je reçois la réponse sur "lstA" (collection)
Les Données sont en Allemand je men excuse, mais J'aimerai avoir l'explication pour comprendre par la suite

Merci d'avance
Claude

[abd75web]

Si je suppose que "lstA" est votre Tree View


je cois que tu doit le code est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                    For Each i In Artikel 
                        lstA.Nodes.Add(i)
                    Next

et je crois de préférence utiiser une listBox c'est mieux

A+

[The_Big_Lebowski]

Je ne vois pas exactement ce que tu veux faire mais on peut essayer d'extrapoler.
Une petite classe pour ton article

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Friend Class Article
     Public property Numero as string 
     public property Nom as string
     Public Property Prix as double
End Class

Sur l'évènement Click du bouton btEingabe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub btEingabe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEingabe.Click
      Dim lstArt As New List (Of Article)
      Dim A as Article
      dim n as treeNode
 
      'ici, on remplit une liste avec des articles générés automatiquement
      For i as Integer = 0 to 9 
            A = new Article
            A.Numero = i.toString
            A.Prix = (i +1) * 2.58 ' Arbitraire
            A.Nom = "Article " & i.toString
            lstArt.Add(A)
      Next
 
      'On boucle sur la liste pour afficher dans le treeView, l'ensemble des articles présents
      For Each A in lstArt
            n = tvList.nodes.add (A.Nom & " " & A.Prix.toString("C2"))
            n.tag = A
      Next
   End Sub

[Claude 3573]

Wahoo, je trouve ton Intervention trés bonne, meme si je ne comprend pas encore tous, ce que je veut faire est très simple, je veut rentrer mes articles dans une liste, p.e. "45,(pour le n°)le nom "tomates", le prix "2.50", le nombre "3"

plus tard cette liste devra me servire comme référence. en appuillant sur l'article il sera mit pour la vente et après totalisation la liste sera remis a jour pour le controlle du stock

[Pol63]

un treeview est un objet permettant d'avoir des niveaux différents
chaque noeud a un affichage et une sous liste affichée via le + à gauche
chaque élement de la sous liste peut encore avoir une sous liste

en quoi ta liste d'articles a une sous liste ?

[Claude 3573]

Voila mon projet complet, j'avais pensé utiliser un treeViewer pour les diférentes fonctions, Rentrer les données, Chercher un Article, et enfin la liste pour le transfère.