FindObject 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.

āĻ†āĻ°āĻ“ āĻĻā§‡āĻ–ā§āĻ¨: FindPropertyObject

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


FindObject( ObjName As String )

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

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

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

Please support us!