Need Help VB 2005 buttons. pleeease

[scriptman]

Hi,

im making a voting system program for an assignment which it biased towards one of the candidates, when u click "vote" on the one it doesnt want to win, it displays a few msgboxes. then next time that button is clicked i need the button to resize. ive been thinking for like 3hrs and vb doesnt allow like an OnClick thing or a away to check if the msgboxes part has been done, below is a download link to my project files. someone please check em out im real stuck.



screenshot:


download code:
http://uploadcrap.com/d/dlELECTION.html

code:

Public Class frmElection

    Private Sub btnVoteKerry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteKerry.Click
        MsgBox("Thank you for voting for the only sensible choice.", MsgBoxStyle.Information)
        Me.Close()
    End Sub

    Private Sub btnVoteGibbo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteGibbo.Click
        Dim result As MsgBoxResult
        Dim ShrinkBtn As Integer

        result = MsgBox("Are you sure?", MsgBoxStyle.YesNo, "Are you sure?")
        If result = MsgBoxResult.No Then
        Else
            result = MsgBoxResult.Yes
            result = MsgBox("Are you really sure?", MsgBoxStyle.YesNo, "Are you sure?")
            If result = MsgBoxResult.No Then
            End If
            'space
            If result = MsgBoxResult.No Then
            Else
                result = MsgBoxResult.Yes
                result = MsgBox("You can't be serious!", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                End If
            End If
            If result = MsgBoxResult.No Then
            Else
                result = MsgBoxResult.Yes
                result = MsgBox("You don't really want to vote for that daywalker!", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                Else
                    MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
                End If
            End If
        End If

    End Sub


End Class

[scriptman]

anyone?

[stanav]

1. How many times do you want to confirm when Gibson is voted for?
2. When you you want the button to resize? And by what factor?

[scriptman]

Gibson cannot be voted for, the msgbox code should run only once, then on the next click of the button it should resize to say 20, 20. then on the next click after that ill be making the button move around the form so the user cannot click it

[jmcilhinney]

It's not quite clear what you're asking for. Are you saying that when that button is clicked you want two things to happen alternately? The first time the messages, then the second time the button resizes, then the third time the messages, etc.? If so then you just need a variable, declared at class level, that you test each time and then change. It could be a Boolean that you toggle:

Private myBoolean As Boolean = True
 
Private Sub MySub()
    If myBoolean Then
        'Do the first thing.
    Else
        'Do the other thing.
    End If
 
    myBoolean = Not myBoolean
End Sub

or an Integer that you increment:

Private myInteger As Integer = 0
 
Private Sub MySub()
    If myInteger Mod 2 = 0 Then
        'Do the first thing.
    Else
        'Do the other thing.
    End If
 
    myInteger += 1
End Sub

[jmcilhinney]

OK, just saw those new posts. If you have more than 2 things to do then you'd go with the Integer and use the number of different operations you have instead of 2, e.g.:

Select Case myInteger Mod 4
    Case 0
        '...
    Case 1
        '...
    Case 2
        '...
    Case 3
        '...
End Select

[scriptman]

heres what i have to far
i have to do the following,
1)display the msgboxes
2)resize smaller
3)then after the small button is clicked resize back to normal
4)on the next click move around the form when the user tries to click it
5)the vote buttons should swap places

this code does 1 to 3

