using System;

class Account {
  // プロパティ
  public int ID {
    get {
      return _id;
    }
    set {
      _id = value;
    }
  }

  // プロパティの値を保持するフィールド
  private int _id;
}

class Sample {
  static void Main()
  {
    var a = new Account();

    // プロパティに値を設定する
    a.ID = 3;

    // プロパティから値を取得する
    int id = a.ID;

    Console.WriteLine(id);
  }
}

Imports System

Class Account
  ' プロパティ
  Public Property ID As Integer
    Get
      Return _id
    End Get
    Set
      _id = value
    End Set
  End Property

  ' プロパティの値を保持するフィールド
  Private _id As Integer
End Class

Class Sample
  Shared Sub Main()
    Dim a As New Account()

    ' プロパティに値を設定する
    a.ID = 3

    ' プロパティから値を取得する
    Dim id As Integer = a.ID

    Console.WriteLine(id)
  End Sub
End Class

interface IAccount {
  // プロパティ
  int ID { get; set; }
}

Interface IAccount
  ' プロパティ
  Property ID As Integer
End Interface

using System;

class Account {
  // プロパティの自動実装
  public int ID {
    get;
    set;
  }

  // 自動実装したプロパティは次のようなコードに展開される
  /*
  public int ID {
    get { return _id; }
    set { _id = value; }
  }

  private int _id;
  */
}

class Sample {
  static void Main()
  {
    var a = new Account();

    a.ID = 3;

    int id = a.ID;

    Console.WriteLine(id);
  }
}

Imports System

Class Account
  ' プロパティの自動実装
  Public Property ID As Integer

  ' 自動実装したプロパティは次のようなコードに展開される
  'Public Property ID As Integer
  '  Get
  '    Return _id
  '  End Get
  '  Set
  '    _id = value
  '  End Set
  'End Property
  '
  'Private _id As Integer
End Class

Class Sample
  Shared Sub Main()
    Dim a As New Account()

    a.ID = 3

    Dim id As Integer = a.ID

    Console.WriteLine(id)
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    string str = "Hello, world!";

    // インデクサによって文字列インスタンスをcharの配列のように扱える
    Console.WriteLine(str[0]);
    Console.WriteLine(str[1]);
    Console.WriteLine(str[2]);
    Console.WriteLine(str[3]);
    Console.WriteLine(str[4]);
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim str As String = "Hello, world!"

    ' インデクサによって文字列インスタンスをCharの配列のように扱える
    Console.WriteLine(str(0))
    Console.WriteLine(str(1))
    Console.WriteLine(str(2))
    Console.WriteLine(str(3))
    Console.WriteLine(str(4))
  End Sub
End Class

using System;
using System.Collections.Generic;

class Sample {
  static void Main()
  {
    // 文字列を添字(キー)として使用するDictionary
    var dict = new Dictionary<string, int>();

    dict["Alice"]   = 0;
    dict["Bob"]     = 1;
    dict["Charlie"] = 2;
  }
}

Imports System
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' 文字列を添字(キー)として使用するDictionary
    Dim dict As New Dictionary(Of String, Integer)()

    dict("Alice")   = 0
    dict("Bob")     = 1
    dict("Charlie") = 2
  End Sub
End Class

using System;

class ByteArray {
  private byte[] arr;

  public ByteArray(int length)
  {
    arr = new byte[length];
  }

  // インデクサとなるプロパティ
  public byte this[int index] { // 引数としてインデックスを受け取る
    // 引数で指定されたインデックスの値を返す
    get { return arr[index]; }
    // 引数で指定されたインデックスに値を設定する
    // (設定される値はキーワードvalueから参照することができる)
    set { arr[index] = value; }
  }
}

class Sample {
  static void Main()
  {
    var arr = new ByteArray(3);

    arr[0] = 2;
    arr[1] = 3;
    arr[2] = 4;

    for (var i = 0; i < 3; i++) {
      Console.WriteLine(arr[i]);
    }
  }
}

Imports System

