unload form1是不是特别的要求?

解决方案 »

  1.   

    建立工程:
    1. 添加窗体 Form2
    2. 添加Command1到Form1
    以下为Form1代码:
    --------------------------Private Sub Form_Load()
     Form2.Show
    End SubPrivate Sub Command1_Click()
     Unload Form2
    End Sub
      

  2.   

    你说的那个"窗体",如果是别的应用程序里面的窗体的话,就要得到那个窗体的句柄来关闭.
    如果是你自己应用程序的窗体的话,那用unload form(form是你要关闭的窗口的Name)就可以了.当然,你也可以用form.visable = false来隐藏它,以达到关闭的效果,不过,Form仍然会驻留在内存.
      

  3.   

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Const WM_CLOSE = &H10''''''''''''''''''''''''''''''''''''''''''''''
    hwnd = FindWindow(vbNullString, 窗体的名字)Call SendMessage(hwnd, WM_CLOSE, 0, ByVal 0&)
      

  4.   

    我的问题是,要关闭的form是运行时决定的,怎么办
      

  5.   

    FindWindow(vbNullString, 窗体的名字)
    SendMessage(hwnd, WM_CLOSE, 0, ByVal 0&)