2011年計(jì)算機(jī)等考二級VB輔導(dǎo)知識(shí)技巧總結(jié)(28)

　　用VB、VFP設(shè)計(jì)右鍵彈出式菜單

　　導(dǎo)讀:凡是用過WINDOWS95或WINDOWS98的用戶，非常熟悉單擊鼠標(biāo)右鍵會(huì)出現(xiàn)一個(gè)彈出式菜單，那么如何在應(yīng)用系統(tǒng)中也實(shí)現(xiàn)上述功能，增加用戶界面的友善性。筆者分別用VB和VFP實(shí)現(xiàn)了用鼠標(biāo)右鍵實(shí)現(xiàn)彈出式菜單的效果。

　　用VISUAL BASIC6.0實(shí)現(xiàn)彈出式菜單。

　　建立含有如下控件的窗體：

　　控件NAME CAPTION INDEX

　　彈出式菜單窗體FORMENU 彈出式窗口實(shí)例1

　　菜單項(xiàng)MENUS 編輯

　　子菜單項(xiàng)MENUS1 窗口移動(dòng)0

　　子菜單項(xiàng)MENUS1 窗口最小化1

　　子菜單項(xiàng)MENUS1 窗口最大化2

　　子菜單項(xiàng)MENUS1 - 3 &&分割線

　　子菜單項(xiàng)MENUS1 退出4

　　(2)程序清單：

　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

　　Private Const WM_SYSCOMMAND = &H112

　　Private Const SC_MOVE = &HF010&

　　Private Const SC_MINIMIZE = &HF020&

　　Private Const SC_MAXIMIZE = &HF030& >

　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button = 2 Then

　　Me.PopupMenu FORMENU!MENUS

　　End If

　　End Sub

　　2011年上半年計(jì)算機(jī)等級考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級考試二級VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級VB輔導(dǎo)知識(shí)技巧匯總