1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Ajouter un signe de $ [VB2008] [Résolu]

Signaler
Messages postés
14
Date d'inscription
samedi 3 octobre 2009
Statut
Membre
Dernière intervention
10 janvier 2010
 -
Messages postés
14
Date d'inscription
samedi 3 octobre 2009
Statut
Membre
Dernière intervention
10 janvier 2010
 -
Bonjour,

Au lieu de faire un 4 post de suite, j'ai créer un autre topic.

Suite a mon autre topic d'aide qui se situ ici ---> http://www.vbfrance.com/forum/sujet-BESOIN-AIDE-SCRIPT-VB-2008_1394705.aspx

J'aimerais savoir comment ajouter le signe de $.

Exemple:

J'entre 99, se qui me donne disons 3.60.
mais j'aimerais qu'il ajoute le signe $ a la fin.

Pareille pour le prit total. Lorsqu'il additionneras tous les FruitPrice (Nom de la textbox), j'aimerais qu'il me donne le signe de $ a la fin.

J'ai le code pour les additions. Le voici: 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Totalprice.Text = Val(Appleprice.Text) + Val(Orangeprice.Text)
    End Sub


Merci d'avance!
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
 13 
    Public Function FormatPrice(ByVal Price As Double, ByVal Unit As Char) As String
        Dim S As String
        S = Conversion.Str(Price)
        If S.Contains(".") Then S = S.Replace(".", Unit) Else S &= Unit
        FormatPrice = S
    End Function

---
VB.NET is good ... VB6 is better
Réponse 2 / 2
Messages postés
14
Date d'inscription
samedi 3 octobre 2009
Statut
Membre
Dernière intervention
10 janvier 2010
Ohhh! Merci beaucoup!

J'ai commencer avec VB.net et je vais y rester... Je le trouve plus.. Facile

Merci encore!
Répondre Posez votre question