vb 动态生成控件，如何置于顶层

[mmxmmx1122]

Private Sub Form_Load()
    For i = 1 To 4
        Load Label1(i)
        Label1(i).Visible = True
        Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 200
        Label1(i).Caption = "合计" 
    Next i
End Sub

[无·法]

Private Sub Form_Load()
    For i = 1 To 4
        Load Label1(i)
        Label1(i).Visible = True
        Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 200
        Label1(i).Caption = "合计"
        Label1(i).ZOrder 0  '加这行就可以了
    Next i
End Sub

[mmxmmx1122]

引用 2 楼 sysdzw 的回复:

Private Sub Form_Load()
    For i = 1 To 4
        Load Label1(i)
        Label1(i).Visible = True
        Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 200
        Label1(i).Caption = "合计"
        Label1(i).ZOrder 0  '加这行就可以了
    Next i
End Sub

多谢您的帮助，完美解决。再问个问题，动态load 了，怎么卸载啊。我用unload label1(i)，不行。报错：不能卸载设计时创建的控件。

[专注编程优化20年]

Private Sub Command1_Click() Dim i As Long For i = 0 To 4 Unload Label1(i) Next i End Sub 0是默认的基控件是不能卸载

Private Sub Command1_Click()
Dim i As Long

    For i = 1 To 4
        Unload Label1(i)
     
    Next i
End Sub

这样就可以了

[无·法]

引用 3 楼 mmxmmx1122 的回复:

[quote=引用 2 楼 sysdzw 的回复:]

Private Sub Form_Load()
    For i = 1 To 4
        Load Label1(i)
        Label1(i).Visible = True
        Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 200
        Label1(i).Caption = "合计"
        Label1(i).ZOrder 0  '加这行就可以了
    Next i
End Sub

多谢您的帮助，完美解决。再问个问题，动态load 了，怎么卸载啊。我用unload label1(i)，不行。报错：不能卸载设计时创建的控件。[/quote]你的代码是怎样的？另外建议尽量在一个帖子提一个问题。

[mmxmmx1122]

图片上传不了，如果经label1生成的数组控件，置于顶层，因为还有1个label2显示其中