我有一个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
它可以是一个列表(字符串)或字符串()或堆栈(字符串)或任何其他任何类型的对象列表。