https://foro.gambas-es.org/viewtopic.php?f=1&t=6619&p=39816#p39816
-----------------------------------
Shell
Viernes, 15 Septiembre 2017, 09:35

Re: Creando Un Inventario Para Los Productos De Limpieza. :-D
-----------------------------------
[quote]
También un método para cuando se modifice el valor de número de productos a la baja, si compruebe un stock minimo, para que si se baja de este se ponga rojo el hbox, para indicar que tienes que hacer una compra...
[/quote]

Este código parece funcional, tendré que optimizarlo si se puede.
La condición se comprueba y luego se comprueba el valor del texto del LCD para asignar un color al Hbox

[code linenumbers=false syntax=gambas]
Public Sub Botones_Click()        

  'Tomar una decisión en caso de que sea sumar o restar      
  Select Case Last.tag
    Case "sumar"
     lcdcontador.Text = CInt(lcdcontador.Text) + 1    
    Case "restar"
        lcdcontador.Text = CInt(lcdcontador.Text) - 1                  
  End Select      
  
  'Según el valor del lcd, el color del Hbox cambia
  If CInt(lcdcontador.Text) > 0 Then 
    Me.Background = Color.Cyan
  Else If CInt(lcdcontador.Text) <= 0 Then
    Me.Background = Color.Red
    lcdcontador.Text = 0
  Endif
  
End
[/code]

También hay que entender de que si se crea un producto de limpieza. Al menos debe tener el valor de [b]uno[/b] ya que es el primero.
Existe una unidad como mínimo.

Cambiando en la clase el código de la creación del LCD:
[code linenumbers=false syntax=gambas]
....
'Crea la etiqueta lcd
  lcdcontador = New LCDLabel(Me)
  With lcdcontador
    .Alignment = Align.Center
    .H = 28
    .w = 77
    .Text = "1"
  End With
....
[/code]

Saludos


