社区
VB
帖子详情
vb中如何将窗体右上角的关闭功能封闭掉
wubaiyong
2005-02-17 02:17:44
vb中如何将窗体右上角的关闭功能封闭掉
...全文
146
6
打赏
收藏
vb中如何将窗体右上角的关闭功能封闭掉
vb中如何将窗体右上角的关闭功能封闭掉
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wubaiyong
2005-02-17
打赏
举报
回复
我知道API可以,现在因为比较急,请各位大侠贴出代码
xiongchen
2005-02-17
打赏
举报
回复
需要借助API了,因为系统没有提供这样的类
以下是VB.NET的代码:
'API声明
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Integer) As Integer
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Private Sub disableX(ByVal wnd As Form)
Dim hMenu As Integer, nCount As Integer
'得到系统Menu
hMenu = GetSystemMenu(wnd.Handle.ToInt32, 0)
'得到系统Menu的个数
nCount = GetMenuItemCount(hMenu)
'去除系统Menu
Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION Or MF_DISABLED)
'重画MenuBar
DrawMenuBar(Me.Handle.ToInt32)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'使用X不能用
disableX(Me)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'关闭窗口
Me.Close()
End Sub
'如果还要屏蔽Alt+F4,加上
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Dim SC_CLOSE As Integer = 61536
Dim WM_SYSCOMMAND As Integer = 274
'判断是系统消息,是不是关闭窗体,使Alt+F4无效
If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then
Exit Sub
End If
MyBase.WndProc(m)
End Sub
3tzjq
2005-02-17
打赏
举报
回复
上面代码也可以,如果你还想隐藏 X 按钮就可以:me.ControlBox=False
T2
2005-02-17
打赏
举报
回复
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = True
End Sub
nga96
2005-02-17
打赏
举报
回复
听说API能行,好像没有直接的属性的
查一下API吧
wubaiyong
2005-02-17
打赏
举报
回复
并且保留最大化及最小化按钮
API之网络函数---整理网络函数及
功能
GetMessagePos 取得消息队列
中
上一条消息处理完毕时的鼠标指针屏幕位置 GetMessageTime 取得消息队列
中
上一条消息处理完毕时的时间 PostMessage 将一条消息投递到指定窗口的消息队列 PostThreadMessage 将一条...
Vb
XPMenuAPI Microsoft Office XP 菜单.rar
还淡入淡变
关闭
效果的
VB
仿Windows XP 风格菜单,现在很多程序员希望其菜单能够转换成 MS Office XP 和 VS .NET 风格,
Vb
XPMenuAPI就是这样一个动态库,它能使
VB
程序员仅通过几行代码就轻而易举地实现这些流行菜单。...
数据库课程设计---投票系统
在当今世界电脑普及的时刻,人们已经习惯用电脑办公,结果自然会产生大量的电子文件,这些文件有宝贵的历史价值,但我们如果将更多的时间花费在寻找这些文件上,即费时又费力。本软件根据此需求进行开发的。 2.1.2...
vb
字符串选定复制代码
登录网页微信知乎图片视频医疗汉语问问更多»搜索答案我要提问首页问题分类特色问豆商城个人
中
心问题已被解决QQ一键登录IT技术
vb
获取选
中
文字字数问题一,如题,选
中
文本框
中
一段文字,显示共有多少字符;...
vb
源码
VB
源码:HOOK 万能网游密码截取技术之(诛仙) ... ...
VB
源码:IP地址输入框控件 下载地址:http://www.2e3.org/down.asp?url=lelecode_2
VB
源码:生成MD5码 下载地址:http://www.2e3.
VB
16,554
社区成员
110,527
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章