网站建设资讯

NEWS

网站建设资讯

vb.net取消窗体叉 VB如何让窗体的叉不关闭

请问VB如何使窗体上的关闭(叉叉)按钮无效,最大,最小化按钮无效化我会的。

窗体的 MinButton、MaxButton 属性设为False , 或者设置 BorderStyle属性

曲水网站建设公司创新互联建站,曲水网站设计制作,有大型网站制作公司丰富经验。已为曲水上千提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱,请找那个售后服务好的曲水做网站的公司定做!

关闭按钮无效的代码:

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_REMOVE = H1000

Private Const SC_CLOSE = HF060

Sub Disabled(ChWnd As Long) '设置窗体关闭按钮不可用的子过程

Dim hMenu, hendMenu As Long

Dim c As Long

hMenu = GetSystemMenu(ChWnd, 0)

RemoveMenu hMenu, SC_CLOSE, MF_REMOVE

End Sub

Private Sub Form_Load()

Disabled Me.hwnd '调用子过程

End Sub

VB.NET是如何关闭窗体

VB.NET关闭当前窗体me.close()

其它窗体用:窗体名.close(),例如:form2.close()

VB.NET 关闭窗体的问题

this.close() 只是关掉,没有释放,不对 me.close() 应该释放一下 me.Dispose() 给分吧、

vb .net 中右上角的那个小X,他默认是点击后关闭本窗体,如何使它关闭本程序啊?

Form_Deactivate事件在窗体被卸载时触发,在其中中加一行End结束程序就行了


网站题目:vb.net取消窗体叉 VB如何让窗体的叉不关闭
链接分享:http://cdweb.net/article/docdicj.html