macbook保存网页图片:vb、vfb制作右击菜单

来源：百度文库 编辑：偶看新闻 时间：2024/04/17 06:16:19
p align="JUSTIFY">　　凡是用过WINDOWS95或WINDOWS98的用户，非常熟悉单击鼠标右键会出现一个弹出式菜单，那么如何在应用系统中也实现上述功能，增加用户界面的友善性。笔者分别用VB和VFP实现了用鼠标右键实现弹出式菜单的效果。

 

  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:

     

    控件NAME CAPTION

    窗体FORM1 弹出式菜单实例2

    命令按钮COMMAND1 单击鼠标右键演示弹出式菜单

    (2)建立弹出式菜单MENUS.MPR:

    菜单项窗口移动

    菜单项窗口最小化

    菜单项窗口最大化

  2. 在COMMAND1控件的RIGHTCLICK事件中输入:

     

DO MENUS.MPR &&调用弹出式菜单

　　运行环境:WINDOWS98,VISUAL BASIC 6.0、VISUAL FOXPRO 6.0 FOR WINDOWS.

笔者

右击菜单选项 去掉右击菜单 右击菜单 如何修改右击菜单？ flash加入右击菜单 桌面右击菜单ATI 桌面上右击，菜单弹出速度问题 如何减少右击菜单的选项？ 右击桌面弹出菜单很慢, 桌面上的右击菜单打不开了 右击菜单 新建 无emdeitor 怎么办? 关于桌面右击菜单问题 右击鼠标，不跳出快捷菜单 右菜单怎么修改? 如何设置右击”开始”出现的菜单 右击鼠标中菜单出现的粉碎文件是什么意思? 怎样取消右击快捷菜单中的某一项 鼠标右击桌面出来的菜单为什么有的时候宽？？？ 右击菜单里没有讯雷下载了怎么办 如何清理鼠标右击的快捷菜单？ 怎样在右击菜单里加入图片? 怎样改变右击鼠标跳出的菜单？ 鼠标右击的快捷菜单中怎样调整默认 如何增减右击菜单里发送到的内容？