ຟັງຊັນ FindObject

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

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

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) ເພື່ອສ້າງຊື່ຕົວຄວບຄຸມຫ້າຊື່.

ເບິ່ງຕື່ມ: FindPropertyObject

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

FindObject( ObjName As String )

ພາຣາມິເຕີ:

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