Private Sub Form1_MdiChildActivate(sender As Object, e As EventArgs) Handles MyBase.MdiChildActivate Dim frmact = Me.ActiveMdiChild Dim i = Array.IndexOf(Me.MdiChildren, frmact) If i = 0 AndAlso Me.MdiChildren.Length = 1 Then btnNext.Enabled = False btnPrevious.Enabled = True ElseIf i = 0 AndAlso Me.MdiChildren.Length > 1 Then btnNext.Enabled = True btnPrevious.Enabled = False ElseIf i = Me.MdiChildren.Length - 1 Then btnNext.Enabled = False btnPrevious.Enabled = True Else btnNext.Enabled = True btnPrevious.Enabled = True End If If Me.ActiveMdiChild Is Nothing Then btnNext.Enabled = False btnPrevious.Enabled = False End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)