Modules and User Controls

Question

0.00/5 (No votes)

See more:

Hello everyone

I have an VB6 project which contains of several Modules. Most of them are public.

Now I have added a simple user control to the project and in that user control, I have a function which I need to access from one of the modules. The user control's public property is set to true.

In one of the modules, I try the following code

VB

Public Function CallVal()

Dim configmgr As ucConfigMgr

configmgr.VA //error on this line


Set configmgr = Nothing

End Function

In the above code, I get an error "Object variable or With block variable not set"

I am not understanding where I have gone wrong.

If someone could please help me figure out this problem, it will be really great.

--
AJ

Posted 29-Jun-11 5:45am

ankitjoshi24

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

hitesh_tech · Answer 1 · 2011-06-29T06:01:00

Solution 1

The line where your getting error try using as below

With configmgr
   .VA
End Eith

Posted 29-Jun-11 6:01am

hitesh_tech

Comments

ankitjoshi24 29-Jun-11 13:27pm

Hey

I tried that but still the same error.

S Houghtelin · Answer 2 · 2011-06-29T06:53:00

Solution 2

You need to set your declared object to something.

VB

Public Function CallVal()

    Dim configmgr As ucConfigMgr
    Set configmgr = ucConfigMgr

    'What is this line trying to do?
    configmgr.VA 

    Set configmgr = Nothing

End Function

Posted 29-Jun-11 6:53am

S Houghtelin

Comments

ankitjoshi24 29-Jun-11 13:28pm

configmgr.VA is calling a sub procedure which is in the usercontrol.

S Houghtelin 29-Jun-11 13:29pm

OK, this should work then.

ankitjoshi24 29-Jun-11 13:30pm

Ya it should. Seems correct in every manner. But still it gives me that error. Not sure where I am wrong. Just if I could solve this thing.............

S Houghtelin 29-Jun-11 13:37pm

To see if the object was successfully created try typing just configmgr, then add the "." this should expose the objects visible properties.

If nothing shows up you may to make sure that configmgr exists or that VA is a public property or function.

ankitjoshi24 29-Jun-11 13:38pm

I have used the "." so that it shows me properly which methods or sub procedures are public and can be used. And I even reconfirmed by checking it myself and found that the sub procedure is public.

S Houghtelin 29-Jun-11 13:46pm

Is the function trying to return a value? Or is is it expecting a value?

If it returns a value then the line should read myVar = configmgr.VA
the other way around would be configmgr.VA(myVar)

ankitjoshi24 29-Jun-11 13:52pm

No. It neither returns a value nor it requires a value. It's just a normal sub procedure which performs actions statically and prints the result to a text box. So there is nothing to return.

ankitjoshi24 29-Jun-11 13:54pm

Just another question, are there any constructors for the usercontrols in VB6?

S Houghtelin 29-Jun-11 15:55pm

You may need to declare the configmgr object outside of the function. Then the with/end with may work. You will have to experiment some. Also assure that configmgr is referenced by the project.