Discussion :

[Mateus]

Bonjour à tous!

Je suis actuellement en master Qualité et j'ai eu l'occasion de m'initier à la programmation et notamment sur VB.

J'ai pour projet de réaliser un programme de remise en forme.
Le programme permet à l’utilisateur de calculer son surplus calorique de la journée.
Le programme demande un temps en minute qu'a l'utilisateur pour pratiquer un sport. En fonction du temps donné et du surplus calorique, le programme calcul quels sports doit pratiquer l'utilisateur pour dépenser son surplus calorique.

J'ai réussi tant bien que mal à développer une bonne partie du codage.
Mais arrivant à la fin de mon programme ça coince!


Je souhaiterai en effet ajouter à mon programme un formulaire nommé "Résultats" qui s'affiche lorsqu'on clique sur cmdRésultat.
Ce formulaire possède une listbox nommée "lstchoixsport" qui afficherait le résultat des sports "resultat".
Dans ce programme j'arrive à afficher le formulaire résultat mais les sport n'apparaissent pas dans la listbox.

Voici mon code:

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
21
22
23
24
25
Private Sub cmdRésultat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRésultat.Click
        Dim sportOK(15) As String
        Dim i As Integer
        Dim j As Integer
        Dim resultat As String
        Dim lstchoixsport As String
 
        Résultats.Show()
        lstchoixsport = ""
        j = 0
        For i = 0 To 15
            If tabSports(i).calparmin * Val(txtTempsdisponble.Text) > lblSurpluscalorique.Text Then
                sportOK(j) = tabSports(i).nomsport
                j = j + 1
            End If
        Next
        resultat = lstchoixsport
 
        For i = 0 To j - 1
            resultat = resultat + sportOK(i) + " "
 
        Next
        lstchoixsport = resultat
 
End Sub

Quelles solutions pouvez-vous m'apporter pour ce problème?
En vous remerciant!

[hunteshiva]

Bonjour,

je pense que le soucis vient du fait que tu déclare ta listBox en string

Code :

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

Dim lstchoixsport As String

Normalement elle fait déjà partie de ton formulaire donc pas besoin de la déclarer

Pour manipuler les listBox regarde ce petit cour
http://plasserre.developpez.com/cour...rms3#LVIII-H-1

[yonpo]

Salut,

Evite de donner un nom identique à un contrôle et à une variable.

Quand tu fais ceci :

Code vb :

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

resultat = lstchoixsport

Le variable lstchoixsport ne contient rien.

et

Code vb :

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

lstchoixsport = resultat

Tu affectes resultat au listbox ou à la variable..... D'où le conseille donné ci dessus.

Tu as plusieurs facon de remplir un listbox. Soit ajouter des éléments un par un, soit utiliser une liaison de données.
Pour ton cas, la première méthode est suffisante.
Pour faire ceci, il faut utiliser la méthode Add de lstchoixsport.Items