Somme commanbutton
Résolu
Bonjour,
je voudrais savoir s'il est possible de mettre une somme dans un commandbutton.
j'ai plusieurs totaux dans des textbox et je voudrais que la somme se mettent automatiquement dans le commandbutton
Private Sub validerlepanier_Click()
'doit montrer le montant total de la commande donc de toutes les catégories
info = MsgBox("Le montant total de votre commande s'élève à ici je voudrais que la somme s'affiche)
Paiement.Show
End Sub
je voudrais savoir s'il est possible de mettre une somme dans un commandbutton.
j'ai plusieurs totaux dans des textbox et je voudrais que la somme se mettent automatiquement dans le commandbutton
Private Sub validerlepanier_Click()
'doit montrer le montant total de la commande donc de toutes les catégories
info = MsgBox("Le montant total de votre commande s'élève à ici je voudrais que la somme s'affiche)
Paiement.Show
End Sub
Configuration: Windows Vista Firefox 2.0.0.3
5 réponses
-
Alors vu la syntaxe je pense que c'est du VB.NET.
Dans ton cas tu as un bouton validerLePanier
Et sur l'évènement _click tu voudrais afficher la somme de quelquechose de sélectionné ou rempli.
Tu procèdes ainsi :
validerLePanier_Click()
{
dim monTotal as integer
monTotal = monObjet1.Text.ToInt + monObjet2.Text.ToInt
msgBox ("Le total =" & monTotal)
}
-- ici l'objet désigne le control : un comboBox ou textBox par exemple.
-- N'oublie pas de formaté ton texte dans le type de données désiré (ici en entier).
Voila,
Cdlt,
Marc -
Contributeurbonjour,
Il faut mettre une variable Public dans un module global et chaque fois qu'un objet est sélectionné ajouté sont prix à cette variable
Dans un module global
Option explicit
Public TotalAchat as double
Private Sub validerlepanier_Click()
'doit montrer le montant total de la commande donc de toutes les catégories
info = MsgBox("Le montant total de votre commande s'élève à " & TotalAchat & "euros" )
Paiement.Show
End Sub
A+ -
Bonjour,
Quels sont les noms des textbox à additionner et le nom de la textbox qui reçoit le resultat?
Sans ces infos, difficile de proposer une solution.
A+.-
bonjour amigo
tu as deja repondu l'autre fois a ma question: c'était pour additioner differente textbox dans une autre textbox. Je te rappelle les codes
Private Sub CheckBox1portrait_Click()
If CheckBox1portrait = True Then
TextBox1portrait = 150
Else: TextBox1portrait = ""
End If
total1.Text = Str(Val(TextBox8mannequin.Text) + Val(TextBox9pendentif.Text) + Val(TextBox7dauphin.Text) _
+ Val(TextBox6gastro.Text) + Val(TextBox5guitare.Text) + Val(TextBox4appareil.Text) + Val(TextBox3quad.Text) _
+ Val(TextBox2coffret.Text) + Val(TextBox1portrait.Text))
'permet d'afficher le prix quand on coche la case
j'ai copié ce code pour tous mes articles. J'ai en tous 9 catégories de produits donc 9 totaux.
J'ai donc créé un bouton valider le panier qui doit additionner tous mes totaux.
Je ne sais pas si j'arrive bien a expliquer le but de mon programme.
cordialement
-
-
Contributeurajouté ligne...
TotalAchat =val(total1.Text)
ou bien...
info = MsgBox("Le montant total de votre commande s'élève à " & val(Total1.Text) & "euros" ) -
Bonjour,
Soit txtTotalPanier le nom de la textbox qui recevra le total des 9 catégoriesPrivate Sub validerlepanier_Click() txtTotalPanier.Text = Str(Val(total1.Text) + Val(total2.Text) + Val(total3.Text) + Val(total4.Text) + Val(total5.Text) _ + Val(total6.Text) + Val(total7.Text) + Val(total8.Text) + Val(total9.Text)) End Sub
A+.
