ＶＢ．ＮＥＴで変数の型は自作できませんか？

ＶＢ．ＮＥＴ２００３環境なのですが、
Dim A As Boolean
と宣言すると選べるのはTrueかFalseになりますが、
TrueかFalseではなく、Cat、Dog、Mouse、Rabbitなど
自分で好きな選択肢を設定することはできませんか？

例えばこの場合だとInteger型で宣言して、
0をCat、1をDog、2をMouse、3をrabbit、と対応させて
扱っていたのですが、たくさんの種類があったりするとややこしくなってしまったり、
途中まで入力して選択肢が表示されると分かりやすいのですが、
このようなことはできませんでしょうか？

何か方法がありましたら、ご教示頂けると幸いです。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2007/08/02 02:50

Namespace MyNamescape

Public Enum MyAnimal As Integer

MyDog = 1
MyCat = 2
MyLion = 3

End Enum




Public Class Myapplication

Public Sub New()

End Sub

Public Function Animal(ByVal ParamAnimal As MyAnimal) As String

Select Case ParamAnimal

Case MyAnimal.MyCat

Return "猫"

Case MyAnimal.MyDog

Return "犬"
Case MyAnimal.MyLion

Return "ライオン"
Case Else

Return ""


End Select



End Function

End Class


Public Class MyapplicationMain

Shared Sub Main()

Dim hoge As Myapplication
hoge = New Myapplication

System.Console.WriteLine(hoge.Animal(MyAnimal.MyDog))

End Sub


End Class


End Namespace

'と書けば通じるか

この回答へのお礼

ありがとうございます。
出ました！
すごく便利そうです。
詳しく書いて頂いてありがとうございました！！

お礼日時：2007/08/02 04:04