Solved

Can Several Form instances change Module Array

Posted on 1999-01-18
2
208 Views
Last Modified: 2010-05-03
I have a program that creates several instances of a form.
I also have a Module which includes a global array so as to allow all of the instanced forms to have access to.

My question is: What happens when several forms try to access AND change that array? Can 2 or more instanced forms access the same indexed area of an array and change it or does windows intervene and prevent another form from changing this array while another is working on it (and once done it allows the other to do whatever it wants to it as well)?  

I was thinking of accessing this global array inside the form itself like so:

private sub form_load()
 Global_Array(0)= Global_Array(0) & "Hello" 'Global_Array() is defined in Module1.bas
 Global_Array(1)=  Global_Array(0) & Global_Array(1) & "Hi"
 Global_Array(2)= Global_Array(0) &  Global_Array(1) &  Global_Array(2) & "Aloha"
end sub

BUT if i have several instances that are also created and who also change this global array i am wondering if it gets really messy or does windows halt an instance while another instance is working on the same index area of an array.

If it is messy then what about this idea: I place a procdure inside the Module1.bas file which includes an argument to the form object. With this i now know who is calling me and say maybe i have a static variable which tells me which form was in here last and if it isn't set to NULL then that tells me someone is still in here and so i should go into an infiinite loop until this static variable is set back to NULL.  Take a look:

public sub Change_Global(thisform as form1)
  static lastform as form1

  if lastform <> Nothing then
     do
       DoEvents
     loop until lastform = Nothing
  endif
  Set lastform = thisform

 Global_Array(0)= Global_Array(0) & "Hello"
 Global_Array(1)=  Global_Array(0) & Global_Array(1) & "Hi"
 Global_Array(2)= Global_Array(0) &  Global_Array(1) &  Global_Array(2) & "Aloha"
 
   Set lastform=Nothing
end sub


Hope this makes sense..If there is a better way or i am completely off or just plain idiotic please let me know. I am interested to find out what is the best solution.
0
Comment
Question by:ljaques
2 Comments
 
LVL 69

Accepted Solution

by:
Éric Moreau earned 10 total points
ID: 1469206
There is no problem doing all that. You can have multiple instance of a form that access a single public variable (or array) in a module. Window and VB handle that for you.

But a better solution can be to encapsulate by making your array as private and making public methods (sub or function) to deal with your array (that becomes a property).

If you whish to be purist, look at the class object.

0
 

Author Comment

by:ljaques
ID: 1469207
thanks very much emoreau...those were the wonderful words i was looking for.
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now