Damn variables

[iScanning]

Hey Colleges!!!

I have this question that's REALLY consuming me time!

I have this module where i made a Public type with 2000 "sub variables":

Public type Var1
v1 as long
v2 as long
v3 as long
...
end type

Each variable has 3 numbers separated with "," .
What i want to do is write a simple way of taking the values i put into each of the 2000 variables
Thats because i need to put the 3 numbers in a vb function, this is what i tryed:

For i = 1 To 2000

ii = 0 + 50

Dim a, b, c As String

a = Mid(Var1.v(i), 1, 4)
b = Mid(Var1.v(i), 5, 4)
c = Mid(Var1.v(i), 9, 4)

Picture1.PSet (0, ii), RGB(a, b, c)

Next

This doesn't work, and i wouldn´t like to write 2000 times the same code to take the values!

I appreciate any kind of help!

Thanks a lot guys!!

[Jop]

WHATTT??? WOOOWW??

You want to use 2000 variables???
hmm.. this doesn't seem to cool...
Use an array instead...

oh and
Dim a, b, c As String
is a realllll bad thing..
because a and b are declared as variants (which is not good in this case if you have alot of them )
use
Dim a As String, b As String, c As String
instead, but to keep it clean
use
Dim a$, b$, c$

[iScanning]

And i'm planning to use more variables, lol, but anyway,
if i use an array can i use the code i wrote? but if i do so i put the array where? Cause i need to make em accessable throught the program...

Thanks again!

Awaiting reply... Login OFF

[kedaman]

How about an array of longs:

Public type Var1 
  v(1999) as long 
End type