Zorder of all controls

Question

How do you rearrange the zorder of all controls on a form?
I once knew but forgot.  This is not the same as changing the Tab Order.
Solitaire

Answer 1

Is this useful to you?
Option Strict On
Option Explicit On
Option Infer Off
Public Class Form1
Friend WithEvents Button1 As New Button With {.Parent = Me, .Left = 100, .Top = 100, .Text = "set Z"}
Friend WithEvents tbNewzOrder As New TextBox With {.Parent = Me, .Left = 150, .Top = 130}
Friend WithEvents cboBx As New ComboBox With {.Parent = Me, .Top = 130}
Friend WithEvents Buttons As New List(Of exButton)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer = 0
Dim y As Integer = 0
Dim cnt As Integer = 9
For I As Integer = 0 To 9
Dim button As New exButton With {.Parent = Me}
Buttons.Add(button)
x += 10
y += 7
button.Left = x
button.Top = y
button.Text = "exBtn" & I.ToString
cboBx.Items.Add(button.Text)
cnt -= 1
Next
cboBx.Left = tbNewzOrder.Left - cboBx.Width
cboBx.SelectedIndex = 0
tbNewzOrder.Text = Buttons(cboBx.SelectedIndex).zOrder.ToString
End Sub
Sub d(sender As Object, e As EventArgs) Handles Button1.Click
Dim z As Integer = -1
If Integer.TryParse(tbNewzOrder.Text, z) Then
Buttons(cboBx.SelectedIndex).zOrder = z
End If
End Sub
Sub sdaf(sender As Object, e As EventArgs) Handles cboBx.SelectedIndexChanged
tbNewzOrder.Text = Buttons(cboBx.SelectedIndex).zOrder.ToString
End Sub
End Class
Public Class exButton
Inherits Button
Private _zOrder As Integer = 0
Public Property zOrder As Integer
Get
If Me.Parent Is Nothing Then Return _zOrder
Return Me.Parent.Controls.GetChildIndex(Me)
End Get
Set(value As Integer)
_zOrder = value
If Me.Parent Is Nothing Then Exit Property
Me.Parent.Controls.SetChildIndex(Me, value)
End Set
End Property
Public Shadows Property Parent As Control
Get
Return MyBase.Parent
End Get
Set(value As Control)
MyBase.Parent = value
If value Is Nothing Then Exit Property
Me.Parent.Controls.SetChildIndex(Me, zOrder)
End Set
End Property
End Class
“If you want something you've never had, you need to do something you've never done.”
Don't forget to mark
helpful posts and answers
! Answer an interesting question? Write a
new article
about it! My Articles
*This post does not reflect the opinion of Microsoft, or its employees.