魔百盒CM201-1终极刷机指南:从零开始安装Armbian系统的完整教程
2025/12/23 4:41:52
在序列化过程中,事件和委托指向非序列化类型可能会引发问题。为了解决这个问题,可以使用自定义方法替代标准的FormatterServices.GetSerializableMembers。
' Récupère la liste des membres sérialisables d’un type, à l’exception des délégués. Function GetSerializableMembersEx(ByVal type As Type) As MemberInfo() Dim list As New List(Of MemberInfo) For Each mi As MemberInfo In FormatterServices.GetSerializableMembers(type) ' Ajoute cet élément au résultat s’il ne s’agit pas d’un délégué. Dim fi As FieldInfo = TryCast(mi, FieldInfo) If fi IsNot Nothing And Not _ GetType([Delegate]).IsAssignableFrom(fi.FieldType) Then list.Add(mi) End If Next Return list.ToArray() End Fun