ເນື້ອໃນ

# ຟັງຊັນ 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: ສະຕຣິງທີ່ກຳນົດຊື່ຂອງວັດຖຸທີ່ທ່ານຕ້ອງການອ້າງເຖິງໃນຂະນະປະມວນຜົນ.

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

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

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

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!