Dim ck(20) As New Form1 '窗口是否打开判断条件,1为打开,0为没有打开
Dim frm1 As New Form1 If ck(0) = 1 Then frm1.Activate() ‘已打开的MDI子窗口1获得焦点 Else frm1.MdiParent = Me frm1.Show() ’打开MDI子窗口1 End If
以上代码不知道为什么总是不能获得焦点?!