如何在VB窗体的系统菜单中添加自定义菜单？

123 2000-04-12 11:43:00

...全文

268 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

major2 2000-04-14

打赏
举报

回复

用API函数，GetSystemMenu，AppendMenu可以定义你的系统菜单。至于菜单处理的程序，可以用子分类技术，给窗体加一个HOOK，把系统传给窗口函数的消息截取下来，处理其中跟你的系统菜单有关系的消息。子分类技术具体可以查看微软的MSDN技术手册。

Un1 2000-04-13

打赏
举报

回复

这到是很容易先GetSystemMenu再AppendMenu就可以了，不过菜单的处理可不容易哦！这要Hook WinProc。

VB在窗体主菜单中动态添加菜单项，在窗口的“菜单”中可自定义随时添加一个菜单项，在文本框中输入菜单文字即可，程序会以输入的文字为菜单名称新建一个菜单。

VB6.0 自定义TreeView树形菜单（展开菜单），类似于实现多级菜单、展开菜单的功能，当然也可当作Tree树控菜单来使用。最终的功能预览图请参见测试截图所示。　　Set a = TreeView1.Nodes.Add(, etvwFirst, 1, "第一个") 　　TreeView1.Nodes.Add a, etvwChild, 3, "第一个-1" 　　TreeView1.Nodes.Add a, etvwChild, 4, "第一个-2" 　　TreeView1.Nodes.Add a, etvwChild, 5, "第一个-3" 　　TreeView1.Nodes.Add a, etvwChild, 6, "第一个-4" 　　TreeView1.Nodes.Add a, etvwChild, 7, "第一个-5" 　　TreeView1.Nodes.Add a, etvwChild, 8, "第一个-6" 　　Set a = TreeView1.Nodes.Add(, etvwFirst, 2, "第二个") 　　TreeView1.Nodes.Add a, etvwChild, 9, "第二个-1" 　　TreeView1.Nodes.Add a, etvwChild, 10, "第二个-2" 　　TreeView1.Nodes.Add a, etvwChild, 11, "第二个-3" 　　TreeView1.Nodes.Add a, etvwChild, 12, "第二个-4" 　　TreeView1.Nodes.Add a, etvwChild, 13, "第二个-5" 　　TreeView1.Nodes.Add a, etvwChild, 14, "第二个-6"

VB管理信息系统开发实战本系统以汽车报废回收系统为例，拆解厂和车管所两种用户权限实现汽车报废回收过程的信息管理，包含了打印报表的设计开发主要功能实现添加车辆、车辆查询、车辆送达、拆解、报废过程的处理，动态的打印报表设计车辆状态：未送达、已送达、已拆解、已报废四种；

excel vba 不规则窗体美化极酷窗体效果窗体添加菜单快捷键大全

　VB窗体版鼠标右键菜单的制作实例，可自定义的窗体右键菜单，在常规编程过程中，窗体右键菜单也是很常用的一种菜单制作方法。

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章