退出系统时，请问怎样判断表单FRM1是否打开？如果打开，就要关闭。

不管打没有打开，加上一句Unload FRM1就可以！

暴力法

在程序最后一行加上

    Call KillProcess("您执行档名称.EXE")

Module1

'Kill Process
Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * 260
End Type

Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Declare Function ProcessFirst Lib "kernel32.dll" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function ProcessNext Lib "kernel32.dll" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function CreateToolhelpSnapshot Lib "kernel32.dll" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Declare Function TerminateProcess Lib "kernel32.dll" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Public Function KillProcess(NameProcess As String)

Const PROCESS_ALL_ACCESS = &H1F0FFF
Const TH32CS_SNAPPROCESS As Long = 2&

Dim uProcess  As PROCESSENTRY32
Dim RProcessFound As Long
Dim hSnapshot As Long
Dim SzExename As String
Dim ExitCode As Long
Dim MyProcess As Long
Dim AppKill As Boolean
Dim AppCount As Integer
Dim i As Integer
Dim WinDirEnv As String
        
       If NameProcess <> "" Then
          AppCount = 0

          uProcess.dwSize = Len(uProcess)
          hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
          RProcessFound = ProcessFirst(hSnapshot, uProcess)
  
          Do
            i = InStr(1, uProcess.szexeFile, Chr(0))
            SzExename = LCase$(Left$(uProcess.szexeFile, i - 1))
            WinDirEnv = Environ("Windir") + "\"
            WinDirEnv = LCase$(WinDirEnv)
        
            If Right$(SzExename, Len(NameProcess)) = LCase$(NameProcess) Then
               AppCount = AppCount + 1
               MyProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
               AppKill = TerminateProcess(MyProcess, ExitCode)
               Call CloseHandle(MyProcess)
            End If
            RProcessFound = ProcessNext(hSnapshot, uProcess)
            
          Loop While RProcessFound
          
          Call CloseHandle(hSnapshot)
          
       End If
End Function

这会让你相同执行档Process～一率砍～砍光光～

Sorry～贴错程序～

[ 本帖最后由 wube 于 2011-5-9 22:21 编辑 ]

没有人知道吗？

VB里有一个 FORMS 对象，
这个对象，对应着程序里打开的所有的窗体对象。

遍类这个对象，然后判断名字，或者什么特殊属性，都可以确定 FORM1 是否打开。

如果，你 每个窗体 都定义这么一个变量。
dim FORML as long              '在所有的过程之前定义。
这种定义的变量，就相当于窗体的一个属性，为了移植性，不建议使用 TAG 属性。

然后在窗体载入过程中，如 FORM1 中就写到 ，
FORML=1                        '代表本窗体是 FORM1 。不怕 窗体改名字。
其它不需要判断的窗体，就不需要写，或者写 =0

那么在程序退出的代码中，
for i=0 to forms.count-1
   if forms(i).Forml=1 then
        'FORMS(i) 即为打开了的 FORM1，加以处理。
   end if
next i

自己加个变量，比使用窗体的名字判断要好一些。比使用 TAG 属性也要好。

不知你看懂了没有，自己测试一下就是了。

这种方法不会漏掉任何打开的 FROM1 ，包括误操作导致 的 隐藏加载情况。

-------------------------------------------
还有一种方法是，记录每个打开窗体的 HWND 值，退出时，针对当前打开的窗体来查找 HWND 值，如果发现是打开的 FORM1 窗体，再处理。
这种方法，可以排除 误操作导致 FROM1 被隐藏加载然后又被处理的情况，只会处理 手机打开的 FORM1 窗体（要求记录 HWND值 ）。