前回の記事を読んだ人は「じゃあ、書き込み専用プロパティってあるの？」と疑問に思ったよね。
お察しの通りあるピヨ。
でもボクはまだ実際のプロジェクトで使用したことが無い。
うーん、何に使うんだろう・・・まぁ、あった方がいいんだけどねぇ。
悩んだ末にサンプルプログラムに早速使ってみたピヨ。
突っ込みどころ満載だけど我慢してみてピヨ。
Public MustInherit Class Animal
Private m_name As String
Public ReadOnly Property Name() As String
Get
Return m_name
End Get
End Property
Private m_age As Integer
Public Property Age() As Integer
Get
Return Me.m_age
End Get
Set(ByVal value As Integer)
If value > 0 Then
Me.m_age = value
End If
End Set
End Property
Private m_password As String
'これが書き込み専用プロパティ
Public WriteOnly Property Password() As String
Set(ByVal value As String)
Me.m_password = value
End Set
End Property
Public Sub New(ByVal name As String, ByVal age As Integer)
Me.m_name = name
Me.Age = age
End Sub
Public Overridable Sub Talk()
Console.WriteLine("ワタシハ{0}。年は{1}だよ。", _
Me.Name, Me.Age)
End Sub
Public MustOverride Sub Move()
End Class
パスワードは特別な処理をすることが多いから、それを考慮して実装してみたピヨッ。
うーんでも苦しい・・・苦しいからこれで終わりピヨ。
もしかしたら使うべき局面があるかもしれないから一応覚えておいてね。
じゃあね。