FindPropertyObject funktsioon

VÔimaldab pöörduda kÀitusajal objektide poole stringiparameetrina objekti nime abil.

NÀiteks jÀrgmine kÀsk:


MyObj.Prop1.Command = 5

vastab kÀsuplokile:


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

See vĂ”imaldab kĂ€itusajal luua nimed dĂŒnaamiliselt. NĂ€iteks:

"TextEdit1" to "TextEdit5" in a loop to create five control names.

Vaata ka: FindObject

SĂŒntaks:


FindPropertyObject( ObjVar, PropName As String )

Parameetrid:

ObjVar: objektimuutuja, mille soovid kĂ€itusajal dĂŒnaamiliselt mÀÀrata.

PropName: string, mis mÀÀrab selle omaduse nime, mille poole soovid kÀitusajal pöörduda.

Veakoodid:

5 Vigane protseduuri vÀljakutse

12 Muutuja ei ole defineeritud

14 Vigane parameeter

52 Vigane failinimi vÔi failide arv

57 Seadme sisend-/vÀljundviga

Palun toeta meid!