Visual Basic - voucher

Life is soft - evento anual de software empresarial
   
Vista:

voucher

Publicado por val (5 intervenciones) el 27/03/2014 17:35:57
hola como se puede hacer
s/.*******100.50 en visual, y si la cantidad aumenta que ocupa el lugar del asterisco

s/..******3000.50
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

voucher

Publicado por Diego (33 intervenciones) el 28/03/2014 11:07:56
Puedes explicarte algo mejor ¿?
Que es un TextBox... un grid...un mensaje.... es para escribir en bbdd....es una operacion matematica ....
que necesitas hacer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

voucher

Publicado por Diego (33 intervenciones) el 28/03/2014 11:42:18
Te adjunto un codigo que te puede servir

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Valor As Decimal = 3000.5
        Dim PuntosTotales As Integer = 0
        Dim CadenaDePuntos As String = ""
 
        ' 100.50 Fix = 100  -->     PuntosTotales = 1   --> Length = 1
        '3000.50 Fix = 3000 -->  PuntosTotales = 30 --> Length = 2
        'StrDup , Repite la cadena "." el numero de veces indicado --> "s/.."
        PuntosTotales = (Fix(Valor) / 100).ToString.Length
        CadenaDePuntos = "s/" & StrDup(CInt((PuntosTotales)), ".")
 
        '     12345678910 
        '---> s/..******  <---** 
        Dim CadenaFinal As String = ""
        CadenaFinal = Microsoft.VisualBasic.Left(CadenaDePuntos & "********", 10)
        CadenaFinal = CadenaFinal & Valor 'añade el valor al final
 
        Me.TextBox1.Text = CadenaFinal
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

voucher

Publicado por pedro luis (56 intervenciones) el 28/03/2014 14:46:14
Creo que estais complicando mucho las cosas
Si se supone que el campo tendra 20 caracteres puede ser algo asi
Si lo que queremos representar es 123'34 tenemos a=123'34
text1=string(20-len(a),"*") & format (a,"0.00")
**************123,34
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar