# Re: 急救 !! 如何判断 MDI 的 child form 是否已经 active !!

Posted by 飞云 on June 03, 1999 at 19:38:38:

In Reply to: 急救 !! 如何判断 MDI 的 child form 是否已经 active !! posted by gg on June 03, 1999 at 10:08:42:

dim I as integer
For I = 0 To Forms.Count - 1
If TypeOf Forms(I) Is Frmusr Then
If Forms(I).Tag = 自定的tag Then
Forms(I).Show
Forms(I).SetFocus
Forms(I).WindowState = 0
Exit Sub
End If
else
dim J as integer
redim FrmNew as Frmusr
FrmNew.show
End If
Next I

Follow Ups: