VB6 ReDim -- error 9 -- where am I going wrong?

This should be simple, but line 1050 is reporting error 9, subscript out of bounds.

Laugh at me if you must ... but where is my error?

Thanks!
Dim marBarControlsEnabled() As Boolean 
 
1040     If Not IsArray(marBarControlsEnabled) Then GoSub InitArray
1050     If UBound(marBarControlsEnabled, 1) < CommandBars1.Count Then GoSub InitArray
 
... now use the array
 
1200 InitArray:
    Dim iMaxBar As Integer, iMaxControl As Integer
'code to figure out the maxima ...
    
1270     ReDim Preserve marBarControlsEnabled(iMaxBar, iMaxControl)
    
1280     Return

Open in new window

LVL 32
Daniel WilsonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

DhaestCommented:
How is your array declared ? marBarControlsEnabled ?

If it's a one-dimension array, try this: If UBound(marBarControlsEnabled, 0)
0
Guy Hengel [angelIII / a3]Billing EngineerCommented:
you can only change 1 (the last) dimension of an array in VB6.

Dim marBarControlsEnabled() As Boolean
is a 1-dimension array, so you cannot do this:
ReDim Preserve marBarControlsEnabled(iMaxBar, iMaxControl)

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Daniel WilsonAuthor Commented:
I need it to be 2-dimensional.

But if I start with

Dim marBarControlsEnabled(2,200) As Boolean

the Redim preserve won't compile.  It's already been dimensioned.

0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

Daniel WilsonAuthor Commented:
I think I found it ... http://www.xtremevbtalk.com/showthread.php?t=82476

testing ...
0
Guy Hengel [angelIII / a3]Billing EngineerCommented:
you will need some other method than array.
0
GrahamSkanRetiredCommented:
You can only ReDim an array whose dimensions are not defined.

Dim marBarControlsEnabled() As Boolean


0
HooKooDooKuCommented:
Did you initially create the array with any dimensions?
It is possible to declare an array without specifying the dimensions.  If this is what you have done, then attempting to get a UBound on an undimensional array is going to error out.

A trick that I have done before to create a legal array, but FLAG it as "uninitiallized" is to dimensionalize it with -1.  For example, if you have a ONE dimensional array, I declare it like this...

Dim MyArray(-1 to -1) as Integer

Then I can test the array for initilization with UBound...

if UBound( MyArray, 1 ) < 0 then
   ReDim MyArray(1 to Max)
else
  ReDim Preserve MyArray(1 to Max)

The concept can be extended to multi-dimensions, just start with each diminsion from -1 to -1.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.