115.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 14 行

如何让窗体右上角的X失效？ 


在VB中，每个窗体都有两个卸载事件，不同的是，QueryUnload事件不仅允许用户
取消进程，并且告诉程序做些什么来开始卸载工作。为使窗体右上角的X失效，并
下面的代码放在该事件中就行了。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
Cancel = -1

End Sub