我猜你是想禁止使用关闭计算机功能吧。
有一个专门的函数。API的。

解决方案 »

  1.   

    不是,是因为我的程序退出时没有触发Unload事件,很多事情都泡汤了,我没想到窗体退出会没有触发Unload!还是偶然间发现的呢,我的窗体没有标题栏,不知有没有关系
      

  2.   

    calligraphy(小九):我试了没成功:(Option ExplicitPrivate Sub QueryUnload()
    MsgBox ("hello")
    End Sub我还试了:
    Option ExplicitPrivate Sub Form1_QueryUnload()
    MsgBox ("hello")
    End Sub
    也不行:(
      

  3.   

    你写form1_queryunload 当然没有啦,
    form_queryunload
      

  4.   

    你也以试试先拦截窗体消息,然后对WM_SYSCOMAND操作
      

  5.   

    sub Form_queryUnload()
      If UnloadMode = QueryUnloadConstants.vbAppTaskManager Or _  //状态栏上点右键
          UnloadMode = QueryUnloadConstants.vbAppWindows Then    //Alt+F4 或系统关闭
            
          Cancel=True
     
      end ifEnd Dub
      

  6.   

    Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        If MsgBox("真的退出吗?", vbQuestion + vbYesNo, "提示信息") = vbNo Then
            Cancel = True
            Exit Sub
        End If
    End Sub
      

  7.   

    Form_queryUnload()这个函数不要自己输,在拉框中选。