Visual Basic para Aplicaciones - Activar label si listbox tiene un item

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

Activar label si listbox tiene un item

Publicado por fjpg (135 intervenciones) el 18/09/2019 12:35:11
Hola, buenas.

Tengo una menudez, pero no consigo que me salga. A ver si podeis ayudarme, que creo que si.
Sois unos put.... CRACKS!!!!

Tengo un "frm_compra" donde llamo a" frm_articulos_facturar" para poder añadir articulos a la compra (este form se cierra cuando le doy al label de volver y el listbox de frm_compra ya tiene los articulos añadidos).

Quisiera que el label para guardar se activara cuando el listbox tiene un item.

Probe esto pero no hace nada:
1
2
3
4
5
if listbox1.clear then  ' tambien probe con listbox1=""
    lb_guardar.enabled = false
else
    lb_guardar.enabled = true
end if

Si necesitais algun ejemplo me decis!!!
GRACIAS. Un saludo.
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 Héctor Madriz
Val: 131
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Activar label si listbox tiene un item

Publicado por Héctor Madriz (29 intervenciones) el 18/09/2019 14:26:03
Buen día, anexa un libro para evaluar tu consulta.

Por lo que entiendo quieres saber si el ListBox tiene elementos o no.

1
2
3
4
5
If Listbox1.ListCount>0 Then
   'Tiene elementos
Else
   'No tiene elementos
End If

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

Activar label si listbox tiene un item

Publicado por fjpg (135 intervenciones) el 18/09/2019 20:12:29
He conseguido que al pasar un articulo, se active el label de guardar.

Pero lo que no consigo ahora es desde el "frm_compras", si elimino los items se desactive.
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
Imágen de perfil de MIGUEL
Val: 424
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Activar label si listbox tiene un item

Publicado por MIGUEL (121 intervenciones) el 18/09/2019 22:04:06
Buenas fjpg

Te dejo el archivo corregido y unas observaciones.

1° Moví los controles porque en mi lap no caben los form y no alcanzaba a ver los label's
2° En Private Sub txt_cantidad_compra_Change() le agregue la funcion Val() en la siguiente linea: importe_compra = Val(txt_compra) * txt_cantidad_compra ya que en mi maquina saltaba un error ( mas que nada es por el formato) si a ti te causa problemas se la puedes quitar.

3° El código que tienes en el evento change del listbox en frm_compras es correcto y es el que se usa en el frm_articulos_facturar para realizar lo que pides y también para el label eliminar del frm_compras, solo que lo tenias invertido, por eso no te funciono.



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: 286
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Activar label si listbox tiene un item

Publicado por fjpg (135 intervenciones) el 18/09/2019 23:06:23
PERFECTO como siempre.
GRACIAS!!
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