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.
See also: рднреЗрдЯрд╛рдЙрдиреЗ рд╡рд╕реНрддреБ
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
FindPropertyObject( ObjVar, PropName As String )
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
ObjVar:рд╡рд╕реНрддреБ рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рд░рди-рдЯрд╛рдЗрдордорд╛ рдЧрддрд┐рдпреБрдХреНрдд рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
PropName: рд╕реНрдЯреНрд░рд┐рдЩ рддреНрдпрд╕рд▓реЗ рдЧреБрдгрдХреЛ рдирд╛рдо рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд░рди-рдЯрд╛рдЗрдордорд╛ рдареЗрдЧрдирд╛ рджрд┐рди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ
5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓
12 рдЪрд▓ рдЕрдкрд░рд┐рднрд╛рд╖рд┐рдд
14 рдЕрд╡реИрдз рдкрд░рд╛рдорд┐рддрд┐
52 рдЦрд░рд╛рдм рдлрд╛рдЗрд▓ рдирд╛рдо рд╡рд╛ рдирдореНрдмрд░
57 рд╕рдзрд╛рди I/O рддреНрд░реБрдЯрд┐