Message
 
 
À
21/06/2001 09:19:33
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00521730
Message ID:
00521917
Vues:
13
April,

lc_ClassName is a character string in your first call.
bc.Controls[i] isn't exactly guaranteed to be the object you just added, unless the bc container was empty. And your loop counter might be running off the end of your collection inside bc.

try this instead:

ObjBrowser( eval( "bc." + lc_ClassName ) )

>code is as follows
>
>FOR i = 1 to ThisForm.lstSelected.ListCount
> SEEK ThisForm.lstSelected.List(i)
> lc_classname = ALLTRIM(rmgrobj.filename)
> SET CLASSLIB TO (g_cWorkDir + lc_classname) ADDITIVE
> bc.AddObject(lc_classname, lc_classname)
>
> DO ObjBrowser WITH lc_ClassName && or another way I tried
> DO ObjBrowser WITH bc.controls(i) && bc is the container
>
>
>ENDFOR
> That last line of code does not run because the object browser is looking for an object...and it says the para is no object.
>as in
>
>start up code from ObjBrowser.prg
>LPARAMETER toObject
>oObjInspect = CREATE("Objectinspectorform",toObject)
>oObjInspect.Show()
>
>Thanks
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Répondre
Fil
Voir