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.

See also: рднреЗрдЯрд╛рдЙрдиреЗ рдЧреБрдг рд╡рд╕реНрддреБ

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


FindObject( ObjName As String )

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

ObjName: рд╕реНрдЯреНрд░рд┐рдЩ рддреНрдпрд╕рд▓реЗ рд╡рд╕реНрддреБ рдирд╛рдо рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд░рди-рдЯрд╛рдЗрдордорд╛ рдареЗрдЧрдирд╛ рд░рд╛рдЦреНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

12 рдЪрд▓ рдЕрдкрд░рд┐рднрд╛рд╖рд┐рдд