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.

Π‘ΠΌ. Ρ‚Π°ΠΊΠΆΠ΅: FindObject

Бинтаксис

FindPropertyObject( ObjVar, PropName As String )

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

ΠžΠ±ΡŠΠ΅ΠΊΡ‚Π½Π°Ρ_пСрСмСнная. ΠžΠ±ΡŠΠ΅ΠΊΡ‚Π½Π°Ρ пСрСмСнная, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Π½ΡƒΠΆΠ½ΠΎ ΠΎΠΏΡ€Π΅Π΄Π΅Π»ΠΈΡ‚ΡŒ динамичСски Π²ΠΎ врСмя выполнСния.

Имя_свойства. Π‘Ρ‚Ρ€ΠΎΠΊΠ°, ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‰Π°Ρ имя свойства, ΠΊ ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌΡƒ Π½ΡƒΠΆΠ½ΠΎ ΠΎΠ±Ρ€Π°Ρ‰Π°Ρ‚ΡŒΡΡ Π²ΠΎ врСмя выполнСния.

Error codes:

5 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π·ΠΎΠ² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

12 ΠŸΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Π°Ρ Π½Π΅ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π°

14 НСвСрный ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€

52 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎΠ΅ имя ΠΈΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ€ Ρ„Π°ΠΉΠ»Π°

57 Ошибка устройства Π²Π²ΠΎΠ΄Π°/Π²Ρ‹Π²ΠΎΠ΄Π°