Reader String - Xtreme Visual Basic Talk

06-29-2012, 11:13 AM

JackPS9

Newcomer

Join Date: Jun 2012

Posts: 11

Reader String

How can I convert the item number in the combo box to be use able?
I keep getting told to change RaceNum to a double but I need the RaceNum to stay as a int so it reads the files 1-15 but it starts at 0.

Error that I keep getting.
"Conversion from string "C:\Users\Home\Pictures\Tim\Tides" to type 'Double' is not valid."

I can't continue on coding till it works cause its part of how a player sets up their character for my game.

Code:

    Private Sub cboRace_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboRace.SelectedIndexChanged
        RaceNum = cboRace.SelectedItem
        Race = CurDir() + "/Plugins/Races/Race"
        Race = Race + RaceNum
        Race = Race + ".phg"
        Dim Reader As New System.IO.StreamReader(Race)

Last edited by JackPS9; 06-29-2012 at 11:56 AM.

06-29-2012, 03:56 PM

PlausiblyDamp

Ultimate Contributor

Forum Leader
* Expert *

Join Date: Nov 2003

Location: Wigan, UK

Posts: 1,678

Where is RaceNum declared?

The error isn't the fact that RaceNum is an int or a double the problem is the selected item is a string such as "C:\Users\Home\Pictures\Tim\Tides" and this can't be converted to a numeric type.

__________________
Intellectuals solve problems; geniuses prevent them.
-- Albert Einstein

Posting Guidelines Forum Rules Use the code tags

06-30-2012, 12:41 AM

Gruff

Bald Mountain Survivor

Super Moderator
* Expert *

Join Date: Aug 2003

Location: Oregon, USA

Posts: 5,882

What you are looking for is not selecteditem (The content), but selectedindex (The Item Offset number from zero). To return a number from 1 you will have to add 1.

Code:

Private Sub cboRace_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboRace.SelectedIndexChanged
        RaceNum = cboRace.SelectedIndex + 1   '<-- index Not Item
        Race = CurDir() + "/Plugins/Races/Race"
        Race = Race + RaceNum
        Race = Race + ".phg"
        Dim Reader As New System.IO.StreamReader(Race)
        ...

__________________
Burn the land and boil the sea
You can't take the sky from me

~T