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!