怎么避免窗体重复启动？

Question

if not frm is nothing then ......

Answer 1

dim frm as from
dim f as object
for each f in forms
   if f.name="form" then
     f.show
     exit sub
   end if
next 
set frm =new form2
frm.text1.text="..." 
frm.show

Answer 2

If App.PrevInstance = True Then
        Call MsgBox("XXXX", vbOKOnly + vbExclamation)
    End If

Answer 3

dim frm as from
dim f as object
dim frm as from
set frm =new form2
frm.show
这种方式生成的窗体， 如果是生成10个窗体10 都叫frm!同名
这10个同名窗体中都有相同的Text1.分别写着1，2，3，4，5，6，7，8，9，10
如果那个text1.text=10
就不用
dim frm as from
set frm =new form2
frm.text1.text="10" 
frm.show了
否,就用
dim frm as from
set frm =new form2
frm.text1.text="10" 
frm.show
当然屏幕上还有叫其他名字的窗体。
我不知道怎么判断这些窗体是不是有TEXT1  and  text1是不是=X.----------

Answer 4

sunbeking(星星) 的方法可避免同一应用程序启动两次！