none
Restar 1 a un Label RRS feed

  • Pregunta

  • Hola.

    Tengo un label con la propiedad Text en 5.

    Al Clickear en un Button intento restarle 1.

    Sub Btn1_Click()Handles Btn1.click

    Label1.Text = Val(Label1.Text - Val(1))

    End Sub

    Pero el resultado es -135

    Estoy implementando con Pocket Pc 2003 SE - Emulador

    Muchas gracias por la sugerencias que puedan ofrecer.

    miércoles, 24 de julio de 2013 21:28

Todas las respuestas

  • lo primero es convertir el valor que esta en text a int 

    Dim Valor = Ctype(Label1.tex, Integer)

    Dim NuevoValor = Valor - 1

    Label1.Text = NuevoValor

    si te sale error porque el NuevoValor es integer entonces conviertelo a string

    Label1.Text = Ctype(NuevoValor, String)

    Saludos

    miércoles, 24 de julio de 2013 21:45
  • Muchas gracias.

    Sigue dando como resultado -135

    miércoles, 24 de julio de 2013 22:06
  • Pero si escribo lo siguiente funciona

    Label1.Text = "5"
    Dim Valor = CType(Label1.Text, Integer)
    Dim NuevoValor = Valor - 1
    Label1.Text = NuevoValor
    'Label1.Text = CType(NuevoValor, String)
    Pero siempre seria 4 el resultado.
    miércoles, 24 de julio de 2013 22:16
  • que raro... lo probe y me funcionó.... mira este codigo a ver

    Dim valor As [String] = LblPrueba.Text Dim val As Integer = Convert.ToInt32(valor) Dim result As Integer = val - 1 LblPrueba.Text = Convert.ToString(result)

    el label lo tengo asi

    <asp:Label ID="LblPrueba" Text="5" runat="server">
        </asp:Label>

    Saludos

    miércoles, 24 de julio de 2013 22:18
  • Nada. Sigue sin funcionar correctamente.

    Voy a probar implementando con dispositivo y no con emulador a ver si funciona.

    • Editado Rafael F M miércoles, 24 de julio de 2013 22:27 otros
    miércoles, 24 de julio de 2013 22:26
  •  -135

    miércoles, 24 de julio de 2013 22:47
  • Muestrame como tienes el codigo asp o htm donde esta el label haber
    miércoles, 24 de julio de 2013 22:49
  • Gracias.

    El problema esta en que

    Label1.Text = CStr(CDbl(Label1.Text) - 1)

    esta dentro de un For Each

    For Each lbs As Control In TlpLetras.Controls
    For Each str As String In TbxResolver.Text
    Select Case TbxResolver.Text
    Case Datos.LblFrase.Text
    
    Case Else
    LblIntentados.Text = CStr(CDbl(LblIntentados.Text) - 1)
    End Select
    
    Next
    Next

    miércoles, 24 de julio de 2013 23:19