สำหรับเทคนิคตัวนี้ เป็นวิธีที่จะค้น object ประเภทต่างๆ ที่วางอยู่
บน Window พอเจอแล้ว เราก็สามารถกระทำการอะไรกับ Control ตัวนั้น
หรือกลุ่มนั้นได้เหมือนกับที่เราเขียน Script สั่งงานโดยตรงครับ
ปุ่ม testผมจะตั้งชื่อว่า cb_processนอกนั้นใช้ชื่ออะไรก็ได้ครับ
แล้วผมก็เขียน script ที่ event clicked!ของปุ่ม test ตามนี้
integer i ,li_ctamunt
li_ctamunt = upperbound(parent.Control)
if li_ctamunt =0 then return
Commandbutton lc_combt
FOR i = 1 TO li_ctamunt
IF parent.Control[i].TypeOf() = commandbutton! THEN
IF parent.Control[i].ClassName() <> "cb_process" THEN
lc_combt = parent.Control[i]
lc_combt.text = "ThaiPBL.com" + string(i)
END if
END IF
NEXT