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!