FindObject függvény

Lehetővé teszi, hogy egy objektumot a futásidő alatt az objektum neveként megadott karakterláncként címezzen meg.

Például a következő parancs:


MyObj.Prop1.Command = 5

az alábbi parancsblokknak felel meg:


Dim ObjVar as Object
Dim ObjProp as Object
ObjName As String = "MyObj"
ObjVar = FindObject( ObjName As String )
PropName As String = "Prop1"
ObjProp = FindPropertyObject( ObjVar, PropName As String )
ObjProp.Command = 5

Ez lehetővé teszi nevek dinamikus létrehozását futás közben. Például:

"TextEdit1" to TextEdit5" egy ciklusban öt vezérlőelemnév létrehozásához

Lásd még: FindPropertyObject

Szintaxis:


FindObject( ObjName As String )

Paraméterek:

Objektumnév: Karakterlánc, amely a futásidő alatt megcímezni kívánt objektum nevét adja meg.

Hibakódok:

5 Érvénytelen eljáráshívás

12 A változó nincs definiálva

Please support us!