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