My God,快来看我这个愚蠢的问题！

Option ExplicitPrivate Sub Command1_Click()
    Unload Me
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Dim r As Integer
    r = MsgBox("  应用程序即将关闭..." + vbCrLf + vbCrLf + "  你的真的想现在退出吗?" _
        + vbCrLf + vbCrLf, vbInformation Or vbYesNoCancel, "退出...")
    If r = vbCancel Then
        '按下Cancel键
        Cancel = 1      '取消退出
    ElseIf r = vbYes Then
        '按下Yes键
        '相关处理.....
    ElseIf r = vbNo Then
        '按下No键
        '相关处理.....
    End If
End Sub

解决方案 »

  1.   

    非常对不起！搞错了，搞错了！我说的是VFP的标准窗口！再来，再来！
      

  2.   

    什么VFP的标准窗口啊？真是的
      

  3.   

    Microsoft Visual FoxPro 6.0的窗口,俗称窗口，程序员又叫它form,请快来解决我这个愚蠢的问题！shines,你肯定没问题！
      

  4.   

    你是在VB上做啊，还是在VFP做啊？
      

  5.   

    朋友们，你们好像在愤怒地质问我为什么将关于VFP的一个如此愚蠢的问题贴于VB这神圣的论坛上，哎，没办法啊，我的一个该死的VFP项目还有点尾巴，下次决不理这厮了！
      

  6.   

    跟VB差不多的吧，我不太懂VFP，建议开个VFP栏目。先去“数据库开发”可能可以解决
      

  7.   

    （该死的）VFP跟VB的有些不同，VB的Form_Unload(Cancel As Integer)中有Cancel参数，极其简单，而VFP中跟关闭窗口有关的事件Destroy、Release、QueryUnload、Unload、Release中什么参数都没有，关闭窗口时什么阻拦措施都没用！
    请诸位大虾帮我看看！
      

  8.   

    请“Visual FoxPro”的高高手快帮忙！ 
      

  9.   

    请，请，再请“Visual FoxPro”的高高手快帮忙！
      

  10.   

    请“Visual C++”的高高手快帮忙！ 
      

  11.   

    在Vb中是QueryOnload(exit as bool)方法
    在函数中调用msgbox(...)
    之后根据msgbox的返回值设置exit值就可以了
    exit=true时关闭
    否则保持
      

  12.   

    上面的回复有些问题，应该是
    在Vb中是QueryOnload(Cancel as boolean)方法
    在函数中调用msgbox(...)
    之后根据msgbox的返回值设置exit值就可以了
    Cancel=false时关闭
    否则保持
    例子代码参看shines的
      

  13.   

    （该死的）VFP跟VB的有些不同，VB的Form_Unload(Cancel As Integer)中有Cancel参数，极其简单，而VFP中跟关闭窗口有关的事件Destroy、Release、QueryUnload、Unload、Release中什么参数都没有，关闭窗口时什么阻拦措施都没用！
    请诸位大虾帮我看看！
      

  14.   

    （该死的）VFP跟VB的有些不同，VB的Form_Unload(Cancel As Integer)中有Cancel参数，极其简单，而VFP中跟关闭窗口有关的事件Destroy、Release、QueryUnload、Unload、Release中什么参数都没有，关闭窗口时什么阻拦措施都没用！
    请诸位大虾帮我看看！