This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(195.2, 54%, 28%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EJS%3C/text%3E%3C/svg%3E)
I have a form with 3 panels on top of each other. How can I tell if one of the panels is on top and therefore visible?
The code below does not work.
If FPMain.panAdoption.Visible = True then
' Do some code
End If
Thank you for any assistance.
I ran your code and found out that the index for panAdoption is 9. However, I need to know if panAdoption is the panel that is currently showing on the form or is another panel is showing. I hope this is more clear.
Compare the indexes of all panels (it is like the Z-Order)
Think I better understand what you are trying to tell me. The panel that is visible will have an index of 1? Or maybe 0?. So if the index of the panAdoption is not 1 then it is not visible. Is that right?
0 is the control at top
For example, a test with a Panel1 =>
Dim nNbControls As Integer = 0
For Each c As System.Windows.Forms.Control In Me.Controls
nNbControls += 1
Next
MessageBox.Show(String.Format("Nb of child controls : {0}", nNbControls), "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim nChildIndex As Integer = Me.Controls.GetChildIndex(Panel1)
MessageBox.Show(String.Format("Index Panel1 : {0}", nChildIndex), "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Panel1.BringToFront()
Dim nChildIndexNew = Me.Controls.GetChildIndex(Panel1)
MessageBox.Show(String.Format("Index Panel1 after BringToFront : {0}", nChildIndexNew), "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Your code examples provided me with the tools I needed to get this done. Knowing that the panel which is showing has an index of 0, allows me to run code that only applies to panAdoption.
Thanks to you, all is well.
You can use GetChildIndex
Like :
Dim nChildIndex As Integer = Me.Controls.GetChildIndex(panAdoption)