MDIFORM 的问题，希望大大帮帮忙

Zhixuen

小弟写VB６一段时间了，所以想常识新的语言。 我改用了VS２００３。我曾用这个语言写了个简单的POS SYSTEM。但经过岁月蹉跎我渐渐忘了它的程序。 现在我面对一个问题。

我应用MDIFORM。
我想做一个LOG OFF FUNCTION。 但我想LOF OFF，所有启动着CHILDFORM都要CLOSE。
我的CODE  ：



Dim A as New form2
Me.close() ' Close Mdiform
A.show() ' Show Login Page
[ RESOLVED ]
因为我没有ASSIGN CHILDFORM。MDIPARENT ＝ MDIFORM ［ RESOLVED ］

2nd 问题 ：
我如何只让一个同样的CHILDFORM LOAD 出来。因为当我启动CHILDFORM 时我可以LOAD MULTIPLE 一样的CHILDFORM。
谢谢各位的帮忙 ＂－）

[ 本帖最后由 Zhixuen 于 25-7-2007 07:21 PM 编辑 ]

Zhixuen

第二个问题我也解决了.

SOLUTION :
for each f as form in me.mdichildren
   if f.name = "formname" then exit sub
next
form2.mdiparent = me
form2.show()