vb.net 中的反序列化函数调用时 RaiseEvent 没有引发

Question

我有一个可序列化的 class

<Serializable()> Public Class SACCVar

Private _ConsigneCompression As Integer

Public Event VariableChanged(ByVal Val As Object, ByVal Old_Val As Object, desc As String)

Public Property ConsigneCompression As Integer

    Get
        Return _ConsigneCompression
    End Get
    Set(value As Integer)
        Tmp_Val = _ConsigneCompression
        _ConsigneCompression = value
        RaiseEvent VariableChanged(_ConsigneCompression, Tmp_Val, "ConsigneCompression")
    End Set
End Property End Class

在一个模块中，我将我的变量声明为 class 并实现我的 raise 函数

     Public WithEvents MesuresVal As New MesuresVar
Public Sub SaccVarChanged(ByVal Val, ByVal Old_Value, DictKeyDesc) Handles SaccData.VariableChanged
        For Each item As CtrlItem In SaccData.DicOfControl(DictKeyDesc)

        Dim pinstance As PropertyInfo = item.Ctrl.GetType.GetProperty(item.prop)
        pinstance.SetValue(item.Ctrl, Val)
    Next End Sub

在我做的代码中

SaccData.ConsigneCompression = 1234

它调用 SaccVarChanged

但是当我调用反序列化我的 class 的子例程时，它会传递我的 "public property" 中代码的 RaiseEvent VariableChanged 部分。但它没有引发 SaccVarChanged 子。

有什么我可以做的吗？谢谢

编辑：这是我的序列化/反序列化代码：

  Dim fichier As String
    fichier = Fichier_SACC
    ' Déclaration
    Dim XSSACC As New XmlSerializer(SaccData.GetType)
    Dim streamSACC As FileStream
    If Not File.Exists(fichier) Then
        'Exit Sub
        'TODO gestion erreur
    Else
        streamSACC = New FileStream(fichier, FileMode.Open)
        Try
            SaccData = CType(XSSACC.Deserialize(streamSACC), SACCVar)


        Catch ex As Exception
            ' Propagrer l'exception
            Throw ex
        Finally
            ' En cas d'erreur, n'oublier pas de fermer le flux en lecture si ce dernier est toujours ouvert
            streamSACC.Close()
        End Try
    End If




            Dim StreamSACC As New StreamWriter(Fichier_SACC)
    Dim serialiseSACC As New XmlSerializer(SaccData.GetType)
    Try
        serialiseSACC.Serialize(StreamSACC, SaccData)
    Catch ex As Exception
        Throw ex
    Finally
        StreamSACC.Close()
    End Try

Answer 1

好的，我终于让它工作了...

感谢这里：Events not working with after Deserialization

我发现反序列化删除了事件的处理程序。似乎反序列化创建了我的对象的一个新实例。 link 中给出的解决方案类似于：

        <OnDeserialized()>
Private Sub OnDeserializedMethod(ByVal Context As StreamingContext)

        AddHandler Child.Changed AddressOf Me.Child_Changed 
    End Sub

但这对我不起作用，因为我正在使用 xmlserialiser，它似乎没有通过回调实现（我读到的与框架 1.1 的兼容性问题...）

相反，我使用了我在 "new" 方法中测试的标志。一切如我所料。

再次感谢@plutonix..

vb.net 中的反序列化函数调用时 RaiseEvent 没有引发

RaiseEvent didn't raise when called by Deserialized function in vb.net

vb.net

serialization

raiseevent