
VB.NET2003環境なのですが、
Dim A As Boolean
と宣言すると選べるのはTrueかFalseになりますが、
TrueかFalseではなく、Cat、Dog、Mouse、Rabbitなど
自分で好きな選択肢を設定することはできませんか?
例えばこの場合だとInteger型で宣言して、
0をCat、1をDog、2をMouse、3をrabbit、と対応させて
扱っていたのですが、たくさんの種類があったりするとややこしくなってしまったり、
途中まで入力して選択肢が表示されると分かりやすいのですが、
このようなことはできませんでしょうか?
何か方法がありましたら、ご教示頂けると幸いです。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
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
'と書けば通じるか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数字とプラス以外の入力をチェ...
-
HTTPSのとき":"が"%3A"ではなく...
-
フラグについて
-
バイナリファイルから文字列を...
-
ASP+アクセスでのSQLコメントに...
-
Eclipseでパッケージ表示がフラ...
-
プログラムの関数の例でよく使...
-
Excel VBA の ChangeFileAccess
-
Boolean型配列中のTrueの有無を...
-
ifreamをリロードしたい
-
Vb.netのグローバル変数の宣言...
-
functionから別のfunctionを実...
-
コードの簡素化
-
ActiveXobjectが作成できない
-
ASP.NETのコントロールの値をJa...
-
google feed api
-
google apps scriptの終了のさせ方
-
C#OpenCv V4にのエラーに関する...
-
Google Apps Script で添付ファ...
-
Ajaxでデータベース(PostgreSQL)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Boolean型配列中のTrueの有無を...
-
HTTPSのとき":"が"%3A"ではなく...
-
ボタンをクリックすると数が増...
-
Linux バイナリ実行できない "...
-
ASP+アクセスでのSQLコメントに...
-
Excel VBA の ChangeFileAccess
-
アンカーリンクをクリックさせ...
-
javascriptで文字挿入でtoggle...
-
ifreamをリロードしたい
-
static と externについて
-
同じ型【ハイフンと数字】だけ...
-
【正規表現】【javascript】CR...
-
System::Drawing::Color::XXXX...
-
MFCのキャプション変更
-
VB.NETで変数の型は自作...
-
【Jquery】changeイベント毎にa...
-
サブウインドウから親ウインド...
-
Vb.netのグローバル変数の宣言...
-
window.onloadでのfunction
-
hogehogeの由来
おすすめ情報