FindObject 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

វាក្យ​សម្ពន្ធ ៖

FindObject( ObjName As String )

ប៉ារ៉ាម៉ែត្រ ៖

ObjName ៖ ខ្សែ​អក្សរ​ដែល​បញ្ជាក់​​​ឈ្មោះ​នៃ​វត្ថុ ដែល​អ្នក​ចង់​បង្កើត​នៅ​ពេល​រត់ ។