自作プロパティで選択式に入力させる方法
1.Enumで変数を作成
(デフォルト値もここで設定)
Public Enum enum_Type As Integer
Odd = 1 '奇数行
Even = 2 '偶数行
End Enum
Private _enum_Type As enum_Type = enum_Type.Odd
2.プロパティの定義で1.で作成したEnum型を指定
Property Type() As enum_Type
Get
Return _enum_Type
End Get
Set(ByVal value As enum_Type)
_enum_Type = value
'Typeの値により標準背景色をセット
If value = enum_Type.Even Then
Me.BackColor = Color.Red
Else
Me.BackColor = Color.Blue
End If
End Set
End Property
※この例ではTypeプロパティを作成し、「Odd」「Even」が選択できる。
※Evenを選択した場合、背景色を赤。Oddを選択した場合、背景色を青に設定している。
.
最終更新:2008年07月30日 10:27