Visual Basic para Aplicaciones - Formato % en columna de listbox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 326
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Formato % en columna de listbox

Publicado por fjpg (130 intervenciones) el 04/11/2019 19:46:12
Hola de nuevo compys!! XD

Como puedo hacer para que en un listbox, en una columna salga el sino %

Explico:

Desde un form2 añado items a otro form1.
Este codigo lo tengo en un label para añadir los items al form1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'''' EVITAMOS CONTROLES VACIOS
           If Me.txt_total_compra.Text = "" Then
                Me.txt_total_compra.BackColor = &HC0C0FF
                MsgBox "El precio total de compra no puede quedar vacío", vbCritical, "CONTROL DE ALMACÉN"
                Me.txt_compra.SetFocus
             Exit Sub
        End If
 
        With frm_compras_nueva.ListBox1
            .AddItem txt_nombre
            a = .ListCount - 1
            .List(a, 0) = txt_codigo
            .List(a, 1) = txt_nombre
            .List(a, 2) = txt_compra
            .List(a, 3) = txt_cantidad_compra
            .List(a, 4) = txt_importe_compra
            .List(a, 5) = txt_descuento_compra
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''EN ESTA COLUMNA NECESITO EL SIGNO %
'''''''''''''''''''''''creo que podra ser algo asi, pero ni idea,....
            .List(a, 5) = Format( "%")
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            .List(a, 6) = txt_total_compra
            For i = 0 To a
                w_txt_total = w_txt_total + CDbl(.List(i, 6))
            Next
            frm_compras_nueva.txt_total = w_txt_total
 
 
        End With
'    End If
    Call LimpiarControles



Alguna ayuda???
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
Imágen de perfil de MIGUEL
Val: 429
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Formato % en columna de listbox

Publicado por MIGUEL (111 intervenciones) el 05/11/2019 02:45:27
Buenas fjpg

Pues depende de como este el porcentaje, por ejemplo

si en txt_descuento_compra esta como 0.10, seria:
1
.List(a, 5) = Format(txt_descuento_compra ,"0.00%") ' aqui acostumbro poner 2 ceros despues del punto ya que aveces ocupo un 25% y si dejo solo un cero me lo pasa a 30%
si en txt_descuento_compra esta como 10, seria:
1
.List(a, 5) = txt_descuento_compra & "%"
en este caso es importante no dejar espacio entre el valor y el %, para que a la hora de hacer operaciones no tengas problemas
para las operaciones tendrias que convertirlo en numero sencillo,
1
format(.List(a,5),"0.00")
con esto ya puedes multiplicar ya que el numero pasaria a 0.10 sin importar como lo convertiste a porcentaje.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 326
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Formato % en columna de listbox

Publicado por fjpg (130 intervenciones) el 05/11/2019 12:19:49
Me funciono esta:
.List(a, 5) = txt_descuento_compra & "%"

THANKS!!!! XD XD XD
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