https://foro.gambas-es.org/viewtopic.php?f=1&t=6619&p=39821#p39821
-----------------------------------
Shell
Viernes, 15 Septiembre 2017, 13:49

Re: Creando Un Inventario Para Los Productos De Limpieza. :-D
-----------------------------------
Otra posibilidad:

[code linenumbers=false syntax=gambas]
Public Sub Botones_Click()        
  
  Dim valorlcd As Integer
  
  valorlcd = CInt(lcdcontador.text)
  
  Select Case Last.tag
    Case "sumar"
      valorlcd += 1
      Me.Background = Color.Cyan 
    Case "restar" 
      If valorlcd = 0 Then
        valorlcd = 0             
      Else
        valorlcd -= 1             
      Endif
  End Select    
  If valorlcd = 0 Then Me.Background = Color.Red
  lcdcontador.Text = valorlcd  
  
End
[/code]

Saludos


