none
Ayuda, Crear alarma en formulario según datos en un TextBox RRS feed

  • Pregunta

  • Quiero crear una alarma para que en un formulario muestre un label si en un campo de la tabla el importe es superior a 0. Lo he consegudo con checkbox si lo activo a mano para alertar. Pero quiero que lo haga de forma automática cogiendo los valores del campo ImporteDeuda. De este modo alertaría de una deuda en las cuotas. El formulario toma los valores de un una consulta donde tras una unión de tablas muestra el importe 0 si no hay cuotas pendientes. He creado un label con un mensaje donde alerta del importe adeudado. Quiero que al recorrer el datagrid visualizando los usuarios salte el label si el importe es >0.

                        Label6.Text = "¡SOCIO CON " & " UN IMPORTE DE " & TxtDeuda.Text() & " EN CUOTAS PENDIENTES!"

    Y procedimiento que no me vale y he probado

        Private Sub TxtDeuda_SelectionChangeCommited()
    
            If TxtDeuda.SelectedText = ">0" Then
                TxtDeuda.Visible = True
                Label6.Show()
            Else
                TxtDeuda.Visible = False
            End If
    
        End Sub

    Debería usar otro método.

    Un saludo y muchas gracias.


    • Editado Maferru sábado, 27 de enero de 2018 9:55
    sábado, 27 de enero de 2018 9:27

Respuestas

  • Usar Convert.ToInt32 para pasar a entero el valor de txtDeuda.Text y si es Mayor q 0 poner a el Label Visible a true sino a falsedad.

        Private Sub TxtDeuda_SelectionChangeCommited()

            If Convert.ToInt32(TxtDeuda.Text)>0 Then
                TxtDeuda.Visible = True
                Label6.Visible=True
            Else
                TxtDeuda.Visible = False

                 label6.Visible=False

            End If

        End Sub

    Puedes simplicarlo así

    Mostrar as boolean = Convert.ToInt32(TxtDeuda.Text)>0

    Label6.Visible = Mostrar

    TxtDeuda.visible =Mostrar


    sábado, 27 de enero de 2018 10:36
  • Muchas gracias perono me funcionó de ninguno de los dos modos. Lo he conseguido así:

        Private Sub txtDeuda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtDeuda.TextChanged
    
            If Len(TxtDeuda.Text) > 1 Then
                TxtDeuda.BackColor = Color.Red
                Label6.Show()
            Else
                TxtDeuda.BackColor = Color.White
                Label6.Hide()
            End If
    
        End Sub

    • Marcado como respuesta Maferru sábado, 27 de enero de 2018 16:06
    sábado, 27 de enero de 2018 16:06

Todas las respuestas

  • Usar Convert.ToInt32 para pasar a entero el valor de txtDeuda.Text y si es Mayor q 0 poner a el Label Visible a true sino a falsedad.

        Private Sub TxtDeuda_SelectionChangeCommited()

            If Convert.ToInt32(TxtDeuda.Text)>0 Then
                TxtDeuda.Visible = True
                Label6.Visible=True
            Else
                TxtDeuda.Visible = False

                 label6.Visible=False

            End If

        End Sub

    Puedes simplicarlo así

    Mostrar as boolean = Convert.ToInt32(TxtDeuda.Text)>0

    Label6.Visible = Mostrar

    TxtDeuda.visible =Mostrar


    sábado, 27 de enero de 2018 10:36
  • Muchas gracias perono me funcionó de ninguno de los dos modos. Lo he conseguido así:

        Private Sub txtDeuda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtDeuda.TextChanged
    
            If Len(TxtDeuda.Text) > 1 Then
                TxtDeuda.BackColor = Color.Red
                Label6.Show()
            Else
                TxtDeuda.BackColor = Color.White
                Label6.Hide()
            End If
    
        End Sub

    • Marcado como respuesta Maferru sábado, 27 de enero de 2018 16:06
    sábado, 27 de enero de 2018 16:06