新人求助vb MDI子窗体zorder闪烁问题

[piaoyimoshi]

新人求助vb 软件，用了MDI做父窗体，然后代码如下

load form1

form1.show

form1.zorder

我有好多个MDI子窗体，每个子窗体都设置了初始最大化，当累积打开多个子窗体时，无法再切换到之前打开过的窗体，然后我又不想关闭之前的窗体，于是我用了zorder属性，但是问题来了，每次切换时，窗口似乎会先Nomal，然后再MAX。因此打开瞬间会“闪一下边框再最大化”，有没有办法解决呢，最好隐藏他最大化的过程，求助达人，O(∩_∩)O谢谢

[Tiger_Zhao]

Private Declare Function LockWindowUpdate Lib "user32.dll" (ByVal hwndLock As Long) As Long

    LockWindowUpdate MDIForm1.hWnd
    Form1.Show
    Form1.ZOrder
    LockWindowUpdate 0

[piaoyimoshi]

我顶！！！！

[一如既往哈]

大侠们都不出手，那就试试老百姓的土法： 试试无边框的子窗体，用move方法调整大小和位置，这个肯定不会闪！

[一如既往哈]

好像用LockWindowUpdate没有效果。其实可以不用LockWindowUpdate的。 请参考下面的代码：

''这个代码不闪！！！
Option Explicit
Private mFrm(3) As Form1
Private Sub Command1_Click(Index As Integer)
    If Index = CInt(Me.Tag) Then Exit Sub
    With mFrm(Index)
        .Move 0, 0, Me.Width, Me.Height
        .WindowState = 2
        .Show
    End With
    With mFrm(CLng(Me.Tag))
        .WindowState = 0
        .Hide
    End With
    Me.Tag = CStr(Index)
End Sub
Private Sub MDIForm_Activate()
    With mFrm(0)
        .Show
        .WindowState = 2
        Me.Tag = "0"
    End With
End Sub
Private Sub MDIForm_Load()
    Dim i As Integer
    For i = 0 To 3
        Set mFrm(i) = New Form1
        mFrm(i).Lab.Caption = "Form1--" & i
    Next
End Sub

测试窗体控件：1个MDIForm1、一个Form1(mdichild=true)、一个picturebox、command1(0~3)以控件数组的形式存在于picturebox中。

[一如既往哈]

在那个form1上添加一个名称为lab的label控件。