自作プロパティで選択式に入力させる方法


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