compter les element dans une listbox

Question

Bonjour, 
salut ,je travaille sur visual basic j'arrive pas a afficher la somme des element de ma liste box
merci c vraiment urgent

Whismeril · Answer

Bonjour
Compter les element dans une listbox ceci veut à priori dire savoir combien il y a d'éléments dans ma listbox, et 
la somme des element de ma liste box  ceci fait plutôt penser à une colonne de nombres à faire la somme.....
Donc peux tu clarifier ton besoin?
Dans le second cas, ta listbox est elle bindée, si oui comment?
PS, nous sommes tous bénévoles, et il n'y a rien d'urgent pour nous à répondre à une question. Le fait de l'écrire aurait plutôt tendance à faire passer son chemin à beaucoup de forumeurs.

Riabi · Answer

Merci whismeril
Je voulais exécuter un programme comme une caisse(restaurant)
Mon projet contient 5 forms
Form1 contient 4 boutons principal(btnplat btnsandwich btnbreuvage btnsalade)
Une liste box
Form2 contient des bouton(assiette1,assiette2..)
Quand je click aur btnaasiette1 il affiche dans la listbox: assiette1 12$)
Btnassiette2 affiche assiette 2 16$
Je veux que btnsomme affiche la somme des prix dans lq liste box
Merci

Whismeril · Answer

OK, mais comment ton  btnaasiette1 fait pour afficher assiette1 12$ dans la listbox?

riabi · Answer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnassiettes1.Click
         assiettes1 = 10.95
        Form1.lstbox1.Items.Add("Assiette  $" & SHishT)

Whismeril · Answer

mouais, c'est ce que je "craignais". Alors le plus simple (ensuite une fois qu'on a bien compris le truc) à coder est d'utiliser VB.net pour ce qu'il est: un langage objet prévu pour le MVC. Donc l'idée est de créer une classe, qui a au moins 2 propriétés: le nom du plat et son prix. De binder une collection de cette classe sur la listbox (pour la partie vue), de faire les calculs sur la collection (pour la partie contrôler) et même avoir une base de données (un fichier texte si tu es sur qu'il n'y aura jamais que 4 plats, suffit amplement) pour la partie modèle. Pour l'exemple, je prends un fichier csv, c'est éditable avec Excel (le jour ou les prix changent, ça évitera de tout recompiler) Assiette 1;12Assiette 2;12,5Dessert 1;4,75Dessert 2;5,30 Attention sur mon PC, le symbole décimal, c'est la virgule, si tu utilises le point, il faut modifier le csv (ou gérer dans le code les 2 options, ce que je n'ai pas fait là). La classe, à noter, j'aime bien qu'une classe sache importer elle-même son contenu, mais ça n'est pas obligé. Imports System.IO Class Plat Public Property Prix() As Double Public Property Nom() As String '''

''' Texte qui sera écrit dans la ListBox '''

''' ''' Public Overrides Function ToString() As String Return String.Format("{0} : {1:F2}$", Nom, Prix) End Function '''

''' Lit et importe le fichier csv '''

''' Chemin du fichier ''' Liste des plats Public Shared Function Deserialize(ByVal Fichier As String) As List(Of Plat) Dim lignes() As String = File.ReadAllLines(Fichier) 'lit le fichier et place chaque ligne dans un tableau de string Dim lesPlats As New List(Of Plat)() For Each l As String In lignes 'lit chauqe ligne Dim valeurs() As String = l.Split(";"c) 'découpe la ligne grâce au séparateur ; Dim lePlat As Plat = New Plat With {.Nom = valeurs(0), .Prix = Convert.ToDouble(valeurs(1))} lesPlats.Add(lePlat) 'ajoute l'instance dans la liste Next l Return lesPlats 'retourne la liste 'Pour info, une fois le principe bien acquis, tu pourras essayer de jouer avec Linq, ça tient sur une ligne. Return File.ReadAllLines(Fichier).Select(Function(l) l.Split(";"c)).Select(Function(x) New Plat With {.Nom = x(0), .Prix = Convert.ToDouble(x(1))}).ToList() End Function End Class Et dans ton form (ici Form1) Private Sub monBouton_Click(ByVal sender As Object, ByVal e As EventArgs) Dim monBouton As Button = CType(sender, Button) Dim indexPlat As Integer = CInt(monBouton.Tag) laCommande.Add(lesPlats(indexPlat)) 'on ajoute un plat listBox1.DataSource = Nothing listBox1.DataSource = laCommande 'on binde la collection sur la listbox textBoxTotal.Text = laCommande.Sum(Function(c) c.Prix).ToString("F2") End Sub Private lesPlats As List(Of Plat) 'déclaration de la liste dont la portée englobe la form entière. Private laCommande As New List(Of Plat)() Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load lesPlats = Plat.Deserialize("C:\Temp\LesPlats.csv") 'import des données. 'création des boutons For i As Integer = 0 To lesPlats.Count - 1 Dim monBouton As New Button() monBouton.Location = New System.Drawing.Point(50, 35 * i + 50) monBouton.Size = New System.Drawing.Size(120, 30) monBouton.Text = lesPlats(i).Nom monBouton.Tag = i 'de façon à savoir à quel plat correspond le bouton AddHandler monBouton.Click, AddressOf monBouton_Click Me.Controls.Add(monBouton) Next i Il faut juste une ListBox (listbox1) et un TextBox (textBoxTotal). Si tu veux faire une nouvelle commande, tu ajoutes un bouton qui vide la liste et la rebinde. Si tu veux enlever un plat de la commande, tu ajoutes un bouton qui supprime l'item au même index que celui sélectionné sur la Listbox et tu rebindes.

Compter les element dans une listbox

5 réponses

Votre réponse

Discussions similaires