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.

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

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


FindPropertyObject( ObjVar, PropName As String )

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

ObjVar:рд╡рд╕реНрддреБ рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рд░рди-рдЯрд╛рдЗрдордорд╛ рдЧрддрд┐рдпреБрдХреНрдд рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

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

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

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

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

14 рдЕрд╡реИрдз рдкрд░рд╛рдорд┐рддрд┐

52 рдЦрд░рд╛рдм рдлрд╛рдЗрд▓ рдирд╛рдо рд╡рд╛ рдирдореНрдмрд░

57 рд╕рдзрд╛рди I/O рддреНрд░реБрдЯрд┐

Please support us!