Input string was not in a correct format

Dwizz · #1 (**permalink**) April 4th, 2005, 06:08 AM

hey,
i've tried everything i know to change the following code into a format that i thought would be accepted by vb.net,
but i'm not having any success.
Can anyone please help me!!!

Code

Sub CheckMain(sender As Object, e As EventArgs)
        if sys.SelectedItem.Value is "6024H-I" or "6014H-T" or "6014P-82R" or "7044H-T" then
        dualxeon.visible = True
        elseif sys.SelectedItem.Value is "6013P-T" or "6023P-I" then
        xeon.visible = True
        elseif sys.SelectedItem.Value is "5013C-T" then
        p4.visible = True
        elseif sys.SelectedItem.Value is "6113L-8" then
        itanium.visible = True
        else
        MsgBox("Please choose a Server to continue")
        end if
    End Sub

END CODE

All help would be really appreciated

BrianWren · #2 (**permalink**) April 4th, 2005, 10:49 AM

If you put [ code] at the beginning of a block of code (remove the space) and [ /code] (remove the space) after a block of code when you make a post here, a new line will be generated before and after, and the text in between will be fixed proportion.

Try

Code:

Sub CheckMain(sender As Object, e As EventArgs)

    if sys.SelectedItem.Value = "6024H-I" Or sys.SelectedItem.Value = "6014H-T" Or _
       sys.SelectedItem.Value = "6014P-82R" Or sys.SelectedItem.Value = "7044H-T" Then
        dualxeon.visible = True
    ElseIf sys.SelectedItem.Value = "6013P-T" Or sys.SelectedItem.Value = "6023P-I" Then
        xeon.visible = True
    ElseIf sys.SelectedItem.Value = "5013C-T" Then
        p4.visible = True
    ElseIf sys.SelectedItem.Value = "6113L-8" then
        itanium.visible = True
    Else
        MsgBox("Please choose a Server to continue")
    End If

End Sub

For readability, you could use

Code:

Sub CheckMain(sender As Object, e As EventArgs)

    Select Case sys.SelectedItem.Value
        Case "6024H-I", "6014H-T", "6014P-82R", "7044H-T"
            dualxeon.visible = True

        Case "6013P-T", "6023P-I"
            xeon.visible = True

        Case "5013C-T"
            p4.visible = True

        Case "6113L-8"
            itanium.visible = True

        Case Else
            MsgBox("Please choose a Server to continue")

    End Select

End Sub

Also (if I were you) I would use the shift key a little more.
“i've tried everything i know...” (compared to “I've tried everything I know...”) looks like a post by a 14 year old girl using instant messaging . . . (Just a thought.)

Dwizz · #3 (**permalink**) April 4th, 2005, 11:03 AM

Thanks for the reply Brian,
plus I'll use the shift key a little bit more

Need to download code?

Navigation