VB.NET 基本


  列挙体の定数名と値を全て取得



  
Module MyModule

' ********************************************************
' * 列挙体の定数名と値を全て取得
' ********************************************************
Sub Main()

	' Enum 構造体の GetNames メソッドで文字列名称を配列にセット
	Dim colorNames As String() = ConsoleColor.GetNames(GetType(ConsoleColor))
	Dim x As Integer

	For x = 0 To colorNames.Length - 1

		' 列挙体に定義されている文字列名称を実際の列挙定数に変換して、
		' さらに、本来の整数にキャストして名前と値を並べて表示する
		Console.WriteLine("{0} : {1}", _
			colorNames(x), _
			CType(System.Enum.Parse(GetType(ConsoleColor),colorNames(x)), Integer) _
		)

	Next

End Sub

End Module
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