verifyForm

[mohamed_chebbo]

What is the meaning of this code???

 Private Function pVerifyForm(ByVal pStr As String) As Boolean
        Dim v_ob As Object
        Dim v_arrForm As System.Windows.Forms.Form()
        Try
            v_arrForm = MyBase.MdiChildren
            For v_0 As Integer = 0 To v_arrForm.Length - 1
                v_ob = v_arrForm(v_0)
                If Not ObjectType.BitAndObj(ObjectType.ObjTst(LateBinding.LateGet(v_ob, Nothing, "name", New Object() {}, Nothing, Nothing), pStr, False) = 0, ObjectType.NotObj(ObjectType.ObjTst(LateBinding.LateGet(v_ob, Nothing, "name", New Object() {}, Nothing, Nothing), "FrmDashBoard", False) = 0)) Is Nothing Then
                    Dim v_arrobj As Object() = New Object() {Me}
                    LateBinding.LateSet(v_ob, Nothing, "MdiParent", v_arrobj, Nothing)
                    LateBinding.LateCall(v_ob, Nothing, "BringToFront", New Object() {}, Nothing, Nothing)
                    v_arrobj = New Object() {True}
                    LateBinding.LateSet(v_ob, Nothing, "TopMost", v_arrobj, Nothing)
                    LateBinding.LateCall(v_ob, Nothing, "Show", New Object() {}, Nothing, Nothing)
                    LateBinding.LateCall(v_ob, Nothing, "Focus", New Object() {}, Nothing, Nothing)
                    Return True
                Else
                    If Not ObjectType.NotObj(ObjectType.ObjTst(LateBinding.LateGet(v_ob, Nothing, "name", New Object() {}, Nothing, Nothing), "FrmDashBoard", False) = 0) Is Nothing Then
                        LateBinding.LateCall(v_ob, Nothing, "close", New Object() {}, Nothing, Nothing)
                    End If
                End If
            Next v_0
            Return False
        Catch v_exception As System.Exception
            System.Windows.Forms.MessageBox.Show(v_exception.ToString)
        End Try
    End Function

 

[jmcilhinney]

How should we know? It's your code. Presumably you got it form somewhere. Why? You must be trying to accomplish something to think that that code might be useful. What? If you give us no information then is it really fair to expect us to help? Make an effort, then we will too.