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!

Please support us!