Class ByteArray
  Private arr() As Byte

  Public Sub New(ByVal length As Integer)
    arr = New Byte(length - 1) {}
  End Sub

  ' インデクサとなるプロパティ
  Public Default Property Item(ByVal index As Integer) As Byte ' 引数としてインデックスを受け取る
    ' 引数で指定されたインデックスの値を返す
    Get
      Return arr(index)
    End Get
    ' 引数で指定されたインデックスに値を設定する
    ' (設定される値はキーワードvalueから参照することができる)
    Set
      arr(index) = value
    End Set
  End Property
End Class

Class Sample
  Shared Sub Main()
    Dim arr As New ByteArray(3)

    arr(0) = 2
    arr(1) = 3
    arr(2) = 4

    For i As Integer = 0 To 2
      Console.WriteLine(arr(i))
    Next
  End Sub
End Class

using System;
using System.Collections.Generic;

class Account {
  private readonly List<string> _addresses = new List<string>();

  public List<string> Addresses {
    get { return _addresses; }
  }
}

class Sample {
  static void Main()
  {
    var a = new Account();

    a.Addresses.Add("alice@example.com");
    a.Addresses.Add("alice-2@mail.example.net");

    a.Addresses[0] = "alice-1@mail.example.net";

    // 読み取り専用なのでコレクション自体を置き換える操作はできない
    //a.Addresses = new List<string>() {"alice@example.com"};
  }
}

Imports System
Imports System.Collections.Generic

Class Account
  Private ReadOnly _addresses As List(Of String) = New List(Of String)()

  Public ReadOnly Property Addresses As List(Of String)
    Get
      Return _addresses
    End Get
  End Property
End Class

Class Sample
  Shared Sub Main()
    Dim a As New Account()

    a.Addresses.Add("alice@example.com")
    a.Addresses.Add("alice-2@mail.example.net")

    a.Addresses(0) = "alice-1@mail.example.net"

    ' 読み取り専用なのでコレクション自体を置き換える操作はできない
    'a.Addresses = New List(Of String)() {"alice@example.com"}
  End Sub
End Class

using System;
using System.Collections.Generic;

class Account {
  public Account(IEnumerable<string> addresses)
  {
    _addresses = new List<string>(addresses);
  }

  private readonly List<string> _addresses;

  // IReadOnlyListとして公開する
  public IReadOnlyList<string> Addresses {
    get { return _addresses; }
  }
}

class Sample {
  static void Main()
  {
    var a = new Account(new[] {"alice@example.com", "alice-2@mail.example.net"});

    // コレクションの参照
    Console.WriteLine(a.Addresses.Count);
    Console.WriteLine(a.Addresses[0]);

    // IReadOnlyListではインデクサに対する設定はサポートされない
    //a.Addresses[0] = "alice-1@mail.example.net";

    // またAddなどコレクションの変更を行うメソッドも用意されない
    //a.Addresses.Add("alice-1@mail.example.net");
  }
}

Imports System
Imports System.Collections.Generic

Class Account
  Public Sub New(ByVal addresses As IEnumerable(Of String))
    _addresses = New List(Of String)(addresses)
  End Sub

  Private ReadOnly _addresses As List(Of String)

  ' IReadOnlyListとして公開する
  Public ReadOnly Property Addresses As IReadOnlyList(Of String)
    Get
      Return _addresses
    End Get
  End Property
End Class

Class Sample
  Shared Sub Main()
    Dim a As New Account(New String() {"alice@example.com", "alice-2@mail.example.net"})

    ' コレクションの参照
    Console.WriteLine(a.Addresses.Count)
    Console.WriteLine(a.Addresses(0))

    ' IReadOnlyListではインデクサに対する設定はサポートされない
    'a.Addresses(0) = "alice-1@mail.example.net"

    ' またAddなどコレクションの変更を行うメソッドも用意されない
    'a.Addresses.Add("alice-1@mail.example.net")
  End Sub
End Class

using System;

// 角度を表すクラス
class Degree {
  public int Value {
    get { return val; }
    set {
      // プロパティに設定される値を検証する
      if (value < 0 || 360 <= value)
        throw new ArgumentOutOfRangeException("Value", value, "角度には0以上360未満の値を指定してください。");

      // 検証した結果問題ない値ならフィールドに値を保持する
      val = value;
    }
  }

  private int val;
}

class Sample {
  static void Main()
  {
    var d = new Degree();

    d.Value = 360;
  }
}

