私の各プライベート変数のためのvb.net

Question

私はVB.netで働いていて、ジェネリックToStringを作成したいと思います。 には、 "私の中の" For Eachを行う方法があります。

サンプル

Public Property Var1() As String {... get ... set ...} 
Public Property Var2() As String {... get ... set ...} 
Public Property Var2() As String {... get ... set ...} 

Public Overrides Function ToString() As String 
    dim str as stringbuilder 
    for each item in Me 
     str.append(item.tostring()) 
    next 
    return str 
End Function 

私の質問の理由その私の変数のいくつかは、ヌル（何）になることはできませんので。 だから、このような一般的なと、私は

if item isnot nothing then 
    str.append(item.tostring()) 
end if 

を行うことができます多分もっと良い方法をtheresの？

これはGetFieldsでリフレクションを使用して達成することができます

Answer 1

タンク。

Public Class [MyClass] 
    Private a As String 
    Private b As String 

    Public Sub New(a As String, b As String) 
     Me.a = a 
     Me.b = b 
    End Sub 

    Public Overrides Function ToString() As String 
     Dim sb = New StringBuilder() 
     For Each item In [GetType]().GetFields(BindingFlags.NonPublic Or BindingFlags.Instance) 
      sb.Append(item.Name) _ 
       .Append("=") _ 
       .Append(item.GetValue(Me)) _ 
       .Append(" ") 
     Next 
     Return sb.ToString() 
    End Function 

は、プロパティあなたはリフレクションを使用することができGetProperties