CallByName (Solved)

Please help me...

I am using CallByName in a module and it won't let me.
Let's say I have a Module1 and I am calling by name the Procedure one...

VB Code:

Public Sub Procedure1()
 MsgBox "Ta-Da!"
End Sub
 
Public Sub Procedure2(NameFun as String)
 CallByName Module1, NameFun, vbMethod
End Sub
 
Public Sub Procedure3()
 Procedure2 "Procedure1"
End Sub

It says Module1 is not an object or something like that... I cannot give either for parameter a Type defined by user if I use a Form instead of a module...

Besides the code must be there, in the form, in order to recognize it... Please help me!!!

I think it's because your function is in the module which isn't really an OBJECT. Unlike Classes Modules cannot be exposed through Automation interfaces.

Roy

CallByName(object, procedurename, calltype,[arguments()])

The 1st argument of this is an object. A module is NOT an object :(

If you have a class module called clsTest, which incidentally IS an object, that has the following properties:

VB Code:

Option Explicit
 
Private mstrDescription As String
 
Public Property Let Description(ByVal Value As String)
   mstrDescription = Value
End Property
 
Public Property Get Description() As String
   Description = mstrDescription
End Property

Then in your form have:

VB Code:

Option Explicit
 
Private Sub Form_Load()
Dim objTest As clsTest
   Set objTest = New clsTest
   MsgBox objTest.Description
   CallByName objTest, "Description", vbLet, "Woof"
   MsgBox objTest.Description
   MsgBox CallByName(objTest, "Description", vbGet)
   Set objTest = Nothing
End Sub

This WILL change the description property to "Woof"

Hope this helps,

Woka

I have been investigating CallByName... And you are right also... A module is not an object.

Let me tell you what I try to do... I defined a BTree in a Type. And I am trying to balance it. For so I thought about using an InOrder calling by name a function... Something like this:

VB Code:

Public Sub InOrder(n() As BTNode, num As Long, MyFun As String, ParamArray OtherArgs())
If n(num).ChildLeft > 0 Then InOrder n(), n(num).ChildLeft, MyFun, OtherArgs
CallByName n(), MyFun, vbMethod, OtherArgs
If n(num).ChildRight > 0 Then InOrder n(), n(num).ChildRight, MyFun, OtherArgs
End Sub

Why isn't it working? :( Please help me!

I don't want code an InOrder for every little thing that will use it.

Sorry, Have absolutely no idea what you are trying to do :(
What is a BTree? Is it some type of control?

Need more explanation...

Woka

You are doing the same mistake: you need an Object as first argument for CallByName function.

CallByName n(), MyFun, vbMethod, OtherArgs

"n()" is not an Object by some Type. This why it would never work for you.

Roy

Sorry, you read: "n()" is not an Object BUT some Type...

;-)

It comes from a Type I defined... A BTree is a Binary Tree I defined previously... Let me show you:

VB Code:

Public Type BTNode
 Info(0) As Integer
 Type As String
 Level As Long
 Parent As Long
 ChildLeft As Long
 ChildRight As Long
End Type
 
Public Type BTree
 Name As String
 Node() As BTNode
 Root As Boolean
 Index As Long
 Height As Long
 Grade As Integer
End Type

:( It is a type and not an object... What can I do?

Not exactly sure what is your goal. But let me ask you this: what's the problem? Are you too lazy to type your function name few more times or what? I'm confused, really.

The short of it is that you aren't using CallByNAme correctly.
1) n() needs to be an OBJECT, not a UserDefiendType (UDT). -- solution: Change from a UDT to a class.
2) You are saying that the name contained in MyFun is a method. ??? :confused: UDTs by nature do not have methods. Properties yes, maybe, but certanly not methods.

The easiest thing would be just to write the name of my Function in the InOrder and it would solve the problem.

But if I did so, I wouldn't be able to re-use the InOrder code and I would have to write it over and over for every operation I have to do with Binary Trees.

No, they are Types not objects...

Objects are 1 of the following 3:

• Forms
• User Controls
• Class Modules

That's it...nothing else :D

Have you looked at the help file? Press F1 while the cursor is over CallByName...this will explain it a little more.

VB Code:

CallByName n(), MyFun, vbMethod, OtherArgs

• n() - This is an array of a Type, and not an object
• MyFun - What is this? This is supposed to be a method or property of the object and is a string value ie - "Text"
• vbMethod - You are trying to execute a sub or function here
• OtherArgs - What are these? This is only used if you were executing a sub/funtion and want to pass some varibles to it

VB Code:

CallByName Form1, "Move", vbMethod, 100, 100

This code calls the Move function of Form1 and passes 100,100 to it. This would be exactally the same as doing:

VB Code:

Form1.Move 100, 100

Hope this helps,

Woka

That is the Solution, Techgnome! You got it as I was programming it... But I am not sure if I should pass all my code to a Class Module or just the code which will be used by the InOrder.

Thank you Workawidget, Techgnome and IRoy55. Because of you I was able to get an idea to make it work.

I used a class module in which I placed the possible functions to call and from there I called them.

Thank you... When I finish the Binary tree I will show it to you all.

Here you are guys, I am uploading the tree. So if you want to check it and comment about it, I would feel honored.

:)

Very good :D

One comment though....

Could be cleaned up a lot...
eg: U are passing ALL varibles to and from functions using ByRef :(
Instead of:

VB Code:

Public Sub InsertarN(Arbol As BTree, Data As Long)

Use:

VB Code:

Public Sub InsertarN(ByVal Arbol As BTree, ByVal Data As Long)

Unless you specifically require the passed varible to change...

Good code though...:)

Woka