Imports System

' 角度を表すクラス
Class Degree
  Public Property Value As Integer
    Get
      Return val
    End Get
    Set
      ' プロパティに設定される値を検証する
      If value < 0 OrElse 360 <= value Then
        Throw New ArgumentOutOfRangeException("Value", value, "角度には0以上360未満の値を指定してください。")
      End If

      ' 検証した結果問題ない値ならフィールドに値を保持する
      val = value
    End Set
  End Property

  Private val As Integer
End Class

Class Sample
  Shared Sub Main()
    Dim d As New Degree()

    d.Value = 360
  End Sub
End Class

using System;

// 角度を表すクラス
class Degree {
  public int Value {
    get { return val; }
    set {
      val = value;

      // 値を0 <= val < 360の範囲に正規化する
      for (;;) {
        if (val < 0)
          val += 360;
        else if (360 <= val)
          val -= 360;
        else
          break;
      }
    }
  }

  private int val;
}

class Sample {
  static void Main()
  {
    var d = new Degree();

    d.Value = 480;

    Console.WriteLine(d.Value);
  }
}

Imports System

' 角度を表すクラス
Class Degree
  Public Property Value As Integer
    Get
      Return val
    End Get
    Set
      val = value

      ' 値を0 <= val < 360の範囲に正規化する
      Do
        If val < 0 Then
          val += 360
        Else If 360 <= val
          val -= 360
        Else
          Exit Do
        End If
      Loop
    End Set
  End Property

  Private val As Integer
End Class

Class Sample
  Shared Sub Main()
    Dim d As New Degree()

    d.Value = 480

    Console.WriteLine(d.Value)
  End Sub
End Class

using System;
using System.ComponentModel;
using System.Reflection;

class Account : INotifyPropertyChanged {
  // プロパティが変更された場合に発行するイベント
  public event PropertyChangedEventHandler PropertyChanged;

  // 変更を通知するプロパティ
  private int _id;

  public int ID {
    get { return _id; }
    set {
      if (value != _id) {
        // 値が変更された場合、フィールドの値を更新したのちイベントを発行する
        _id = value;
        RaisePropertyChanged("ID");
      }
    }
  }

  private string _name;

  public string Name {
    get { return _name; }
    set {
      if (!string.Equals(value, _name)) {
        _name = value;
        RaisePropertyChanged("Name");
      }
    }
  }

  // プロパティが変更された場合にPropertyChangedイベントを発行するメソッド
  private void RaisePropertyChanged(string propertyName)
  {
    if (PropertyChanged != null)
      PropertyChanged(this, new PropertyChangedEventArgs(propertyName));
  }
}

class Sample {
  static void Main()
  {
    var a = new Account();

    // プロパティの変更を購読するイベントハンドラを割り当てる
    a.PropertyChanged += PropertyChanged;

    // プロパティの値を変更する
    a.ID = 3;
    a.Name = "Alice";
  }

  private static void PropertyChanged(object sender, PropertyChangedEventArgs e)
  {
    // 変更されたプロパティの値をリフレクションによって取得する
    object newValue = sender.GetType().GetProperty(e.PropertyName).GetValue(sender, null);

    Console.WriteLine("プロパティ'{0}'の値が'{1}'に変更されました", e.PropertyName, newValue);
  }
}

Imports System
Imports System.ComponentModel
Imports System.Reflection

Class Account
  Implements INotifyPropertyChanged

  ' プロパティが変更された場合に発行するイベント
  Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

  ' 変更を通知するプロパティ
  Private _id As Integer

  Public Property ID As Integer
    Get
      Return _id
    End Get
    Set
      If value <> _id Then
        ' 値が変更された場合、フィールドの値を更新したのちイベントを発行する
        _id = value
        RaisePropertyChanged("ID")
      End If
    End Set
  End Property

  Private _name As String

  Public Property Name As String
    Get
      Return _name
    End Get
    Set
      If Not String.Equals(value, _name) Then
        _name = value
        RaisePropertyChanged("Name")
      End If
    End Set
  End Property

  ' プロパティが変更された場合にPropertyChangedイベントを発行するメソッド
  Private Sub RaisePropertyChanged(ByVal propertyName As String)
    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim a As New Account()

    ' プロパティの変更を購読するイベントハンドラを割り当てる
    AddHandler a.PropertyChanged, AddressOf PropertyChanged

    ' プロパティの値を変更する
    a.ID = 3
    a.Name = "Alice"
  End Sub

  Private Shared Sub PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs)
    ' 変更されたプロパティの値をリフレクションによって取得する
    Dim newValue As Object = sender.GetType().GetProperty(e.PropertyName).GetValue(sender, Nothing)

    Console.WriteLine("プロパティ'{0}'の値が'{1}'に変更されました", e.PropertyName, newValue)
  End Sub
