none
Checkbox ticado mostra porcentagem em label RRS feed

  • Pergunta

  • Boa tarde! Sou iniciante em VB.NET e estou usando o VS2017 e preciso de ajuda em uma cituação que não consegui resolver.

    No form que estou criando tenho 20 CheckBox com atividades que o usuário terá que cumprir e a cada checkbox ticado como feito preciso mostrar a porcentagem de atividades feitas.

       ⃣⃣  A1          ⃣⃣  A2                                                      Completou=  2%

    Espero que alguém possa me ajudar. Desde já agradeço a atenção.

    segunda-feira, 29 de maio de 2017 19:46

Respostas

  • Faça Assim amigo!


    Codigo

    Public Class Form1
    
    
        Dim i As Integer = 0
        Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
            If Me.CheckBox2.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            If Me.CheckBox1.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
            If Me.CheckBox3.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Label1.Text = "0%"
        End Sub
    End Class
    

    • Marcado como Resposta ivofb segunda-feira, 19 de junho de 2017 20:42
    domingo, 18 de junho de 2017 16:59

Todas as Respostas

  • Você só precisa criar o tratamento para o evento CheckedChanged de cada CheckBox, daí você verificar se a propriedade Checked está como true, daí incrementa o percentual que é exibido no Label.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    • Marcado como Resposta ivofb terça-feira, 30 de maio de 2017 18:12
    • Não Marcado como Resposta ivofb quinta-feira, 15 de junho de 2017 22:45
    terça-feira, 30 de maio de 2017 15:48
  • Você só precisa criar o tratamento para o evento CheckedChanged de cada CheckBox, daí você verificar se a propriedade Checked está como true, daí incrementa o percentual que é exibido no Label.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    Olá novamente Juliano Nunes Silva Oliveira!

    Você poderia me dar um exemplo de como eu faço isso, pois estou iniciando na programação (novato de tudo) e ainda não consegui fazer. Agradeço sua atenção.


    • Editado ivofb quinta-feira, 15 de junho de 2017 22:49
    quinta-feira, 15 de junho de 2017 22:48
  • Faça Assim amigo!


    Codigo

    Public Class Form1
    
    
        Dim i As Integer = 0
        Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
            If Me.CheckBox2.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            If Me.CheckBox1.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
            If Me.CheckBox3.Checked = True Then
                i += 1
            Else
                i -= 1
            End If
            Me.Label1.Text = i.ToString & "%"
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Label1.Text = "0%"
        End Sub
    End Class
    

    • Marcado como Resposta ivofb segunda-feira, 19 de junho de 2017 20:42
    domingo, 18 de junho de 2017 16:59
  • Boa Tarde João Paulo!

    Muito obrigado pela ajuda, sua dica me ajudou por demais.

    Forte abraço.

    segunda-feira, 19 de junho de 2017 20:42
  • De nada amigo.
    segunda-feira, 19 de junho de 2017 23:11