VB.NET2003環境なのですが、
Dim A As Boolean
と宣言すると選べるのはTrueかFalseになりますが、
TrueかFalseではなく、Cat、Dog、Mouse、Rabbitなど
自分で好きな選択肢を設定することはできませんか?
例えばこの場合だとInteger型で宣言して、
0をCat、1をDog、2をMouse、3をrabbit、と対応させて
扱っていたのですが、たくさんの種類があったりするとややこしくなってしまったり、
途中まで入力して選択肢が表示されると分かりやすいのですが、
このようなことはできませんでしょうか?
何か方法がありましたら、ご教示頂けると幸いです。
よろしくお願いいたします。
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
'と書けば通じるか
お礼
ありがとうございます。 出ました! すごく便利そうです。 詳しく書いて頂いてありがとうございました!!