none
ListBox et somme????? RRS feed

  • Question

  • salut tous

     jai un petit question,simplement comment on peut faire la somme des plusieur nombres dans une

     liste (ListBox) et afficher la somme dans une zone de texte(TextBox) tous ça apres une click sur

    le button(Button),

     
    NB:jai essaye les soulutions de VB6 mais ca marche pas
     
    Merci davance
    dimanche 11 février 2007 22:01

Réponses

  • Par exemple

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    For cmpt As Integer = 1 To 10

    Me.ListBox1.Items.Add(cmpt)

    Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Somme As Integer

    For Each Elem As Object In Me.ListBox1.SelectedItems

    Somme += CInt(Elem)

    Next

    Me.TextBox1.Text = Somme.ToString

    End Sub

    lundi 12 février 2007 07:32

Toutes les réponses

  • Par exemple

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    For cmpt As Integer = 1 To 10

    Me.ListBox1.Items.Add(cmpt)

    Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Somme As Integer

    For Each Elem As Object In Me.ListBox1.SelectedItems

    Somme += CInt(Elem)

    Next

    Me.TextBox1.Text = Somme.ToString

    End Sub

    lundi 12 février 2007 07:32
  • Merci pour votre aide,mais ce code la ca marche pas,le resultat des nombres est zero!!!!!!
    lundi 12 février 2007 20:40
  • il faut sélectionner les éléments dans la liste :-)
    mardi 13 février 2007 07:19