Public Class frmElection
    Dim MsgFlag As Integer = 0
    Private Sub btnVoteKerry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteKerry.Click
        MsgBox("Thank you for voting for the only sensible choice.", MsgBoxStyle.Information)
        Me.Close()
    End Sub
 
    Private Sub btnVoteGibbo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteGibbo.Click
        Dim result As MsgBoxResult
 
        MsgFlag = MsgFlag + 1
        If MsgFlag = 2 Then
            'This will fire when MsgFlag = 2
            btnVoteGibbo.Width = 20
            btnVoteGibbo.Height = 20
            MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
            MsgFlag = 1
            btnVoteGibbo.Width = 136
            btnVoteGibbo.Height = 41
        Else
            'If MsgFlag is any value other than 2 the message boxes will show
            result = MsgBox("Are you sure?", MsgBoxStyle.YesNo, "Are you sure?")
            If result = MsgBoxResult.No Then
            Else
                result = MsgBoxResult.Yes
                result = MsgBox("Are you really sure?", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                End If
                'space
                If result = MsgBoxResult.No Then
                Else
                    result = MsgBoxResult.Yes
                    result = MsgBox("You can't be serious!", MsgBoxStyle.YesNo, "Are you sure?")
                    If result = MsgBoxResult.No Then
                    End If
                End If
                If result = MsgBoxResult.No Then
                Else
                    result = MsgBoxResult.Yes
                    result = MsgBox("You don't really want to vote for that daywalker!", MsgBoxStyle.YesNo, "Are you sure?")
                    If result = MsgBoxResult.No Then
                    Else
                        MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
                    End If
                End If
            End If
 
        End If
    End Sub
 
End Class

[stanav]

Try this code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MsgBox("Are you sure?", MsgBoxStyle.YesNo, "Are you sure?") = MsgBoxResult.Yes Then
            Dim currentSize As Size = Button1.Size
            Dim newSize As Size = New Size(20, 20)
            If currentSize <> newSize Then
                Button1.Size = newSize
            Else
                'Put the code to move the button around here
 
            End If
        End If
    End Sub

[scriptman]

doesnt work. it still runs the msgbox code after the resize

[jmcilhinney]

I can't quite see the issue. I've shown you how to accomplish your aim. Use a Select Case statement and use the number of different operations as the second operand to Mod. Have a Case for each number from zero to one less than the number of different operations and put one operation in each Case. Increment the counter after the End Select.

Note that you should put each operation in its own method for clarity, then call those methods from the Cases.

[scriptman]

I can't quite see the issue. I've shown you how to accomplish your aim. Use a Select Case statement and use the number of different operations as the second operand to Mod. Have a Case for each number from zero to one less than the number of different operations and put one operation in each Case. Increment the counter after the End Select.

Note that you should put each operation in its own method for clarity, then call those methods from the Cases.

Sorry i have not yet been taught the "Select Case statement " nor do i understand it

[kayos]

in lieu of the Select Case statment you could use an If Else If statement like so:

Dim myNewInt As Integer =  myInteger Mod 4
 
If myNewInt = 0 Then
     '...
Else If myNewInt = 1 Then
     '...
Else If myNewInt = 2 Then
     '...
Else If myNewInt = 3 Then
     '...
End If

all be it not as clean, but if you don't know Select Case it'll do the job.

[scriptman]

this works

Public Class frmElection
    Dim MsgFlag As Integer = 1
    Private Sub btnVoteKerry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteKerry.Click
        MsgBox("Thank you for voting for the only sensible choice.", MsgBoxStyle.Information)
        Me.Close()
    End Sub
 
    Private Sub btnVoteGibbo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteGibbo.Click
        Dim result As MsgBoxResult
 
 
        Select Case MsgFlag
            Case 1
                MsgFlag = MsgFlag + 1
                'If MsgFlag is any value other than 2 the message boxes will show
                result = MsgBox("Are you sure?", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                Else
                    result = MsgBoxResult.Yes
                    result = MsgBox("Are you really sure?", MsgBoxStyle.YesNo, "Are you sure?")
                    If result = MsgBoxResult.No Then
                    End If
                    'space
                    If result = MsgBoxResult.No Then
                    Else
                        result = MsgBoxResult.Yes
                        result = MsgBox("You can't be serious!", MsgBoxStyle.YesNo, "Are you sure?")
                        If result = MsgBoxResult.No Then
                        End If
                    End If
                    If result = MsgBoxResult.No Then
                    Else
                        result = MsgBoxResult.Yes
                        result = MsgBox("You don't really want to vote for that daywalker!", MsgBoxStyle.YesNo, "Are you sure?")
                        If result = MsgBoxResult.No Then
                        Else
                            MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
                        End If
                    End If
                End If
            Case 2
                If MsgFlag = 2 Then
                    'This will fire when MsgFlag = 2
                    btnVoteGibbo.Width = 20
                    btnVoteGibbo.Height = 20
                    MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
                    MsgFlag = MsgFlag + 1
                    btnVoteGibbo.Width = 136
                    btnVoteGibbo.Height = 41
                End If
            Case 3
                If MsgFlag = 3 Then
                    MsgBox("case3")
                End If
        End Select
    End Sub
End Class