Checkbox ticado mostra porcentagem em label

Question

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.

Answer 1

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.

Answer 2

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.

Answer 3

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

Answer 4

Boa Tarde João Paulo!

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

Forte abraço.

Answer 5

De nada amigo.