TC官方合作论坛

 找回密码
 立即注册
楼主: bestkakkoii

[源码分享] [TC 7.0] 新手教你如何使用 win32 创建主菜单 (附消息路由Msg)

  [复制链接]
发表于 2021-3-29 15:21:16 | 显示全部楼层
创建主菜单
回复 支持 反对

使用道具 举报

发表于 2021-4-20 21:50:21 | 显示全部楼层
11111111111111111111111111111111
回复 支持 反对

使用道具 举报

发表于 2021-7-5 12:06:57 | 显示全部楼层
功能 主窗口_消息路由(句柄,消息,w参数,l参数,时间,x坐标,y坐标)
    变量 表格句柄=控件获取句柄("表格_属性点数据")
    如果(句柄==表格句柄 && 消息==515)//左键双击
        变量 选中项=右键菜单弹出("取消|启动|停止")
        调试输出(选中项)
        选择(选中项)
            条件 0
            //选中取消项
            条件 1
            //选中启动项
            条件 2
            //选中停止项
        结束
    结束
结束

功能 右键菜单弹出(选项内容)
    变量 总选项数组
    变量 TPM_RETURNCMD =#0100
    变量 TPM_RIGHTBUTTON =#0002
    变量 TPM_LEFTBUTTON =#0000
    变量 TPM_RIGHTALIGN =#0008   
    变量 TPM_TOPALIGN =#0000

    变量 选项数量 = 字符串分割(选项内容,"|",总选项数组)//分割传过来的选项内容   
   
    变量 菜单句柄=动态库调用("user32.dll","int","CreatePopupMenu") //创建弹出式菜单
    如果(菜单句柄==0)
        返回 0 //菜单创建失败就直接返回0
    结束
   
    遍历(变量 i=0;i<选项数量;i++)
        //下面是增加菜单的item(理解成选项吧)
        动态库调用("user32.dll","int","AppendMenuA","int",菜单句柄,"int",0,"int",i,"char *",总选项数组[i])
    结束  
   
    变量 x,y
    鼠标获取坐标(x,y)   
    //弹出生成好的菜单,并返回你点击的选项,返回选项id.从上往下从1开始递增
    变量 ret=动态库调用("user32.dll","int","TrackPopupMenu","int",菜单句柄,"int",TPM_RIGHTALIGN+TPM_TOPALIGN+TPM_LEFTBUTTON+TPM_RIGHTBUTTON + TPM_RETURNCMD,"int",x,"int",y,"int",0,"int",窗口获取自我句柄(),"int",0)
   
    //销毁菜单(菜单点击完成后都是要关闭的)
    动态库调用("user32.dll","int","DestroyMenu","int",菜单句柄)
   
    返回 ret
结束
回复 支持 反对

使用道具 举报

发表于 2021-7-13 14:27:07 | 显示全部楼层
回复

使用道具 举报

发表于 2021-9-22 19:55:58 | 显示全部楼层
谢谢分享
回复

使用道具 举报

发表于 2021-10-4 14:12:39 | 显示全部楼层
6666666666
回复 支持 反对

使用道具 举报

发表于 2021-10-21 20:40:12 来自手机 | 显示全部楼层
乙醇和谁一起
回复 支持 反对

使用道具 举报

发表于 2021-10-30 20:57:19 | 显示全部楼层

支持哈
回复

使用道具 举报

发表于 2021-11-1 22:03:05 | 显示全部楼层
1+6+656+56+5+
回复 支持 反对

使用道具 举报

发表于 2021-11-9 20:42:55 | 显示全部楼层
学习学习 大佬加油
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-30 02:39 , Processed in 0.038524 second(s), 18 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表