VB中使窗体右上角的X按钮失效

VB中使窗体右上角的X按钮失效,第1张

VB中使窗体右上角的X按钮失效,第2张

编辑整理考试:为方便学习,下面给出了源代码,并做了详细的中文注释:

-

使表单右上角的X按钮无效。

-

程序描述:

这个例子使用API函数GetSystemMenu来获取系统菜单的句柄。

x按钮是系统菜单中的菜单项,然后使用RemoveMenu功能。

删除此菜单项,即使X按钮无效。

-

[VB语句]

私有声明函数GetSystemMenu Lib " user 32 "(ByVal hwnd为Long,ByVal bRevert为Long)

[描述]

获取指定窗口的系统菜单的句柄。在vb环境下,“系统菜单”的正式名称是“控制菜单”,即点击窗口左上角的控制框时出现的菜单。

[返回值]

Long,如果执行成功,返回系统菜单的句柄;零表示错误。如果bRevert设置为TRUE,它也将归零(只需恢复原来的系统菜单)

[备注]

在vb中使用:系统菜单会向窗口发送一个WM_SYSCOMMAND消息,而不是WM_COMMAND消息。

[参数列表]

HWND-LONG,窗口的句柄。

b . revert-long,如果设置为TRUE,表示收到了原始的系统菜单。

私有声明函数GetSystemMenu Lib "user32" ( _

ByVal hwnd为整数,_

ByVal bRevert作为整数_

)作为整数

[VB语句]

私有声明函数remove menu Lib“user 32”(ByVal hMenu为Long,ByVal nPosition为Long,ByVal wFlags为Long)为Long

[描述]

删除指定的菜单项。如果被删除的项目属于弹出菜单,此功能不会同时删除弹出菜单。应该先用GetSubMenu函数获取弹出菜单的句柄,以后再删除。

[返回值]

长,非零表示成功,零表示失败。GetLastError已设置。

[备注]

强烈建议您使用vb menu的visible属性来删除菜单中的项目,而不是使用该函数,否则指定菜单中其他菜单项的visible属性会影响到错误的菜单项。

[参数列表]

Enu-long,菜单的句柄

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » VB中使窗体右上角的X按钮失效

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情