Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Sub problem

Posted on 1998-10-07
9
172 Views
Last Modified: 2010-04-30
I do something in a Sub for a String array
Sub (S() As String)
   S(0)=...
   ...
End Sub
I need to do the very similar thing for an Integer array as well. How can I use the same array with a littel bit changing?
0
Comment
Question by:victorlong
9 Comments
 
LVL 1

Expert Comment

by:blwatkins
ID: 1438633
if you are saying that you are trying to pass two arrays in and out, such as: "Sub (S() as string, I() as integer)", then change the sub to a function instead of a sub..
0
 

Author Comment

by:victorlong
ID: 1438634
No, I want pass only one array each time.
My question realy is how to make the following two Subs into one Sub.
Sub (S() As String)
       S(0)=...
       ...
End Sub
Sub (I() As Integer)
       I(0)=...
       ...
End Sub
 
0
 

Author Comment

by:victorlong
ID: 1438635
To  blwatkins:

Sorry. I found something wrong in my question, I should say
"How to use the same Sub with a littel bit changing to deal with another array with different declearation"?

You are wellcome to re-answer my question, or ask me to explain more clearly.
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 12

Expert Comment

by:mark2150
ID: 1438636
Sub( I() as variant )

0
 

Author Comment

by:victorlong
ID: 1438637
To mark2150:

Thank you, I will try. However, do you think variant need much more memory or much slow?
0
 

Author Comment

by:victorlong
ID: 1438638
I have tried

dim I() As Integer, S() As String
Test I()
Test S()
Sub Test( I() as variant )
..
End Sub

and got error!

0
 
LVL 15

Expert Comment

by:Eyal
ID: 1438639
can you send the code you are writen so far?
0
 
LVL 6

Expert Comment

by:andyclap
ID: 1438640
don't forget to declare them byval, so that vb can convert them to variants...

sub Test(byval v() as variant)

Variants are fairly slow compared to ints. We could get into a wonderful discussion on polymorphism here, but I'm about to go home!
0
 
LVL 13

Accepted Solution

by:
Mirkwood earned 40 total points
ID: 1438641
Just declare it like
private Sub MySub(S as variant)

0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

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…
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

791 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