activate popup 命令

Men Men Men

activate popup 命令
顯示並且激活一個選單。

語法

ACTIVATE POPUP MenuName
[AT nRow, nColumn]
[BAR nMenuItemNumber]
[NOWAIT]
[REST]

參數

MenuName

指定要激活的選單的名稱。

AT nRow, nColumn

指定選單在螢幕或用戶自定義視窗中顯示的位置,行和列的坐標值為選單左上角的坐標值。用此參數確定的位置優先於 DEFINE POPUP 命令的 FROM 參數指定的位置。

BAR nMenuItemNumber

指定選單激活後自動選定的選單項。例如,如果 nMenuItemNumber 為 2,則選單激活後將自動選擇第二個選單項。如果省略參數 BAR nMenuItemNumber,或者 nMenuItemNumber 的數值大於選單中的項數,則選單激活後將選擇第一個選單項。

NOWAIT

指定程式運行時不等待用戶選擇選單項,而是繼續執行程式。

REST

如果 DEFINE POPUP 命令中帶有 PROMPT FIELD 子句,則它所創建選單的各項就是每個記錄指定欄位的內容。此選單激活時,既使包含此欄位的表的記錄指針沒有指向第一個記錄,初始時還是選定第一個選單項。
包含 REST 選項,則指定此選單激活時選定與表中當前記錄指針相對應的項。

說明

ACTIVATE POPUP 與 DEFINE POPUP 命令結合使用,用於創建選單,而 DEFINE BAR 命令則用於創建選單中的選單項。

activate popup 命令示例

這個示例在選擇一個選單標題後,用 activate popup 命令激活選單。當前系統選單欄先用 set sysmenu save 命令存入記憶體,然後用 set sysmenu to 命令刪除所有系統選單標題。用 define pad 命令創建兩個新的系統選單標題,並且用 define popup 命令為每一個選單標題創建一個選單,再用 define bar 命令為每個選單創建建選單項。當選擇一個選單標題後,on pad 命令通過 activate popup 子句激活相應的選單。
從選單中選擇某個選單項後,將執行 choice 過程。choice 過程將顯示選定的選單項名和對應選單名。如果從 card info 選單中選擇 exit 選單項,將恢復為原來的 visual foxpro 系統選單。

*** 此程式名為 actipop.prg ***
clear
set sysmenu save
set sysmenu to
define pad convpad of _msysmenu prompt '\<conversions' color scheme 3 ;
key alt+c, ''
define pad cardpad of _msysmenu prompt 'card \<info' color scheme 3 ;
key alt+i, ''
on pad convpad of _msysmenu activate popup conversion
on pad cardpad of _msysmenu activate popup cardinfo
define popup conversion margin relative color scheme 4
define bar 1 of conversion prompt 'ar\<ea' key ctrl+e, '^e'
define bar 2 of conversion prompt '\<length' ;
key ctrl+l, '^l'
define bar 3 of conversion prompt 'ma\<ss' ;
key ctrl+s, '^s'
define bar 4 of conversion prompt 'spee\<d' ;
key ctrl+d, '^d'
define bar 5 of conversion prompt '\<temperature' ;
key ctrl+t, '^t'
define bar 6 of conversion prompt 't\<ime' ;
key ctrl+i, '^i'
define bar 7 of conversion prompt 'volu\<me' ;
key ctrl+m, '^m'
on selection popup conversion;
do choice in actipop with prompt(), popup()
define popup cardinfo margin relative color scheme 4
define bar 1 of cardinfo prompt '\<view charges' ;
key alt+v, ''
define bar 2 of cardinfo prompt 'view \<payments' ;
key alt+p, ''
define bar 3 of cardinfo prompt 'vie\<w users' ;
key alt+w, ''
define bar 4 of cardinfo prompt '\-'
define bar 5 of cardinfo prompt '\<charges' ;
key alt+c, ''
define bar 6 of cardinfo prompt '\-'
define bar 7 of cardinfo prompt 'e\<xit';
key alt+x, ''
on selection popup cardinfo;
do choice in actipop with prompt(),popup()

procedure choice
parameters mprompt, mpopup
wait window 'you chose ' + mprompt + ;
' from popup ' + mpopup nowait
if mprompt = 'exit'
set sysmenu to default
endif

相關詞條

相關搜尋

熱門詞條

聯絡我們