ຟັງຊັນ FindPropertyObject

ອະນຸຍາດໃຫ້ອ້າງເຖິງວັດຖຸໃນຂະນະປະມວນຜົນເປັນພາຣາມິເຕີສະຕຣິງໂດຍໃຊ້ຊື່ວັດຖຸ.

ຕົວຢ່າງ, ຄຳສັ່ງຕໍ່ໄປນີ້:


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" ເຖິງ "TextEdit5" ໃນລູບ (loop) ເພື່ອສ້າງຊື່ຕົວຄວບຄຸມຫ້າຊື່.

ເບິ່ງຕື່ມ: FindObject

ຮູບແບບຄຳສັ່ງ:


FindPropertyObject( ObjVar, PropName As String )

ພາຣາມິເຕີ:

ObjVar: ຕົວປ່ຽນວັດຖຸທີ່ທ່ານຕ້ອງການກຳນົດແບບໄດນາມິກໃນຂະນະປະມວນຜົນ.

PropName: ສະຕຣິງທີ່ກຳນົດຊື່ຂອງຄຸນສົມບັດທີ່ທ່ານຕ້ອງການອ້າງເຖິງໃນຂະນະປະມວນຜົນ.

ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

12 ຕົວແປບໍ່ໄດ້ຖືກນິຍາມ

14 ພາຣາມິເຕີບໍ່ຖືກຕ້ອງ

52 ຊື່ໄຟລ໌ ຫຼື ເລກໄຟລ໌ບໍ່ຖືກຕ້ອງ

57 ເກີດຂໍ້ຜິດພາດ I/O ຂອງອຸປະກອນ