FindPropertyObject-funktion

Tillader objekter at blive adresseret under kørselstid som en strengparameter ved brug af objektnavnet.

For eksempel følgende kommando:


MyObj.Prop1.Command = 5

modsvarer kommandoblokken:


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

Dette tillader at navne oprettes dynamisk på kørselstidspunktet. For eksempel:

"TextEdit1" til TextEdit5" i en løkke for at oprette fem kontrolelementers navne.

Se også:FindObject

Syntaks:


FindPropertyObject( ObjVar, PropName As String )

Parametre:

ObjVar: Objektvariabel, som du dynamisk vil definere under kørselstid.

PropName: Streng som angiver navnet for egenskaben som du vil adressere under kørselstid.

Fejlkoder:

5 Ugyldigt Procedurekald

12 Variable ikke defineret

14 Ugyldig parameter

52 Ugyldig filenavn or filnummer

57 Enhed I/O fejl