计算机二级vb弹出式菜单,等考二级VB：用VB、VFP设计右键弹出式菜单

用VISUAL BASIC6.0实现弹出式菜单。

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

控件NAME CAPTION INDEX

弹出式菜单窗体FORMENU 弹出式窗口实例1

菜单项MENUS 编辑

子菜单项MENUS1 窗口移动0

子菜单项MENUS1 窗口最小化1

子菜单项MENUS1 窗口最大化2

子菜单项MENUS1 - 3 &&分割线

子菜单项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

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实现弹出式菜单。

建立含有如下控件的窗体POPMENU.SPR:

控件NAME CAPTION

窗体FORM1 弹出式菜单实例2

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

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

菜单项窗口移动

菜单项窗口最小化

菜单项窗口最大化

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

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

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

计算机二级vb弹出式菜单,等考二级VB：用VB、VFP设计右键弹出式菜单相关推荐

计算机二级vb重点知识,计算机二级《VB》常考知识点归纳
计算机二级<VB>常考知识点归纳 2.实数 1) 单精度实型(Single):有效数为7位表示-3.37E+38至3.37E+38之间的'实数 2)双精度实型(Double):有效数为1 ...
计算机vb2级知识点,全国计算机二级《VB》常考知识点汇总
全国计算机二级<VB>常考知识点汇总 Visual Basic(简称VB)是一种在计算技术发展历史上应用得最为广泛的语言,是计算机二级考试科目之一,以下是百分网小编搜索整理的关于全国计算机 ...
计算机等级必须在学校考吗,计算机等级考试可以跳过一级考二级吗
摘要: 计算机等级考试可以跳过一级考二级吗为你介绍可以,考生不受年龄.职业.学历等背景的限制,任何人均可根据自己学习和使用计算机的实际情况报考.但在选择... 可以,考生不受年龄.职业.学历等背景的限 ...
学校计算机二级模拟上机能看分数吗,全国计算机二级考试机试考完怎么储存的...
全国计算机二级考试机试考完怎么储存的以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 全国计算机二级考试机试考完怎么储存的 ...
大一考二级c语言,大专学生计算机二级是大一考还是大二考
技校网专门为您推荐的类似问题答案问题1: 我是一名大二的学生,请问什么考计算机二级比较好同学,我不知道你是哪里的人.我现在生活在北京,给你一些我这边的社会状况吧. 现在社会上,懂电脑的人是很多的, ...
access 江苏计算机二级_计算机二级考试都要考些什么？
计算机二级考试都要考些什么? 首先,我们先来简单了解一下,考试的系统环境,以及考试科目(计算机二级考试时间为120分钟). 考试的系统环境: Windows 7.Visual C++2010 学习版( ...
计算机考证可直接考二级吗
全国计算机等级考试没考一级是可以直接考二级的.不过计算机三级和四级的通过则是以获得前一级别的相关科目的证书为前提的.所以如果后期有意继续报考三级和四级,那么在二级科目的选择上就要有所考虑.如无意则任选 ...
文科学生计算机二级怎么考,对于文科生说计算机二级哪个比较好考
技校网专门为您推荐的类似问题答案问题1: 我想考计算机二级是报哪个个比较好只为考证而考证的话,报Visual FoxPro比较简单:要说实用性的话,其实两种的应用范围都不广,ACCESS多一些,还 ...
浙江省计算机应用能力二级考试难吗,浙江省计算机等级考试直接考二级难吗
浙江省计算机等级考试分为:一级.二级.三级.一级Windows和Linux:上机考试.二级高级语言:分笔试和上机考试.二级动漫技术:上机考试,二级办公软件高级应用技术:上机考试.三级:实行理论笔试.浙 ...

计算机二级vb弹出式菜单,等考二级VB：用VB、VFP设计右键弹出式菜单

计算机二级vb弹出式菜单,等考二级VB：用VB、VFP设计右键弹出式菜单相关推荐

最新文章

热门文章