Bring to front MdiChild in Mdi Container - VB.Net

Dari : http://tentangvb.blogspot.com/search?updated-min=2012-01-01T00:00:00-08:00&updated-max=2013-01-01T00:00:00-08:00&max-results=3

Salah satu hal yang biasanya ada didalam aplikasi yang memaikai mode Kontiner MDI adalah fasilitas untuk mengecek apakah Mdichild telah aktiv di MDI kontiner, untuk kemudian di bawa ke posisi paling depan, ketimbang kita harus meng-createnya lagi. berikut ini adalah kode untuk keperluan tersebut(Ref: didapat dari milist bytes.com, dengan adopsi cara saya :) ), semoga bermanfaat.


Private Function isFormActive(ByVal TheFormName As String) As Boolean
        Try
            Dim ResultSearch As Boolean
            For Each myChild As Form In Me.MdiChildren
                If myChild.Name = TheFormName Then
                    ResultSearch = True
                    myChild.BringToFront()
                    Exit For
                Else
                    ResultSearch = False
                End If
            Next
            Return ResultSearch
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error to find the form", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try