FindPropertyObject Function

āĻŦāĻ¸ā§āĻ¤ā§āĻ° āĻ¨āĻžāĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ° āĻšāĻŋāĻ¸ā§‡āĻŦā§‡ āĻ°āĻžāĻ¨ āĻŸāĻžāĻ‡āĻŽā§‡ āĻŦāĻ¸ā§āĻ¤ā§āĻŸāĻŋ āĻ¸āĻŽā§āĻŦā§‹āĻ§āĻ¨ āĻ•āĻ°āĻž āĻ¸āĻ•ā§āĻ°āĻŋā§Ÿ āĻ•āĻ°āĻž āĻšā§ŸāĨ¤

āĻ¯ā§‡āĻŽāĻ¨, āĻ¨āĻŋāĻšā§‡āĻ° āĻ•āĻŽāĻžāĻ¨ā§āĻĄāĻŸāĻŋ:


MyObj.Prop1.Command = 5

āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻŦā§āĻ˛āĻ•ā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāĻ¤:


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

āĻāĻŸāĻŋ āĻšāĻžāĻ˛āĻ¨āĻžāĻ°-āĻ¸āĻŽāĻ¯āĻŧ āĻ¨āĻžāĻŽ āĻšāĻ˛āĻŽāĻžāĻ¨āĻ­āĻžāĻŦā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻŽā§āĻŽāĻ¤āĻŋ āĻĻā§‡āĻ¯āĻŧāĨ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ:

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

āĻĻā§‡āĻ–ā§āĻ¨: FindObject

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


FindPropertyObject( ObjVar, PropName As String )

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

ObjVar: āĻŦāĻ¸ā§āĻ¤ā§ āĻ­ā§‡āĻ°āĻŋā§Ÿā§‡āĻŦāĻ˛ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ āĻ°āĻžāĻ¨ āĻŸāĻžāĻ‡āĻŽā§‡ āĻĄāĻžāĻ‡āĻ¨āĻžāĻŽāĻŋāĻ•ā§āĻ¯āĻžāĻ˛āĻŋ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤

PropName: āĻ°āĻžāĻ¨ āĻŸāĻžāĻ‡āĻŽā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯āĻžāĻŦāĻ˛ā§€āĻ° āĻ¨āĻžāĻŽ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¤āĻž āĻ¸ā§āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻ•āĻžāĻ°ā§€ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚āĨ¤

Error codes:

5 Invalid procedure call

12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined

14 Invalid parameter

52 Bad file name or number

57 Device I/O error

Please support us!