vb.net - Using a variable to retrieve image from My.Resources -
here code (everything pre-declared use in entire form's class):
private sub pokedex_load(byval sender system.object, byval e system.eventargs) handles mybase.load intpokemoncounter = 0 dim filereader system.io.streamreader filereader = my.computer.filesystem.opentextfilereader("totalpokemonnames.txt") while (intpokemoncounter < 51) pokémonname(intpokemoncounter) = filereader.readline() listpokemon.items.add(pokémonname(intpokemoncounter)) combobox1.items.add(pokémonnumber(intpokemoncounter) + "" + pokémonname(intpokemoncounter)) 'msgbox("the " & intpokemoncounter + 1 & "th pokemon " & pokémonname(intpokemoncounter)) intpokemoncounter += 1 end while intpokemoncounter = 0 while (intpokemoncounter < 51) pokémonnumber(intpokemoncounter) = intpokemoncounter + 1 if pokémonnumber.length = 1 pokémonnumber(intpokemoncounter) = "00" + (intpokemoncounter + 1) elseif pokémonnumber.length = 2 pokémonnumber(intpokemoncounter) = "0" + (intpokemoncounter + 1) end if intpokemoncounter += 1 end while intpokemoncounter = 0 while (intpokemoncounter < 51) pokemonpics(intpokemoncounter < 51) = my.resources.(pokémonname(intpokemoncounter) &".png") listpokemon.items.add(pokémonnumber(intpokemoncounter) + pokémonname(intpokemoncounter)) 'msgbox("the " & intpokemoncounter + 1 & "th pokemon " & pokémonname(intpokemoncounter)) intpokemoncounter += 1 end while end sub
the problem i'm having not being able choose picture out of names loaded .txt file. pictures loaded resources , dont want make 151 if statements each pokemon, based off of big data. when place this, says "identifier expected", instead of accepting variable used in line
pokemonpics(intpokemoncounter < 51) = my.resources.(pokémonname(intpokemoncounter) &".png")
originally going load picture directly picturebox hoped array might fix problem, did not. final project, re-creating pokemon red in visual basic 2008 express edition. thank provided.
Comments
Post a Comment