双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

vb中如何将窗体右上角的关闭功能封闭掉

2005-02-17 02:17:44 250 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wubaiyong 墨衍会员 · AI 创作全网分发关注 + 加入社区

Hive SQL零基础到精通：100道练习题+答案，SQL能力快速提升我将以我15年架构与开发的经验，带领大家从零基础到精通，通过精心设计的100道练习题及其详解，系统地、深度地掌握Hive SQL的核心精髓。它可以将结构化的数据文件映射为一张数据库表，并提供了一套类SQL的查询语言——HiveQL（简称HQL），允许熟悉SQL的用户直接查询存储在HDFS上的海量数据。它将Job描绘为DAG（有向无环图），允许更灵活的任务编排，避免不必要的中间落盘，可以复用容器，从而大幅降低延迟。希望你以此文为起点，在广阔的大数据世界里继续遨游，成为一名真正的数据高手！阅读详情

vb中如何将窗体右上角的关闭功能封闭掉

...全文

Iocomp控件源码实战：工控上位机仪表趋势图开发全攻略在工业自动化上位机开发中，实时数据可视化是核心需求，仪表盘、趋势图、状态灯等控件直接关系着监控界面的直观性与响应速度。许多开发者使用GDI+自绘控件，却常因刻度计算、指针动画、坐标映射等底层逻辑耗费大量时间，且商业控件往往封闭源码难以定制。Iocomp Components作为一套成熟的ActiveX/ .NET控件集，提供了从仪表、趋势图到状态灯的完整解决方案，其v4.02 SP2 Full Source版本更附带全部源码，允许开发者深入修改控件的内部行为，解决报警闪烁、坐标反推、历史缓冲等工程痛点。掌握阅读详情

wubaiyong

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

并且保留最大化及最小化按钮

✦双11狂欢大促✦

vb中如何将窗体右上角的关闭功能封闭掉

相关推荐

双11狂欢大促