PB如何實現動態菜單創建

PB動態創建菜單的步驟如下:1。創建壹個模板菜單(m_template) 2.a)創建壹個函數在模板菜單中動態添加菜單項:/* = = = = = = = = = = = = = = = = = = = = = = = = = = =函數名:of _ add memo描述:在指定的菜單中添加壹個模板菜單項參數:menu am_menu string as_text(。String as_tag(創建菜單項的標記)返回值:succeeded 1 = = = = = = = = = = = = = = = = = = = = = = = = = = = = =/lm _ item m = create m _ template lm _ item . text = as _ text lm _ item . tag = as _ tag Li _ item count = upper bound(am _ menu . item[])Li _ item count = Li _ item count+1am _ menu。item[Li _ item count]= lm _ item return 1b， 在模板菜單中創建彈出菜單的函數/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =函數名稱:of _ popmemeu描述:指定的菜單參數:menu am _ menu(popup menu)Integer ai _ x(popup menu)Integer ai _ y(彈出菜單的y坐標) 返回值:none = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */am _ memu . pop menu(Ai _ x，Ai_y)為了壹次創建多個菜單項， 定義函數f _ dynamic _ menuitem ()/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =(添加菜單項的名稱) integer ai_x(彈出菜單的x坐標)integer ai_y(彈出菜單的y坐標)= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =/Integer Li _ item im _ template lm _ dynamic _ menu Li _ item count = upper bound(as _ menu[])for I = 1 to Li _ itemcountlm _ dynamic _ menu . of _ additem(lm _ menu，as_menu[i]，string(I))nextlm _ dynamic _ menu . of _ pop menu