mdi窗口中如何控制子窗口只能打开一个？

Question

public function checkmdi(byval formname as string ) as integer
  dim check as integer
  dim i as integer
  dim count as integer=me.mdichildren.length
  if count<1 then return -1
  for i=0 to count-1
    if mdichildren(i).name=formname then
       check=i
       exit for
    else
      check=-1
    end if
  next 
return check
end function

Answer 1

用showDialog()函数打开窗体，即设为模式话的

Answer 2

http://dev.csdn.net/develop/article/28/28864.shtm

Answer 3

在MDI菜单中放一个菜单项,将MDILIST设置为TRUE,
然后判断它的是否有子项就可以了.有子项表示已打开窗体.则提示.

Answer 4

每次打开子窗体之前在mdi控件中循环依次，检查是否有该子窗体