top
Loading...
用VB、VFP設計右鍵彈出式菜
p align="JUSTIFY">凡是用過WINDOWS95WINDOWS98的用戶,非常熟悉單擊鼠標右鍵會出現一個彈出式菜單,那么如何在應用系統中也實現上述功能,增加用戶界面的友善性。筆者分別用VBVFP實現了用鼠標右鍵實現彈出式菜單的效果。

  1. VISUAL BASIC6.0實現彈出式菜單。
  2. 建立含有如下控件的窗體:

控件NAME CAPTION INDEX

彈出式菜單窗體FORMENU 彈出式窗口實例1

菜單項MENUS 編輯

子菜單項MENUS1 窗口移動0

子菜單項MENUS1 窗口最小化1

子菜單項MENUS1 窗口最大化2

子菜單項MENUS1 - 3 &&分割線

子菜單項MENUS1 退出4

(2)程序清單:顯示效果如圖1所示。

1

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

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實現彈出式菜單。顯示效果如圖2所示。

2

  1. 建立含有如下控件的窗體POPMENU.SPR:
  2. 控件NAME CAPTION

    窗體FORM1 彈出式菜單實例2

    命令按鈕COMMAND1 單擊鼠標右鍵演示彈出式菜單

    (2)建立彈出式菜單MENUS.MPR:

    菜單項窗口移動

    菜單項窗口最小化

    菜單項窗口最大化

  3. COMMAND1控件的RIGHTCLICK事件中輸入:

DO MENUS.MPR &&調用彈出式菜單

運行環境:WINDOWS98,VISUAL BASIC 6.0VISUAL FOXPRO 6.0 FOR WINDOWS.

筆者

作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