vb.netそれ自身のクラスコンストラクタ

Question

私は受信したjsonメッセージを逆シリアル化するためのラッパークラスを用意しています。 現時点で私はこれをこのように使用しています。

Dim oXMessage As XMessage = JsonConvert.DeserializeObject(Of XMessage)(message) 

私はもっときれいに、それをインスタンス化できるように、クラスのコンストラクタを作成したいです。このように

Dim oXMessage as XMessage = New XMessage(message)   

私は以下のコンストラクタを試しましたが、動作しません。 誰かが正しい方向に私を向けることができますか？

Public Class XMessage 
    <JsonProperty("e")> Public MessageType As String 
    <JsonProperty("data")> Public MessageData As Object 
    <JsonProperty("ok")> Public MessageOk As String 

    Public Sub New(message As String) 
     Me = JsonConvert.DeserializeObject(Of Me)(message) 
    End Sub 
End Class 

Answer 1

それは、現在構築中のオブジェクトであるので、あなたは、コンストラクタでMeの値を再割り当てすることはできません。

Public Class XMessage 
    <JsonProperty("e")> Public MessageType As String 
    <JsonProperty("data")> Public MessageData As Object 
    <JsonProperty("ok")> Public MessageOk As String 

    Public Sub New(message As String) 
     JsonConvert.PopulateObject(message, Me) 
    End Sub 

    Public Sub New() 
    End Sub 
End Class 

サンプルfiddle：しかし、あなたはその内容を初期化するためにJsonConvert.PopulateObject()を呼び出すことができます。

Answer 2

Meキーワードは、現在のインスタンスを参照し、割り当て対象にすることはできません。

代わりに、新しいオブジェクトを作成してデシリアライズし、新しいオブジェクトのメンバ変数を現在のインスタンスにコピーすることができます。

編集：ヘルパー関数なし

Public Class XMessage 

    <JsonProperty("e")> Public MessageType As String 
    <JsonProperty("data")> Public MessageData As Object 
    <JsonProperty("ok")> Public MessageOk As String 

    Public Sub New(message As String) 
     Dim other = JsonConvert.DeserializeObject(Of XMessage)(message) 
     Me.MessageType = other.MessageType 
     Me.MessageData = other.MessageData 
     Me.MessageOk = other.MessageOk 
    End Sub 

End Class 

オリジナル：

Public Class XMessage 

    <JsonProperty("e")> Public MessageType As String 
    <JsonProperty("data")> Public MessageData As Object 
    <JsonProperty("ok")> Public MessageOk As String 


    Public Sub New(message As String) 
     Dim other as XMessage= Deserialize(message) 
     Me.MessageType = other.MessageType 
     Me.MessageData = other.MessageData 
     Me.MessageOk = other.MessageOk 
    End Sub 


    Public shared Function Deserialize(message as String) as XMessage 
     return JsonConvert.DeserializeObject(Of XMessage)(message) 
    End Function 

    Public Shared Function Serialize(message As XMessage) As String 
     return JsonConvert.SerializeObject(message) 
    End Function 

End Class