VBGamer

All Forums  VBGamer  VBGamer  Interesting CallByName limitation (VB 6)

Note: You must be registered in order to post a reply.

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by Eric Coleman[/i] [br]I'm posting this to see if anyone else has had this issue, especially for scripting engines. The help file for CallByName is wrong, the last paramter is not an Array of type Variant. The CallByName's last parameter is a ParamArray delcaration. The problem I've run into is that I can't dynamically call "CallByValue." What I mean by that is I can't create a wrapper function for it. CallByName is generally called like so... [code] CallByName MyObject, "TestMethod", vbMethod, A, B, C, D, E, F, G [/code] Where the parameters A, B, C, etc. are all optional. The limitation that I've run into is that the following CAN NOT work... [code] Public Sub MySub(objObject as Object, strName as String, ParamArray p()) CallByName objObject, strName, [... ??? ...] End Sub [/code] If no parameters other than the required "objObject" and "strName" are passed to MySub, then the upper bound of "p" will be -1. Calling the sub like so, MySub o, "tmp", A, B, C, D would yield the array p to be from 0 to 3, where p(0) = A, p(1) = B, etc. The only option that I can think of is to have a giant select case statement and hope that I don't ever go over some predefined limit of paramters for a function. [code] Public Sub MySub(objObject as Object, strName as String, ParamArray p()) Select Case Ubound(p) Case -1 CallByName objObject, strName Case 0 CallByName objObject, strName, p(0) Case 1 CallByName objObject, strName, p(0), p(1) Case 2 CallByName objObject, strName, p(0), p(1), p(2) Case 3 CallByName objObject, strName, p(0), p(1), p(2), p(3) Case 4 CallByName objObject, strName, p(0), p(1), p(2), p(3), p(4) Case Else 'Error End Sub [/code] As you can tell, this is very limiting, and because it can't handle arbitrary numbers of paramters, it sucks. Other than the large Select Case solution, does anyone have any ideas on how to pass an unknown number of parameters at runtime to a CallByName function (or any function for that matter)? [/quote]    Insert an File Check here to include your profile signature. Check here to subscribe to this topic.