TrackPopupMenu

TrackPopupMenu, TrackPopupMenuBynum

VB声明

Declare Function TrackPopupMenu& Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Rect)

Declare Function TrackPopupMenuBynum& Lib "user32" Alias "TrackPopupMenu" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Long)

说明

在屏幕的任意地方显示一个弹出式菜单

返回值

Long，非零表示成功，零表示失败。会设置GetLastError

参数表

参数

类型及说明

hMenu

Long，弹出式菜单的句柄

wFlags

Long，位置标志和鼠标追踪标志的组合，见下表

位置标志

说明

TPM_CENTERALIGN

菜单在指定位置水平居中

TPM_LEFTALIGN

菜单的左侧置于水平x坐标处

TPM_RIGHTALIGN

菜单的右侧置于水平x坐标处

TPM_LEFTBUTTON

鼠标左键标准运作方式

TPM_RIGHTBUTTON

用鼠标右键进行菜单追踪

x,y

Long，这个点指定了弹出式菜单在屏幕坐标系统中的位置

nReserved

Long，未使用，设为零

hwnd

Long，用于接收弹出式菜单命令的窗口的句柄。应该使用窗体的窗口句柄——窗体中有一个菜单能象弹出式菜单那样接收相同的命令ID集

lprc

Rect，用屏幕坐标定义的一个矩形，如用户在这个矩形的范围内单击，则弹出式菜单不会关闭。如单击弹出式菜单之外的任何一个地方，则会关闭菜单。可以设为NULL

注解

用这个函数创建的菜单，菜单中的命令ID并不与vb期望的那些相符

Top