Private Function updateValues() Label1.Text = My.Settings.str1 & " Votes: " & My.Settings.Option1 Label2.Text = My.Settings.str2 & " Votes: " & My.Settings.Option2 Label3.Text = My.Settings.str3 & " Votes: " & My.Settings.Option3 End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load updateValues() Label4.Text = My.Settings.question End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click My.Settings.Option1 += 1 updateValues() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click My.Settings.Option2 += 1 updateValues() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click My.Settings.Option3 += 1 updateValues() End Sub
Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click My.Settings.Option1 += 1 updateValues() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click My.Settings.Option2 += 1 updateValues() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click My.Settings.Option3 += 1 updateValues() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load updateValues() Label4.Text = My.Settings.question End Sub Private Function updateValues() Label1.Text = My.Settings.str1 & " Votes: " & My.Settings.Option1 Label2.Text = My.Settings.str2 & " Votes: " & My.Settings.Option2 Label3.Text = My.Settings.str3 & " Votes: " & My.Settings.Option3 End Function End Class
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.