End Class

using System;
using System.ComponentModel;
using System.Runtime.CompilerServices;

class Account : INotifyPropertyChanged {
  public event PropertyChangedEventHandler PropertyChanged;

  private int _id;

  public int ID {
    get { return _id; }
    set {
      if (value != _id) {
        _id = value;
        RaisePropertyChanged(); // 呼び出し元はプロパティ名を指定する必要が無い
      }
    }
  }

  private string _name;

  public string Name {
    get { return _name; }
    set {
      if (!string.Equals(value, _name)) {
        _name = value;
        RaisePropertyChanged();
      }
    }
  }

  // 引数propertyNameに呼び出し元のプロパティ名が代入された上で呼び出される
  private void RaisePropertyChanged([CallerMemberName] string propertyName = null)
  {
    if (PropertyChanged != null)
      PropertyChanged(this, new PropertyChangedEventArgs(propertyName));
  }
}

Imports System
Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Class Account
  Implements INotifyPropertyChanged

  Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

  Private _id As Integer

  Public Property ID As Integer
    Get
      Return _id
    End Get
    Set
      If value <> _id Then
        _id = value
        RaisePropertyChanged() ' 呼び出し元はプロパティ名を指定する必要が無い
      End If
    End Set
  End Property

  Private _name As String

  Public Property Name As String
    Get
      Return _name
    End Get
    Set
      If Not String.Equals(value, _name) Then
        _name = value
        RaisePropertyChanged()
      End If
    End Set
  End Property

  ' 引数propertyNameに呼び出し元のプロパティ名が代入された上で呼び出される
  Private Sub RaisePropertyChanged(<CallerMemberName> Optional ByVal propertyName As String = Nothing)
    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Runtime.CompilerServices;

class Account : INotifyPropertyChanged {
  public event PropertyChangedEventHandler PropertyChanged;

  private int _id;

  public int ID {
    get { return _id; }
    set { SetValue(ref _id, value, EqualityComparer<int>.Default); }
  }

  private string _name;

  public string Name {
    get { return _name; }
    set { SetValue(ref _name, value, StringComparer.Ordinal); }
  }

  private void SetValue<T>(ref T storage,
                           T newValue,
                           IEqualityComparer<T> comparer,
                           [CallerMemberName] string propertyName = null)
  {
    // フィールドの現在の値と新しい値を比較する
    if (!comparer.Equals(storage, newValue)) {
      // もとのフィールドに新しい値を設定する
      storage = newValue;

      // イベントを発行する
      if (PropertyChanged != null)
        PropertyChanged(this, new PropertyChangedEventArgs(propertyName));
    }
  }
}

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Class Account
  Implements INotifyPropertyChanged

  Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

  Private _id As Integer

  Public Property ID As Integer
    Get
      Return _id
    End Get
    Set
      SetValue(_id, value, EqualityComparer(Of Integer).Default)
    End Set
  End Property

  Private _name As String

  Public Property Name As String
    Get
      Return _name
    End Get
    Set
      SetValue(_name, value, StringComparer.Ordinal)
    End Set
  End Property

  Private Sub SetValue(Of T)(ByRef storage As T, _
                             ByVal newValue As T, _
                             ByVal comparer As IEqualityComparer(Of T), _
                             <CallerMemberName> Optional ByVal propertyName As String = Nothing)
    ' フィールドの現在の値と新しい値を比較する
    If Not comparer.Equals(storage, newValue) Then
      ' もとのフィールドに新しい値を設定する
      storage = newValue

      ' イベントを発行する
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
    End If
  End Sub
End Class