扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
窗体的 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关闭当前窗体me.close()
其它窗体用:窗体名.close()，例如：form2.close()
this.close() 只是关掉，没有释放，不对 me.close() 应该释放一下 me.Dispose() 给分吧、
Form_Deactivate事件在窗体被卸载时触发，在其中中加一行End结束程序就行了
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网