请问如何在一个按钮中实现调用 Form_Unload 函数。谢谢!  我是刚学VB的,所以还请各位帮忙   Private Sub Command1_Click()
      Form_Unload
   End Sub   Public Sub Form_Unload(Cancel As Integer)
     ......
     ......     CloseCQXMapInfoConnection     ......
     ......
   End Sub
    结果出错!

解决方案 »

  1.   

    Private Sub Command1_Click()
         unload me   '这时就会调用UNLOAD事件
     End Sub   Public Sub Form_Unload(Cancel As Integer)
         ......
         ......     CloseCQXMapInfoConnection     ......
         ......
       End Sub
      

  2.   

    Private Sub Command1_Click()
          Form_Unload 0 '(1)
       End Sub  Private Sub Form_Unload(Cancel As Integer)
      MsgBox "确认退出?": End
      End Sub
      

  3.   

    Private Sub Command1_Click()
          unload me
       End Sub或
     Private Sub Command1_Click()
          unload form1
       End Sub
      

  4.   

    同意strongfisher(Haiwolf) ,卸载窗口自动就调用此过程了~~
      

  5.   

    同意楼上。要么用unload me,要么另加一函数,分别在Form_Unload中和Command1_Click中调用,否容易造成混乱
      

  6.   

    Form_Unload(Cancel As Integer)明明是有参数的,Cancel表示是否取消卸载窗体,调用这个sub为什么不加参数?
      

  7.   

    Private Sub Command1_Click()
        Form_Unload 0 '(1)
    End SubPrivate Sub Form_Unload(Cancel As Integer)
        a=MsgBox "确认退出?",35
        if a=6 then End else cancel=1
    End Sub
      

  8.   

    Private Sub Command1_Click()
       unload me      
    End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("真的退出吗?", vbQuestion + vbYesNo) = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If
    End Sub
      

  9.   

    可能楼主中不过是想调用一下Form_Unload()这个子程序,而不是想退出,那么就不能用
    unload me 或 unload formX
    而要用
    Form_Unload 0  或  Form_Unload 1 或 call Form_Unload(0)
      

  10.   

    不明白楼主的意思
    把Form_Unload 中做的事情做成一个过程或函数,在Form_Unload 中可以调用,在按钮事件中也可以调用
      

  11.   

    在关闭窗口的时候就会自动调用Form_Unload事件,
    或者
    Private Sub Command1_Click()
       unload me      
    End Sub
      

  12.   

    说来说去。
    也不知道楼主问的是什么了。
    不过。如果关闭窗口用unload me就行了
    在窗口关闭时会触发sub form_unload()
    在这里面你可以写你要处理的程序代码。
      

  13.   

    Private Sub Command1_Click()
       unload me      
    End Sub
      

  14.   

    Private Sub Command1_Click()
       unload me      
    End Sub
      

  15.   

    100分问这么基础的问题,你太大方了.答案只有一个: Unload me.
    学VB,先掌握一些内部函数,会更易上手.
      

  16.   

    Unload me后会自动调用Form_Unload