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.

αž˜αžΎαž›β€‹αž•αž„β€‹αžŠαŸ‚αžš αŸ– αžšαž€β€‹αžœαžαŸ’αžαž»

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

FindPropertyObject( ObjVar, PropName As String )

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

ObjVar αŸ– αž’αžαŸαžšβ€‹αžœαžαŸ’αžαž»β€‹αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αž€αŸ†αžŽαžαŸ‹β€‹αžŠαŸ„αž™β€‹αžαžΆαž˜αžœαž“αŸ’αžβ€‹αž“αŸ…β€‹αž–αŸαž›β€‹αžšαžαŸ‹Β αŸ”

PropName αŸ– αžαŸ’αžŸαŸ‚β€‹αž’αž€αŸ’αžŸαžšβ€‹αžŠαŸ‚αž›β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž’αŸ†αž–αžΈβ€‹αžˆαŸ’αž˜αŸ„αŸ‡β€‹αž“αŸƒβ€‹αž›αž€αŸ’αžαžŽαžŸαž˜αŸ’αž”αžαŸ’αžαž· αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αž€αŸ†αžŽαžαŸ‹β€‹αž“αŸ…β€‹αž–αŸαž›β€‹αžšαžαŸ‹Β αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

12 αž’αžαŸαžšβ€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž€αŸ†αžŽαžαŸ‹

14 αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžšβ€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

52 αžˆαŸ’αž˜αŸ„αŸ‡ αž¬β€‹αž›αŸαžβ€‹αž―αž€αžŸαžΆαžšβ€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

57 αž€αŸ†αž αž»αžŸβ€‹αž§αž”αž€αžšαžŽαŸ I/O