การใช้งาน Dynamic Menu ในรูปแบบที่ 1มีขั้นตอนดังต่อไปนี้
การใช้งาน Dynamic Menu ในรูปแบบที่ 1มีขั้นตอนดังต่อไปนี้
อันดับแรกให้ทำการสร้าง เมนูขึ้นมา 1อัน กำหนดให้มี 1 หัวข้อ อะไรก็ได้ เก็บลงชื่อ m_m
และคลิกที่ ไอค่อนสคริปต์ และเขียนสคริปต์ลงไปดังนี้
parentwindow.Trigger event dynamic ue_addmenuclicked(this.tag)
อันดับต่อมา สร้าง วินโดวส์คอนโทรลขึ้นมาใหม่ 1 อัน วาง command button กับ multilineedit ลงไป และ ทำการกำหนด property ให้มีการติดต่อกับเมนู m_m ให้เรียบร้อย
จากนั้นเรามาทำการลงมือเขียนสคริปต์
อันดับแรกให้ทำการกำหนด user event ที่ตัว วินโดวส์คอนโทรลก่อนโดยทำการตั้งชื่อดังนี้
ue_addmenuclicked
และทำการคลิกที่ปุ่ม args... และทำการกำหนดค่าต่างๆลงๆไปดังนี้
Name = as_menuname
Type = String
Pass by = Value
จากนั้นก็ลงมือเขียนสคริปต์ที่ ue_addmenuclicked ดังนี้
mle_1.text = mle_1.text + '~r~n' + as_menuname
ต่อมาที่ command button ที่ Clicked event ให้เขียนสคริปต์ลงไปดังนี้
Menu menu_temp
menu_temp = create M_m
Menu menu_temp1
menu_temp1 = create M_m
long ll_maxitem
MenuID.Item[UpperBound(MenuID.Item[]) + 1] = menu_temp.item[1]
ll_maxitem = UpperBound(MenuID.Item[])
MenuID.Item[ll_maxitem].text = "ทดสอบ"+ string(ll_maxitem)
MenuID.Item[ll_maxitem].ToolBarItemName = "Print!"
MenuID.Item[ll_maxitem].ToolBarItemVisible = True
MenuID.Item[ll_maxitem].tag = "ITEM"+ string(ll_maxitem)
MenuID.Item[ll_maxitem].item[1] = menu_temp1.item[1]
MenuID.Item[ll_maxitem].item[1].text = "ทดสอบ"+ string(ll_maxitem)+'1'
MenuID.Item[ll_maxitem].item[1].ToolBarItemName = "Print!"
MenuID.Item[ll_maxitem].item[1].ToolBarItemVisible = True
MenuID.Item[ll_maxitem].item[1].tag = "ITEM"+ string(ll_maxitem) + '1'
//important
hide(MenuID.item[1])
Show(MenuID.item[1])
//Do not destroy the menus created
จากนั้นให้ทำการ save และทำการทดลองรันดูนะครับ