1。点击窗体。进入窗体的代码区。
2。窗体默认事件的load事件。把load事件框下拉，并找到窗体的unload事件
3。在unload事件中添加代码cancel=ture.具体如下
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
4。这样就OK了，运行后你点窗体的关闭就失效了
补充说明：load事件是载入事件。unload则是它的相反，你可以理解成关闭事件。cancel是取消。写在unload相当于取消这个关闭功能。
关于让VB6.0窗体“关闭”按钮,失效。
1。点击窗体。进入窗体的代码区。2。窗体默认事件的load事件。把load事件框下拉，并找到窗体的unload事件 3。在unload事件中添加代码cancel=ture.具体如下 Private Sub Form_Unload(Cancel As Integer)Cancel = True End Sub 4。这样就OK了，运行后你点窗体的关闭就失效了 补充说明：load事件是载入事件。
VB6.0中如何把窗体上的三个按钮(最小化,最大化,关闭)的最大化给去掉或...
选中窗体，在属性中把 maxbutton改为false，就失效了。
在VB窗体中去掉关闭按钮的方法?
在VB6.0窗体中去掉关闭按钮的方法：在窗体属性窗口设置ControlBox 属性为False。ControlBox 属性，返回或设置一个值，指示在运行时控制菜单框是否在窗体中显示。在运行时为只读。在窗体属性窗口设置BorderStyle 属性为0，使窗体没有边框或与边框相关的元素。在窗体的UnLoad事件代码中使用Cancel = -1语句，使...
vb6.0中,如何将窗体右上角的关闭按钮设计成不可用?
如果用属性设置，去掉那个东西的同时就把整个标题栏都去掉了，可行性不是很好，看看下面的：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 ...
VB6.0 MsgBox中怎么使“×”不可用?
Private Sub cmdOk_Click()'让消息框的关闭按钮失效 If MsgBox("这样就可以让关闭按钮变为无效！", vbYesNo + vbQuestion) = vbYes Then End End If End Sub 这样就可以很方便地让消息框的"×"失效!
vb中若要使命令按钮失效,可设置什么属性为false来实现
VB6.0中若要使命令按钮失效，可设置按钮控件Enabled属性为false来实现。Enabled 属性，返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。语法 设置 说明，Enabled 属性允许在运行时使窗体和控件成为有效或无效。Enabled 属性示例：Private Sub Form_Load () Text1.Text ...
vb6.0如何去除窗体关闭键?
可以变成灰色，但不能去除 Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Declare Function GetSystemMenu Lib ...
VB6.0中如何使按钮click事件失效(不是使按钮不可用)
可以用变量做标志位去控制。比如设置变量a=1时不可用，在click里写操作时，先判断a的值，如果a=1那么就exit sub就可以了。
VB中如何让窗体显示关闭按钮
1、首先，打开VB软件，在窗体上添加一个图片框，如下图所示。2、在属性窗口，设置图片框的属性和名称，点击“picture”属性任意插入图片。3、在窗体上面，添加两个命令按钮，如下图所示。4、设置命令按钮的属性。5、双击“移动”命令按钮，编辑其代码，为了方便大家观察，将移动的数值设置100，如下图...
在VB6.0中,怎么使form中的按钮拥有重启或关机功能?
这个得调用WindowsAPI函数了。只要你在OnClick中写了调用重启和关机API函数就可以了。16位Windows用ExitWindows() API函数，而32位Windows则用ExitWindowsEx().32位版本比16位版本多了更多的控制及选项，包括注销及关机。Declare Function ExitWindows Lib "user" (ByVal uFlags As...
