Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox in Formato Valuta

Ciao a tutti,
Ho bisogno di formattare un controllo textbox in valuta.
Il valore di partenza � un float.
Cercando a lungo ho trovato questo codice (in calce) di esempio che in 
teoria dovrebbe fare quello che mi serve, ma come sempre in questi esempi 
non � riportata alcuna indicazione sul come e dove usare il codice di 
esempio.
Devo utilizzare qualcosa di simile o c'� un modo pi� facile?
Grazie
Davide
Private Sub DecimalToCurrencyString(sender As Object, cevent As _
ConvertEventArgs)
   ' The method converts only to string type. Test this using the 
DesiredType.
   If cevent.DesiredType IsNot GetType(String) Then
      Exit Sub
   End If
   ' Use the ToString method to format the value as currency ("c").
   cevent.Value = CType(cevent.Value, Decimal).ToString("c")
End Sub
Private Sub CurrencyStringToDecimal(sender As Object, cevent As _
ConvertEventArgs)
   ' The method converts back to decimal type only.
   If cevent.DesiredType IsNot GetType(Decimal) Then
      Exit Sub
   End If
   ' Converts the string back to decimal using the static ToDecimal method.
   cevent.Value = Decimal.Parse(cevent.Value.ToString, _
   NumberStyles.Currency, nothing)
End Sub
Private Sub BindControl
   ' Creates the binding first. The OrderAmount is a Decimal type.
   Dim b As Binding = New Binding _
      ("Text", ds, "customers.custToOrders.OrderAmount")
   ' Add the delegates to the event
   AddHandler b.Format, AddressOf DecimalToCurrencyString
   AddHandler b.Parse, AddressOf CurrencyStringToDecimal
   text1.DataBindings.Add(b)
End Sub
---
"...perch� non esistono saggi per nascita."
(Ptahhotep, 2640 ac) 



Visto che a quanto pare ci capisci ben poco...
...ti dispiacerebbe almeno farci capire in che linguaggio intendi operare?
Potresti essere completamente fuori strada...
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it

 Il valore di partenza � un float.
Ma intendi qualcosa del genere?
        Dim Importo As Double
        Importo = 1533.25
        Debug.WriteLine(Importo.ToString("c"))
http://msdn.microsoft.com/it-it/library/kfsatb94.aspx
http://msdn.microsoft.com/it-it/library/shxtf045.aspx
Con vb6
Debug.print Format$(1533.25, "currency")

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio

No.
Sto parlado di una textbox collegata a un database e il cui campo di 
partenza � in formato float.
Tutto funziona perfettamente ma ho bisogno che il numero sia formattato come 
valuta (? 350,00 e non 350).
Ovviamente la textbox deve conservare la funzione di inserimento e modifica 
del campo cui � collegata.
In access la formattazione delle textbox � una propriet� intrinseca della 
textbox, gli dico che il dato � valuta e la textbox trasforma il valore 350 
in "? 350,00" e per di pi�, come dicevo, conserva la capacit� di inserimento 
e modifica del valore nel campo del database d'origine.
Sto usando Visual Basic di Visual Studio 2008.
Ciao
Davide


 Potresti essere completamente fuori strada...
Pu� darsi, ma non scherzi neanche tu se ti restano dubbi sul linguaggio che
uso.
Ad ogni modo una cosa effettivamente ho trascurato di chiarire: il dato
proviene da un database cui la textbox � collegata. Tutto funziona
perfettamente ma ho bisogno che il numero sia formattato come valuta (?
350,00 e non 350).
Ovviamente la textbox deve conservare la funzione di inserimento e modifica
del campo cui � collegata.
Saluti
Davide
