可視菜單=假
代碼如下:
。版本
2
。支持庫
iext3
。裝配
窗戶組件1
。子程序
_卷簾菜單1_鼠標右鍵松開，
邏輯式
。參數
橫向位置，
整數
縱向位置，
功能鍵狀態，
彈出式菜單
(菜單，
,
)
_加入菜單_選定
。局部變量
文本變量，
文本類型
如果這是真的
(輸入框
(,
=
真實)
卷簾菜單1。添加菜單
(文本變量，