如何断form是否加载了？

Question

我用form.show vbmodal来显示窗体，然后用热键同样会调用form.show vbmodal方法，form已经出来了后，用热键调用的时候，报错。如何判断form已经show vbmodal？

Answer 1

'*************************************************************************
'**函 数 名：FromIsShow
'**输    入：str(String) -窗体名
'**输    出：(Boolean) -true为已经打开
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：影子
'**日    期：2004-12-22 11:48:20
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Function FromIsShow(str As String) As Boolean
    Dim pd As Boolean
    pd = False
    Dim temp
    For Each temp In Forms
        If temp.Name = str Then
            FromIsShow = True
            Set temp = Nothing
            Exit Function
        End If
    Next
    FromIsShow = False
    Set temp = Nothing
End Function

Answer 2

在全局模块里加一个标志变量，Form_Load、Form_Unload中置标志

Answer 3

ok，3x，已经搞定！和zyg0(影子(我和猪的唯一区别就是我比它能吃) 的方法一样！