FindPropertyObject Function
āĻŦāĻ¸ā§āĻ¤ā§āĻ° āĻ¨āĻžāĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻāĻāĻāĻŋ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ° āĻšāĻŋāĻ¸ā§āĻŦā§ āĻ°āĻžāĻ¨ āĻāĻžāĻāĻŽā§ āĻŦāĻ¸ā§āĻ¤ā§āĻāĻŋ āĻ¸āĻŽā§āĻŦā§āĻ§āĻ¨ āĻāĻ°āĻž āĻ¸āĻā§āĻ°āĻŋā§ āĻāĻ°āĻž āĻšā§āĨ¤
āĻ¯ā§āĻŽāĻ¨, āĻ¨āĻŋāĻā§āĻ° āĻāĻŽāĻžāĻ¨ā§āĻĄāĻāĻŋ:
āĻāĻŽāĻžāĻ¨ā§āĻĄ āĻŦā§āĻ˛āĻā§āĻ° āĻ¸āĻžāĻĨā§ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻāĻŋāĻ¤:
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: āĻ°āĻžāĻ¨ āĻāĻžāĻāĻŽā§ āĻāĻĒāĻ¨āĻŋ āĻ¯ā§ āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯āĻžāĻŦāĻ˛ā§āĻ° āĻ¨āĻžāĻŽ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨ āĻ¤āĻž āĻ¸ā§āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻāĻāĻžāĻŦā§ āĻāĻ˛ā§āĻ˛ā§āĻāĻāĻžāĻ°ā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻāĨ¤
12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined 12 Variable undefined
52 Bad file name or number