求助TC菜单

耐心秀

create_menu("主选项1|主选项2|...","主选项1_子1|主选项1_子2...,主选项2_子1|主选项2_子2...,...")  
想实现一个这样的菜单功能  原理就是这样"|"同类分割  ","集合分割  是拿论坛那个例子改的  选择实现和消息部分沿用的例子  各位老哥帮我看看吧   运行时调试输出有值    没有窗口 (动态库调用不咋会)

1. 变量 m_hwnd   //var == 变量  
   
2. 功能 TestProgram_init()
   
3.     create_menu("文件|设置|人物资讯", "打开|保存|另存为,设置窗口大小|设置字体|设置颜色|设置标题,打开网页")
   
4. 结束
   
5. 功能 create_menu(title, title2)
   
6.     //取得自身句柄
   
7.     m_hwnd = 窗口获取自我句柄() //windowgetmyhwnd == 窗口获取自我句柄
   
8.     变量 title_array                           //主选项数组
   
9.     变量 title_array_p=数组()            //主选项句柄数组
   
10.     变量 title_array2                         //子菜单集合体数组,每个集合内以"|"分割开
    
11.     变量 title_array3                         //具体子菜单临时数组
    
12.     //创建主选单条(Msg:CreateMenu)
    
13.     变量 hMenu = 动态库调用("user32.dll", "long", "CreateMenu")    //dllcall == 动态库调用
    
14.     //将参数以"|"分割,创建主选项
    
15.     变量 count = 字符串分割(title, "|", title_array)
    
16.     遍历(变量 i = 0; i <数组大小(title_array); i++)
    
17.         title_array_p[i]=动态库调用("user32.dll", "long", "CreatePopupMenu")   //各主选项句柄
    
18.     结束
    
19.     //","分割出属于每个主选项的子菜单集合
    
20.     变量 count2 = 字符串分割(title2, ",", title_array2)
    
21.     变量 MF_POPUP = #00000010
    
22.     //"|"分割出子菜单选项
    
23.     变量 csl=1000   //子菜单初始编码,各组子菜单集倍数递增区分,子递增1区分
    
24.     遍历(变量 i = 0; i < 数组大小(title_array2); i++)
    
25.         字符串分割(title_array2[i], "|", title_array3)
    
26.         遍历(变量 j = 0; j < 数组大小(title_array3); j++)
    
27.             动态库调用("user32.dll", "long", "AppendMenuW", "long", title_array_p[i], "long", MF_POPUP, "long", csl*(i+1), "wchar *", title_array3[j+1])
    
28.         结束
    
29.         动态库调用("user32.dll", "long", "AppendMenuW", "long", hMenu, "long", MF_POPUP, "long", title_array_p[i], "wchar *", title_array3[0])
    
30.         数组清空(title_array3)
    
31.     结束
    
32. //    重新绘制窗口,并将创建好的菜单一并放进窗口(Msg:SetMenu)
    
33.     动态库调用("user32.dll", "long", "SetMenu", "long", m_hwnd, "long", hMenu)
    
34. 结束

复制代码

耐心秀

水平菜单     create_menu("主选项1|主选项2|...","主选项1_子1|主选项1_子2...,主选项2_子1|主选项2_子2...,...")