FindObject funktsioon

VÔimaldab pöörduda kÀitusajal objekti 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: FindPropertyObject

SĂŒntaks:


FindObject( ObjName As String )

Parameetrid:

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

Veakoodid:

5 Vigane protseduuri vÀljakutse

12 Muutuja ei ole defineeritud

Palun toeta meid!