|
需要编译代码时,请下载 炫彩易语言 英文模块 1.0
- .版本 2
- .支持库 spec
- .支持库 shellEx
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- .局部变量 hWnd, 整数型
- .局部变量 hListBox, 整数型
- .局部变量 nHeight, 整数型
- .局部变量 hEdit, 整数型
- .局部变量 EleBind, itemBindEle_
- XInitXCGUI (“”)
- hWnd = XWnd_CreateWindow (0, 0, 500, 400, “测试”, 0, 1791)
- ' 注册菜单右键
- XWnd_RegisterMessage (hWnd, #WM_RBUTTONUP, &设计窗口_鼠标右键点击)
- ' 右键菜单被选择消息
- XWnd_RegisterMessage (hWnd, #XWM_MENUSELECT, &右键菜单_被选择)
- XWnd_ShowWindow (hWnd, 5)
- XRunXCGUI ()
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 右键菜单_被选择, 逻辑型
- .参数 hWindow
- .参数 id
- 调试输出 (“右键菜单选择ID”, id)
- 返回 (假)
- .子程序 设计窗口_鼠标右键点击, 逻辑型
- .参数 hWindow
- .参数 flags
- .参数 pPt
- .局部变量 pt, POINT
- .局部变量 hMenu, 整数型
- hMenu = XMenu_Create ()
- CopyMem_Point (pt, pPt, 8)
- XWnd_GetClientLeft (hWindow)
- pt.x = pt.x + XWnd_GetClientLeft (hWindow)
- pt.y = pt.y + XWnd_GetClientTop (hWindow)
- XMenu_AddItem (hMenu, 501, “111”)
- XMenu_AddItem (hMenu, 502, “222”)
- XMenu_AddItem (hMenu, 503, “333”)
- ClientToScreen (XWnd_GetHWnd (hWindow), 取指针地址 (pt))
- XMenu_Popup (hMenu, XWnd_GetHWnd (hWindow), pt.x, pt.y, 0, 0)
- 返回 (假)
复制代码
|
|