2

我可以使用CallByName访问类的子值（换句话说，我可以Class.SubValue使用它）。
但是当我想Class.SUBCLASS.SubValue使用 CallByName 时出现错误。
是否可以使用 CallByName （或使用 smtg else）来做到这一点？

这是一个典型的代码：

Class Class1
    Public someVariable as Long=123 'now "Class1" has "someVariable" 
End Class
Class Class2
    Public subClass as new Class1   'now "Class2" has a SUBCLASS "Class1" 
End Class

Sub Test()
    Dim c1 as New Class1, c2 as New Class2
        'This works fine, and I can get c1.someVariable. It's OK.
    a=CallByName(c1,"someVariable",CallType.Get)
        'But I get error here... and I can't get c2.subClass.someVariable
    b=CallByName(c2,"subClass.someVariable",CallType.Get)
End Sub

- 编辑：这是实际的问题。--

我想将文件中的参数加载到表单的控件中，并且在文件中的参数是这样写的：
<ControlName>.<Property>=<Value> | TextBox1.Text=SomeText | Button2.Left=1234
当我使用时出现错误：
CallByName(MyForm, "<ControlName>.<Property>", CallType.Set, "<Value>")

如何解决我的问题（使用 CallByName 或 smtg else）？

4

2 回答 2

2

我使用了这个简单的递归函数

  Function RecursiveGetValue(ByVal Name As String, ByVal Data As Object) As Object
If Name.Contains(".") = True Then
  RecursiveGetValue = RecursiveGetValue(Name.Substring(Name.IndexOf(".") + 1), CallByName(Data, Name.Split(".")(0), CallType.Get))
Else
  RecursiveGetValue = CallByName(Data, Name, CallType.Get)
End If

结束功能

于 2013-06-13T12:56:34.120 回答
0

我正在做类似的事情。我希望能够在 SQL 列名中使用点表示法以递归方式填充对象层次结构。

Sub PopulateData(r As SqlDataReader)
    For i As Integer = 0 To r.FieldCount - 1
        If Len(r(i)) > 0 Then
            Try
                Dim ob As Object = Me
                Dim name As String = r.GetName(i)

                While InStr(name, ".") > 0
                    ob = CallByName(ob, Split(name, ".")(0), CallType.Get)
                    name = name.Substring(InStr(name, "."))
                End While

                CallByName(ob, name, CallType.Set, r(i))


            Catch ex As Exception
                Console.WriteLine("Missing property: {0}", r.GetName(i))

            End Try

        End If

    Next

End Sub
于 2019-07-26T17:18:51.490 回答