0

我有一个 ToString 的通用函数。除了收藏,它工作得很好。

我搜索了一种创建异常的方法:如果该项目是对象列表(来自 System.Collections.Generic 或数组),它应该为列表的每个元素执行一个 ToString。

Public Overrides Function ToString() As String
    Dim sb = New Text.StringBuilder(String.Format("{1}<{0}>", Me.GetType.FullName, System.Environment.NewLine))
    sb.Append(Environment.NewLine)
    For Each item In [GetType]().GetFields(BindingFlags.NonPublic Or BindingFlags.Instance)
        sb.Append(String.Format("[{0} = {1}] ", item.Name, item.GetValue(Me)))
        sb.Append(Environment.NewLine)
    Next
    Return sb.ToString()
End Function

它可以是列表(字符串)或字符串()或堆栈(字符串)或任何其他类型的任何类型的对象列表。

4

0 回答 0