What's wrong with this

[mrcw]

Private Sub NextButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextButton.Click
 
        Dim PageSelected As String = "Page"
        Page = Page + 1
 
        Select Case PageSelected
            Case 1
                AllHide()  'subroutine that hides all things on the page
                VisibleOnPage01()  'subroutine that shows things applicable to Page01
            Case 2
                AllHide()
                VisibleOnPage02()
            Case 3
                AllHide()
                VisibleOnPage03()
            Case 4
                AllHide()
                VisibleOnPage04()
            Case Else
                MsgBox("error")
 End Select
    End Sub
 

Each time the button is pressed it should increment the variable page the run through the case statement untill the page is found then show the items on the page, but all that happens is a msgbox appears and says error. I don't know why.

[Dököll]

@mrcw
Perhaps in 'Dim PageSelected As String = "Page"
' "Page" is not needed. Looks like you defining page twice, at quick glance...

[rpicilli]

@mrcw

Hi there.

There some mistakes in your code.

You declare PageSelected as string and give then "Page". OK
After you Add 1 to the variable Page. I suppose this variable was declare elsewhere if not you need to declare and initialize this variable Page.

In the Select Case you use PageSelected. This variable never will have the value 1. Remember its string and has "Page" as contents.

I hope this help you

Rpicilli

[mrcw]

Thanks for the reply, but I'm afraid it's still as clear as mud! Could you rearrange my code to give me a case statement that works please. I learn better by building on a somple example.
Thanx
mrcw

[rpicilli]

@mrcw
You know, I can do that but you will learn nothing. The better way to learn is reading books or help files and try a lot. Excuse me by this kind of comments but that is the true.

'The line below must be off of your buttom click event or allways the Page 'will 'be 0 and you'll be able to select only the first page.
Dim iPage as integer = 0
 
Dim PageSelected As String = "Page" 
 
        iPage = iPage + 1 
 
        Select Case iPage 
            Case 1 
                AllHide()  'subroutine that hides all things on the page 
                VisibleOnPage01()  'subroutine that shows things applicable to Page01 
            Case 2 
                AllHide() 
                VisibleOnPage02() 
            Case 3 
                AllHide() 
                VisibleOnPage03() 
            Case 4 
                AllHide() 
                VisibleOnPage04() 
            Case Else 
                MsgBox("error") 
 End Select 
 
 
 

That change in the code will make your select works, just the Select not the other Functions that you've created.

[mrcw]

Thanks ripicili but I had allready worked it out - my code was similar but not exactly to yours
mrcw