vb.net2008 指定类名和方法名进行测试用的工具

迷南。 2022-06-18 11:15 124阅读 0赞

'全局变量

Private mAppPath As String = My.Application.Info.DirectoryPath & "\\" & My.Application.Info.ProductName & ".exe"

'函数

Private Function FindAssemblyByName(ByVal className As String, ByVal methodName As String) As Object

Dim objAssembly As Assembly = Assembly.LoadFrom(mAppPath)  
        Dim types() As Type = objAssembly.GetTypes  
        Dim objResult As Object = Nothing  
        msbText = New StringBuilder  
        Dim j As Integer

For Each mtype As Type In types  
            If mtype.Name = className Then

Dim objMethodInfo As System.Reflection.MethodInfo = mtype.GetMethod(methodName)  
                If objMethodInfo Is Nothing Then  
                    MsgBox("関数が存在しません　または　権限が私有かもしれません")  
                    Exit For  
                End If

Dim objAdapter As Object = Activator.CreateInstance(mtype)  
                Dim Param As ParameterInfo  
                Dim Params As ParameterInfo() = objMethodInfo.GetParameters()

If Params.Count > 0 Then  
                    msbText.AppendLine("--引数リスト---------------")  
                End If

For Each Param In Params  
                    j = j + 1  
                    msbText.AppendLine("--引数\[" & CStr(j) & "\]--")  
                    msbText.AppendLine("Param=" + Param.Name.ToString())  
                    msbText.AppendLine("  Type=" + Param.ParameterType.ToString())  
                    msbText.AppendLine("  Position=" + Param.Position.ToString())  
                    msbText.AppendLine("  Optional=" + Param.IsOptional.ToString())  
                Next Param

If Not Params Is Nothing AndAlso Params.Count > 0 Then

Dim objs As Object = New Object()

ReDim objs(Params.Count - 1)

objs(0) = mDBConn

For i As Integer = 0 To Params.Count - 2  
                        objs(i + 1) = mAryTextBox.Item(i)  
                    Next

objResult = objMethodInfo.Invoke(objAdapter, objs)

Else  
                    objResult = objMethodInfo.Invoke(objAdapter, Nothing)  
                End If

Exit For  
            End If  
        Next

Return objResult

End Function