Private Sub MENUS1_Click(Index As Integer)
Dim X As Long
Select Case Index
Case 0
X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MOVE, 0&)
Case 1
X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MINIMIZE, 0&)
Case 2
X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MAXIMIZE, 0&)
Case 3
Case 4
Unload FORMENU
End Select
End Sub
用VISUAL FOXPRO 6.0實(shí)現(xiàn)彈出式菜單。
建立含有如下控件的窗體POPMENU.SPR:
控件NAME CAPTION
窗體FORM1 彈出式菜單實(shí)例2
命令按鈕COMMAND1 單擊鼠標(biāo)右鍵演示彈出式菜單
(2)建立彈出式菜單MENUS.MPR:
菜單項(xiàng)窗口移動(dòng)
菜單項(xiàng)窗口最小化
菜單項(xiàng)窗口最大化
在COMMAND1控件的RIGHTCLICK事件中輸入:
DO MENUS.MPR &&調(diào)用彈出式菜單
運(yùn)行環(huán)境:WINDOWS98,VISUAL BASIC 6.0、VISUAL FOXPRO 6.0 FOR WINDOWS.
相關(guān)推薦:2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |