Discussion :

[oshigamie]

Bonjours ,

Je suis actuellement débutant dans le language vb.net et je rencontre une difficulté dans mon code . Je vous explique . Je suis entrain de créer un application lier a des commande gérant des prix a par laquelle le prix et récupérer a travers des bouton par la fonction tag je m’explique , je Click sur un bouton correspondant a un produit et je voudrais pouvoir récupérer le tag lier a se bouton dans une texte box . Une peut comme les checkbox . pouvais vous m'aider car je n'en es aucun idée de comment m'y prendre.

cordialement oshigamie

[shayw]

Bonjour
dans la sub click event du bouton

Code :

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

monttextbox.text =  directcast(sender,button).tag.tostring

[oshigamie]

Merci beaucoup il prend bien en compte les tag mais il ne les ajoute pas entre eu enfin il ne fait pas les addition .

[shayw]

mais il ne les ajoute pas entre eu enfin il ne fait pas les addition

je n'ai pas bien compris ce que tu veux faire

[oshigamie]

je t'explique .

Enfaite imagine que j'ai plusieurs bouton contenant un valeur tag par Default et ou lorsque je clique dessus je récupère cet valeur (jusqu'a la tu ma donner la solution ). Mais dans le cas ou je clique sur différent bouton a la suite, comme une sélection , je voudrais pourvoir accumuler cet somme , qu'elle s'additionne .

exemple j'ai deux bouton et un textebox .
le texte box lui et initialiser a 0 des le chargement du formulaire . lorsque je clique sur un bouton sa valeur tag replace le 0 du textbox ( ta reponse precedente ) mais si je souhaite cliquer sur le deuxieme bouton jaimerais quel s'additionne au premier cliquer .

[wallace1]

Bonsoir oshigamie,

Dans le gestionnaire d'evenement de tes boutons :

Code :

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

1
2
3
4
5
 
'Declaration d'une variable pour stocker la valeur actuelle du controle textbox (conversion en integer) a laquelle on ajoute la valeur de la propriete "Tag" du bouton qui a ete cliqué.
Dim _addValue as integer = cint(monttextbox.text) + cint(directcast(sender,button).tag)
'Conversion du resultat obtenu en type string puis affectation a la propriete "Text" du textbox.
monttextbox.text =  cstr(_addValue)

A+

[oshigamie]

Ca ne marche toujours pas voila l'évènement de mon click

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub BtnCroissant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCroissant.Click, BtnPainRaisin.Click, BtnPainChocolat.Click, BtnCafé.Click, BtnChocolat.Click, BtnThé.Click, BtnJusOrange.Click, BtnJusPomme.Click, BtnPommeFruit.Click
 
        'Declaration d'une variable pour stocker la valeur actuelle du controle textbox (conversion en integer) a laquelle on ajoute la valeur de la propriete "Tag" du bouton qui a ete cliqué.
        Dim _addValue As Integer = CInt(Txtprix.Text) + CInt(DirectCast(sender, Button).Tag)
 
        'Conversion du resultat obtenu en type string puis affectation a la propriete "Text" du textbox.
        Txtprix.Text = CStr(_addValue)
        Txtprix.Text = DirectCast(sender, Button).Tag.ToString()
 
    End Sub

[wallace1]

......mais si je souhaite cliquer sur le deuxieme bouton jaimerais quel s'additionne au premier cliquer .

C'est une addition que tu veux ou une concaténation exactement ???

[oshigamie]

un addition regarde exemple .

si je clique sur un bouton seulement contenant la valeur tag de 0.60 dans le textebox apparaitra 0.60 . parcontre si je clique sur le premier bouton puis ensuite sur un second ayant pour valeur tag 0.40 je veut que sa face 0.60 + 0,40 donc la valeur qui s'affichera dans le textbox sera 1,00