CallByName请教高手相助，谢谢！！！

[msdn165168]

我想通过CallByName（对象，函数名，CallType,参数）来执行一个对象的一个方法

在类模块里：
有：
Private Sub PriAdd(ByVal TEMP As String, ByVal strTemp As String )
If InStr(TEMP, strTemp) > 0 Then Primitives.Add(strTemp, CallByName（strTemp）)End Sub

函数为（同在类模块）
Public Function CLOSE() As Single
CLOSE = hq(CSTJJ / 1000
End Function

call PriAdd(newTEMP , CLOSE )

CallByName（）挎号里该如何写，谢谢！！！

[xingyuebuyu]

Imports System.Reflection

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''这个是VB6.0的方法，只能调用Public的方法
        CallByName(Me, "test", CallType.Method, New Object() {"abc", "def"})

        '建议用反射
        Dim mi As MethodInfo = Me.GetType.GetMethod("test", BindingFlags.Instance Or BindingFlags.Public)
        mi.Invoke(Me, New Object() {"abc", "def"})
    End Sub

    Public Sub test(ByVal s As String, ByVal s2 As String)
        Console.WriteLine(s + s2)
    End Sub
End Class

http://msdn.microsoft.com/zh-cn/library/4d848zkb(v=VS.80).aspx

[红衣老大]

你百度一下反射的使用方法

[msdn165168]

谢谢两位的帮助！！！
我有点看不懂，还请帮助看看我的实际问题，谢谢！！！
我要在散表（Primitives）添加一个数值（检查已有就删除，再添加，如没有就添加）
Public Primitives As Hashtable
Private Sub mcjcdy(ByVal nebem As String)

Dim i As Long
Dim StrArr() As String = Split("OPEN,CLOSE,HIGH,LOW,VOL,CAPITAL,BARPOS,BIGORDER1,BIGORDER2,ORDER1,ORDER2,AMOUNT,ZLCC,TDCC,ZHCC,DHCC,SHCC,TDCCZH,ZHCCZH,SHCCZH,JGCJB,SMCJB,SHCJB,BSMCL,BSMRL,DJMCL,DJMRL,TUMCL,TUMRL", ",")
Do While i < UBound(StrArr)
If InStr(nebem, StrArr(i)) > 0 Then Call PriAdd(nebem, StrArr(i))
i += 1
Loop
End Sub


Private Sub PriAdd(ByVal TEMP As String, ByVal strTemp As String)

If InStr(TEMP, strTemp) > 0 Then
If Primitives.ContainsKey(strTemp) Then
Primitives.Remove(strTemp)
Primitives.Add(strTemp, CallByName(Me, strTemp, CallType.Method, strTemp)) Else
Primitives.Add(strTemp, CallByName(Me, strTemp, CallType.Method, New Object()))
End If
End If

End Sub

Public Function CLOSE() As Single '()
CLOSE = hq(CSTJJ).SPJ / 1000
End Function

红色部分要求能调用不同的（和strTemp一样名称的函数）函数值

就像下面这句一样：
If InStr(TEMP, "CLOSE") > 0 Then Primitives.Add("CLOSE", CLOSE)（执行时CLOSE就是100）

Public Function CLOSE() As Single '()
CLOSE =100‘ hq(CSTJJ).SPJ / 1000
End Function

还请高手相助，谢谢！！！

[xingyuebuyu]

Imports System.Reflection

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''这个是VB6.0的方法，只能调用Public的方法
        CallByName(Me, "test", CallType.Method, New Object() {"abc", "def"})

        ''没有参数就设为nothing,有参数时就对后面的Object类型数组进行赋值
        Dim s As Single = CallByName(Me, "CLOSE2", CallType.Method, Nothing)


        '建议用反射
        Dim mi As MethodInfo = Me.GetType.GetMethod("test", BindingFlags.Instance Or BindingFlags.Public)
        mi.Invoke(Me, New Object() {"abc", "def"})
    End Sub

    Public Sub test(ByVal s As String, ByVal s2 As String)
        Console.WriteLine(s + s2)
    End Sub

    Public Sub test2()
        Console.WriteLine("1111111")
    End Sub

    Public Function CLOSE2() As Single '()
        CLOSE2 = 100 ' hq(CSTJJ).SPJ / 1000
    End Function
End Class