VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 関数・メソッド・変数関係のメニュー
1.数学関数・三角関数の紹介
2.主要データ型等の変換関数等の紹介
3.Convert クラスのメソッドでのデータ型変換関数等の紹介
4.Microsoft.VisualBasic 名前空間の主要文字列関数の紹介 
5.System.String クラスの主要文字列関数の紹介
6.条件判断等を行う関数の紹介
7.日付・時刻に関する主要関数の紹介(Microsoft.VisualBasic名前空間)
8.日付・時刻に関する System 名前空間のメソッド等の紹介
9.その他の主要関数(メソッド)等の紹介 
10.
11.
12.
20.その他、当サイト内に掲載の関数・メソッド・変数に関するサンプル


6.条件判断等を行う関数の紹介(11_Fnc_06) (旧、SampleNo.007)
1 .Choose メソッドの使用例(引数のリストから値を選択して返す)
2 .IIf メソッドの使用例(式の評価に応じて2 つのオブジェクトのうち 1 つを返す)
3 .IsArray メソッドの使用例(変数が配列かどうかを調べ結果をブール型の値で返す)
4 .IsDate メソッドの使用例(式を日付に変換できるかどうかを調べ結果をブール型の値で返す)
5 .IsDBNull メソッドの使用例(式が System.DBNull クラスに評価されるかどうかを示すプール型の値を返す)
6 .IsNothing メソッドの使用例(式にオブジェクトが割り当てられていないかどうかを示すプール型の値を返す)
7 .IsNumeric メソッドの使用例(式が数値として評価できるかどうかを示す Boolean 値を返す)
8 .IsReference メソッドの使用例(式が参照型に評価されるかどうかを示す Boolean 値を返す)
9 .LBound メソッドの使用例(配列内の指定された次元における最も小さいインデックスを返す)
10.Partition メソッドの使用例(ある数値が含まれる計算済み範囲を表す文字列を返す)
11.Switch メソッドの使用例(式のリストを評価しリスト内で最初に True に評価された式に対応する Object 値を返す)
12.TypeName メソッドの使用例(変数に関するデータ型情報を含む String 値を返す)
13.UBound メソッドの使用例(配列内の指定された次元における最も大きいインデックスを返す)
14.VarType メソッドの使用例(変数のデータ型の分類を含む Integer 値を返す)
15.
16.
17.
18.
19.
20.

実使用例としては適切でない使用例も含まれているかも知れませんがご了承願います。
また、使用例以外にも引数が色々用意されていますので、詳しくは、MSDN や WEB 上で調べて下さい。
 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :Button1
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.Choose メソッドの使用例(引数のリストから値を選択して返す)
[名前空間 : Microsoft.VisualBasic]
Choose メソッド = 引数のリストから値を選択し、返します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '2014 年の干支を求めます。(第一引数は、1から要素の数までの範囲の値である事)
    Dim eto() As String = {"申", "酉", "戌", "亥", "子", "丑", "寅", "卯", "辰", "巳", "午", "未"}
    Console.WriteLine("Choose((Now.Year() Mod 12) + 1, eto) = {0}", Choose((Now.Year() Mod 12) + 1, eto))

    TextBox1.Text = "01.Choose メソッド = 引数のリストから値を選択し、返します。" & vbCrLf
    TextBox1.Text &= "Dim eto() As String = {""申"", ""酉"", ""戌"", ""亥"", " _
                  & "子"", ""丑"", ""寅"", ""卯"", ""辰"", ""巳"", ""午"", ""未""}" & vbCrLf
    TextBox1.Text &= String.Format("Choose((Now.Year() Mod 12) + 1, eto) = {0}", Choose((Now.Year() Mod 12) + 1, eto))
End Sub

上記実行結果
01.Choose メソッド = 引数のリストから値を選択し、返します。
Dim eto() As String = {"申", "酉", "戌", "亥", 子", "丑", "寅", "卯", "辰", "巳", "午", "未"}
Choose((Now.Year() Mod 12) + 1, eto) = 未

このページのトップへ移動します。 2.IIf メソッドの使用例(式の評価に応じて2 つのオブジェクトのうち 1 つを返す)
[名前空間 : Microsoft.VisualBasic]
IIf メソッド = 式の評価に応じて、2 つのオブジェクトのうち 1 つを返します。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Console.WriteLine("IIf(System.Text.Encoding.Default.GetByteCount(""A"") < 2, ""半角"", ""全角"") = {0}", _
            IIf(System.Text.Encoding.Default.GetByteCount("A") < 2, "半角", "全角"))
    Console.WriteLine("IIf(System.Text.Encoding.Default.GetByteCount(""あ"") < 2, ""半角"", ""全角"") = {0}", _
            IIf(System.Text.Encoding.Default.GetByteCount("あ") < 2, "半角", "全角"))

    TextBox1.Text = "02.IIf メソッド = 式の評価に応じて、2 つのオブジェクトのうち 1 つを返します。" & vbCrLf
    TextBox1.Text &= String.Format("IIf(System.Text.Encoding.Default.GetByteCount(""A"")  < 2, ""半角"", ""全角"") = {0}", _
            IIf(System.Text.Encoding.Default.GetByteCount("A") < 2, "半角", "全角")) & vbCrLf
    TextBox1.Text &= String.Format("IIf(System.Text.Encoding.Default.GetByteCount(""あ"") < 2, ""半角"", ""全角"") = {0}", _
            IIf(System.Text.Encoding.Default.GetByteCount("あ") < 2, "半角", "全角")) & vbCrLf
End Sub

上記実行結果
02.IIf メソッド = 式の評価に応じて、2 つのオブジェクトのうち 1 つを返します。
IIf(System.Text.Encoding.Default.GetByteCount("A") < 2, "半角", "全角")  = 半角
IIf(System.Text.Encoding.Default.GetByteCount("あ") < 2, "半角", "全角") = 全角

このページのトップへ移動します。 3.IsArray メソッドの使用例(変数が配列かどうかを調べ結果をブール型の値で返す)
[名前空間 : Microsoft.VisualBasic]
IsArray メソッド = 変数が配列かどうかを調べ、結果をブール型 (Boolean) の値で返します。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim s1(3) As String
    Dim s2 As String = ""
    Console.WriteLine("IsArray(s1) = {0}", IsArray(s1))
    Console.WriteLine("IsArray(s2) = {0}", IsArray(s2))

    TextBox1.Text = "03.IsArray メソッド = 変数が配列かどうかを調べ、" _
                                & "結果をブール型 (Boolean) の値で返します。" & vbCrLf
    TextBox1.Text &= "Dim s1(3) As String : Dim s2 As String = """"" & vbCrLf
    TextBox1.Text &= String.Format("IsArray(s1) = {0}", IsArray(s1)) & vbCrLf
    TextBox1.Text &= String.Format("IsArray(s2) = {0}", IsArray(s2)) & vbCrLf
End Sub

上記実行結果
03.IsArray メソッド = 変数が配列かどうかを調べ、結果をブール型 (Boolean) の値で返します。
Dim s1(3) As String : Dim s2 As String = ""
IsArray(s1) = True
IsArray(s2) = False

このページのトップへ移動します。 4.IsDate メソッドの使用例(式を日付に変換できるかどうかを調べ結果をブール型の値で返す)
[名前空間 : Microsoft.VisualBasic]
IsDate メソッド = 式を日付に変換できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Console.WriteLine("IsDate(""2012/02/29"") = {0}", IsDate("2012/02/29"))
    Console.WriteLine("IsDate(""2014/02/29"") = {0}", IsDate("2014/02/29"))

    TextBox1.Text = "04.IsDate メソッド = 式を日付に変換できるかどうかを調べ、" _
                                  & "結果をブール型 (Boolean) の値で返します。" & vbCrLf
    TextBox1.Text &= String.Format("IsDate(""2012/02/29"") = {0}", IsDate("2012/02/29")) & vbCrLf
    TextBox1.Text &= String.Format("IsDate(""2014/02/29"") = {0}", IsDate("2014/02/29")) & vbCrLf
End Sub

上記実行結果
04.IsDate メソッド = 式を日付に変換できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。
IsDate("2012/02/29") = True
IsDate("2014/02/29") = False

このページのトップへ移動します。 5.IsDBNull メソッドの使用例(式が System.DBNull クラスに評価されるかどうかを示すプール型の値を返す)
[名前空間 : Microsoft.VisualBasic]
IsDBNull メソッド = 式が System.DBNull クラスに評価されるかどうかを示す Boolean 値を返します。

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    Console.WriteLine("IsDBNull(System.DBNull.Value) = {0}", IsDBNull(System.DBNull.Value))
    Console.WriteLine("IsDBNull(vbNull) = {0}", IsDBNull(vbNull))

    Dim MyVar As Object = System.DBNull.Value
    Console.WriteLine("IsDBNull(MyVar) = {0}", IsDBNull(MyVar))
    MyVar = Nothing
    Console.WriteLine("IsDBNull(MyVar) = {0}", IsDBNull(MyVar))

    TextBox1.Text = "05.IsDBNull メソッド = 式が System.DBNull クラスに" _
                                            & "評価されるかどうかを示す Boolean 値を返します。" & vbCrLf
    TextBox1.Text &= String.Format("IsDBNull(System.DBNull.Value) = {0}", IsDBNull(System.DBNull.Value)) & vbCrLf
    TextBox1.Text &= String.Format("IsDBNull(vbNull)              = {0}", IsDBNull(vbNull)) & vbCrLf

    TextBox1.Text &= "Dim MyVar As Object = System.DBNull.Value" & vbCrLf
    MyVar = System.DBNull.Value
    TextBox1.Text &= String.Format("IsDBNull(MyVar) = {0}", IsDBNull(MyVar)) & vbCrLf
    TextBox1.Text &= String.Format("MyVar = Nothing") & vbCrLf
    MyVar = Nothing
    TextBox1.Text &= String.Format("IsDBNull(MyVar) = {0}", IsDBNull(MyVar)) & vbCrLf
End Sub

上記実行結果
05.IsDBNull メソッド = 式が System.DBNull クラスに評価されるかどうかを示す Boolean 値を返します。
IsDBNull(System.DBNull.Value) = True
IsDBNull(vbNull)              = False

Dim MyVar As Object = System.DBNull.Value
IsDBNull(MyVar) = True
MyVar           = Nothing
IsDBNull(MyVar) = False

このページのトップへ移動します。 6.IsNothing メソッドの使用例(式にオブジェクトが割り当てられていないかどうかを示すプール型の値を返す)
[名前空間 : Microsoft.VisualBasic]
IsNothing メソッド = 式にオブジェクトが割り当てられていないかどうかを示す Boolean 値を返します。

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    Dim MyVar As Object
    Console.WriteLine("IsNothing(MyVar) = {0}", IsNothing(MyVar))
    MyVar = "abcd"
    Console.WriteLine("IsNothing(MyVar) = {0}", IsNothing(MyVar))
    MyVar = Nothing
    Console.WriteLine("IsNothing(MyVar) = {0}", IsNothing(MyVar))

    TextBox1.Text = "06.IsNothing メソッド = 式にオブジェクトが" _
                & "割り当てられていないかどうかを示す Boolean 値を返します。" & vbCrLf
    TextBox1.Text &= "Dim MyVar As Object" & vbCrLf
    TextBox1.Text &= String.Format("IsNothing(MyVar) = {0}", IsNothing(MyVar)) & vbCrLf

    TextBox1.Text &= "MyVar = ""abcd""" & vbCrLf
    MyVar = "abcd"
    TextBox1.Text &= String.Format("IsNothing(MyVar) = {0}", IsNothing(MyVar)) & vbCrLf
    TextBox1.Text &= "MyVar = Nothing" & vbCrLf
    MyVar = Nothing
    TextBox1.Text &= String.Format("IsNothing(MyVar) = {0}", IsNothing(MyVar)) & vbCrLf
End Sub

上記実行結果
06.IsNothing メソッド = 式にオブジェクトが割り当てられていないかどうかを示す Boolean 値を返します。
Dim MyVar As Object
IsNothing(MyVar) = True

MyVar = "abcd"
IsNothing(MyVar) = False

MyVar = Nothing
IsNothing(MyVar) = True

このページのトップへ移動します。 7.IsNumeric メソッドの使用例(式が数値として評価できるかどうかを示す Boolean 値を返す)
 [名前空間 : Microsoft.VisualBasic]
IsNumeric メソッド = 式が数値として評価できるかどうかを示す Boolean 値を返します。


Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Console.WriteLine("IsNumeric(""123"") = {0}", IsNumeric("123"))
    Console.WriteLine("IsNumeric(""1A3"") = {0}", IsNumeric("1A3"))
    Console.WriteLine("IsNumeric(&H123ab) = {0}", IsNumeric(&H123AB))

    TextBox1.Text = "07.IsNumeric メソッド = 式が数値として評価できるか" _
                                  & "どうかを示す Boolean 値を返します。" & vbCrLf
    TextBox1.Text &= String.Format("IsNumeric(""123"")   = {0}", IsNumeric("123")) & vbCrLf
    TextBox1.Text &= String.Format("IsNumeric(""1A3"")   = {0}", IsNumeric("1A3")) & vbCrLf
    TextBox1.Text &= String.Format("IsNumeric(&H123ab) = {0}", IsNumeric(&H123AB)) & vbCrLf
End Sub

上記実行結果
07.IsNumeric メソッド = 式が数値として評価できるかどうかを示す Boolean 値を返します。

IsNumeric("123")   = True
IsNumeric("1A3")   = False
IsNumeric(&H123ab) = True

このページのトップへ移動します。 8.IsReference メソッドの使用例(式が参照型に評価されるかどうかを示す Boolean 値を返す)
[名前空間 : Microsoft.VisualBasic]
IsReference メソッド = 式が参照型(クラスのインスタンス、文字列型、任意の型の配列など)を表す場合には True を返し、それ以外の場合は、False を返します。

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    Dim MyVar() As Integer = {1, 2, 3}
    Dim MyVar1 As Object = Nothing
    Dim MyVar2 As Integer = 0
    Dim MyVar3 As String = ""

    Console.WriteLine("IsReference(MyVar) = {0}", IsReference(MyVar))
    Console.WriteLine("IsReference(MyVar1) = {0}", IsReference(MyVar1))
    Console.WriteLine("IsReference(MyVar2) = {0}", IsReference(MyVar2))
    Console.WriteLine("IsReference(MyVar3) = {0}", IsReference(MyVar3))

    TextBox1.Text = "08.IsReference メソッド = 式が参照型(クラスのインスタンス、文字列型、任意の型の" _
                & "配列など)を表す場合には True を返し、それ以外の場合は、False を返します。" & vbCrLf
    TextBox1.Text &= "Dim MyVar() As Integer = {1, 2, 3}" & vbCrLf
    TextBox1.Text &= "Dim MyVar1 As Object = Nothing" & vbCrLf
    TextBox1.Text &= "Dim MyVar2 As Integer = 0" & vbCrLf
    TextBox1.Text &= "Dim MyVar3 As String = """"" & vbCrLf
    TextBox1.Text &= String.Format("IsReference(MyVar)  = {0}", IsReference(MyVar)) & vbCrLf
    TextBox1.Text &= String.Format("IsReference(MyVar1) = {0}", IsReference(MyVar)) & vbCrLf
    TextBox1.Text &= String.Format("IsReference(MyVar2) = {0}", IsReference(MyVar2)) & vbCrLf
    TextBox1.Text &= String.Format("IsReference(MyVar3) = {0}", IsReference(MyVar3)) & vbCrLf
End Sub

上記実行結果
08.IsReference メソッド = 式が参照型(クラスのインスタンス、文字列型、任意の型の配列など)を表す場合には True を返し、それ以外の場合は、False を返します。

Dim MyVar() As Integer = {1, 2, 3}
Dim MyVar1 As Object = Nothing
Dim MyVar2 As Integer = 0
Dim MyVar3 As String = ""

IsReference(MyVar)  = True
IsReference(MyVar1) = True
IsReference(MyVar2) = False
IsReference(MyVar3) = True

このページのトップへ移動します。 9.LBound メソッドの使用例(配列内の指定された次元における最も小さいインデックスを返す)
[名前空間 : Microsoft.VisualBasic]
LBound メソッド = 配列内の指定された次元における最も小さいインデックスを返します。

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    Dim intVar(12) As Integer
    Console.WriteLine(LBound(intVar))

    TextBox1.Text = "09.LBound メソッド = 配列内の指定された次元における最も小さいインデックスを返します。" & vbCrLf
    TextBox1.Text &= "Dim intVar(12) As Integer" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("LBound(intVar) = {0}", LBound(intVar)) & vbCrLf
End Sub

上記実行結果
09.LBound メソッド = 配列内の指定された次元における最も小さいインデックスを返します。
Dim intVar(12) As Integer

LBound(intVar) = 0

このページのトップへ移動します。 10.Partition メソッドの使用例(ある数値が含まれる計算済み範囲を表す文字列を返す)
[名前空間 : Microsoft.VisualBasic]
Partition メソッド = ある数値が含まれる計算済み範囲を表す文字列を返します。
            Partition(Number, Start, Stop, Interval) 詳細は、MSDN をご覧下さい。

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    Console.WriteLine("Partition(25, 1, 50, 1) = {0}", Partition(25, 1, 50, 1))
    Console.WriteLine("Partition(25, 1, 50, 5) = {0}", Partition(25, 1, 50, 5))
    Console.WriteLine("Partition(25, 1, 50, 10) = {0}", Partition(25, 1, 50, 10))

    TextBox1.Text = "10.Partition メソッド = ある数値が含まれる計算済み範囲を表す文字列を返します。" & vbCrLf
    TextBox1.Text &= "    Partition(Number, Start, Stop, Interval) 詳細は、MSDN をご覧下さい。" & vbCrLf
    TextBox1.Text &= String.Format("Partition(25, 1, 50, 1)  = {0}", Partition(25, 1, 50, 1)) & vbCrLf
    TextBox1.Text &= String.Format("Partition(25, 1, 50, 5)  = {0}", Partition(25, 1, 50, 5)) & vbCrLf
    TextBox1.Text &= String.Format("Partition(25, 1, 50, 10) = {0}", Partition(25, 1, 50, 10)) & vbCrLf
End Sub

上記実行結果
10.Partition メソッド = ある数値が含まれる計算済み範囲を表す文字列を返します。
Partition(Number, Start, Stop, Interval) 詳細は、MSDN をご覧下さい。

Partition(25, 1, 50, 1)  = 25:25
Partition(25, 1, 50, 5)  = 21:25
Partition(25, 1, 50, 10) = 21:30

このページのトップへ移動します。 11.Switch メソッドの使用例(式のリストを評価しリスト内で最初に True に評価された式に対応する Object 値を返す)
[名前空間 : Microsoft.VisualBasic]
Switch メソッド = 式のリストを評価し、リスト内で最初に True に評価された式に対応する Object 値を返します。

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    Dim CityName As String = "Rome"
    Console.WriteLine(Interaction.Switch(CityName = "London", "English", CityName = "Rome", "Italian"))

    CityName = "London"
    Dim myList() As Object = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
    Console.WriteLine(Interaction.Switch(myList))

    'このようなっ使用方法は、NG です。
    CityName = "Paris"
    Console.WriteLine(Interaction.Switch(myList))

    myList = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
    Console.WriteLine(Interaction.Switch(myList))

    TextBox1.Text = "11.Switch メソッド = 式のリストを評価し、リスト内で最初に True に" _
                                                & "評価された式に対応する Object 値を返します。" & vbCrLf
    CityName = "Rome"
    TextBox1.Text &= "Dim CityName As String = ""Rome""" & vbCrLf
    TextBox1.Text &= String.Format("Interaction.Switch(CityName = ""London"", ""English"", CityName = ""Rome"", ""Italian"")" _
            & " = {0}", Interaction.Switch(CityName = "London", "English", CityName = "Rome", "Italian")) & vbCrLf
    CityName = "London"
    TextBox1.Text &= "CityName = ""London""" & vbCrLf
    myList = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
    TextBox1.Text &= "Dim myList() As Object = {CityName = ""London"", " _
                       & """English"", CityName = ""Rome"", ""Italian"", CityName = ""Paris"", ""French""}" & vbCrLf
    TextBox1.Text &= String.Format("Interaction.Switch(myList) = {0}", Interaction.Switch(myList)) & vbCrLf

    CityName = "Paris"
    TextBox1.Text &= "このような使用方法は、NG です。(CityName が myList の宣言の後に" _
                                            & "宣言されているので、CityName = ""London"" として評価される)" & vbCrLf
    TextBox1.Text &= "CityName = ""Paris""" & vbCrLf
    TextBox1.Text &= String.Format("Interaction.Switch(myList) = {0}", Interaction.Switch(myList)) & vbCrLf

    myList = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
    TextBox1.Text &= "myList = {CityName = ""London"", ""English"", " _
                                    & "CityName = ""Rome"", ""Italian"", CityName = ""Paris"", ""French""}" & vbCrLf
    TextBox1.Text &= String.Format("Interaction.Switch(myList) = {0}", Interaction.Switch(myList)) & vbCrLf
End Sub

上記実行結果
11.Switch メソッド = 式のリストを評価し、リスト内で最初に True に評価された式に対応する Object 値を返します。
Dim CityName As String = "Rome"
Interaction.Switch(CityName = "London", "English", CityName = "Rome", "Italian") = Italian

CityName = "London"
Dim myList() As Object = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
Interaction.Switch(myList) = English

このような使用方法は、NG です。(CityName が myList の宣言の後に宣言されているので、CityName = "London" として評価される)
CityName = "Paris"
Interaction.Switch(myList) = English

myList = {CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French"}
Interaction.Switch(myList) = French

このページのトップへ移動します。 12.TypeName メソッドの使用例(変数に関するデータ型情報を含む String 値を返す)
[名前空間 : Microsoft.VisualBasic]
TypeName メソッド = 変数に関するデータ型情報を含む String 値を返します。

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    Dim strVar As String = "String for testing"
    Dim decVar As Decimal
    Dim intVar, arrayVar(5) As Integer

    Console.WriteLine(TypeName(strVar))
    Console.WriteLine(TypeName(decVar))
    Console.WriteLine(TypeName(intVar))
    Console.WriteLine(TypeName(arrayVar))
    Console.WriteLine(TypeName(Me))

    TextBox1.Text = "12.TypeName メソッド = 変数に関するデータ型情報を含む String 値を返します。" & vbCrLf
    TextBox1.Text &= "Dim strVar As String = ""String for testing""" & vbCrLf
    TextBox1.Text &= "Dim decVar As Decimal" & vbCrLf
    TextBox1.Text &= "Dim intVar, arrayVar(5) As Integer" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(strVar)   = {0}", TypeName(strVar)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(decVar)   = {0}", TypeName(decVar)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(intVar)   = {0}", TypeName(intVar)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(arrayVar) = {0}", TypeName(arrayVar)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(Me)       = {0}", TypeName(Me)) & vbCrLf
End Sub

上記実行結果
12.TypeName メソッド = 変数に関するデータ型情報を含む String 値を返します。
Dim strVar As String = "String for testing"
Dim decVar As Decimal
Dim intVar, arrayVar(5) As Integer

TypeName(strVar)   = String
TypeName(decVar)   = Decimal
TypeName(intVar)   = Integer
TypeName(arrayVar) = Integer()
TypeName(Me)       = Form1

このページのトップへ移動します。 13.UBound メソッドの使用例(配列内の指定された次元における最も大きいインデックスを返す)
[名前空間 : Microsoft.VisualBasic]
UBound メソッド = 配列内の指定された次元における最も大きいインデックスを返します。

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    Dim intVar(12) As Integer
    Console.WriteLine(UBound(intVar))

    TextBox1.Text = "13.UBound メソッド = 配列内の指定された次元における最も大きいインデックスを返します。" & vbCrLf
    TextBox1.Text &= "Dim intVar(12) As Integer" & vbCrLf
    TextBox1.Text &= String.Format("UBound(intVar) = {0}", UBound(intVar)) & vbCrLf
End Sub

上記実行結果
13.UBound メソッド = 配列内の指定された次元における最も大きいインデックスを返します。
Dim intVar(12) As Integer

UBound(intVar) = 12

このページのトップへ移動します。 14.VarType メソッドの使用例(変数のデータ型の分類を含む Integer 値を返す)
[名前空間 : Microsoft.VisualBasic]
VarType メソッド = 変数のデータ型の分類を含む Integer 値を返します。

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
    Dim strVar As String = ""
    Dim decVar As Decimal
    Dim intVar, arrayVar(5) As Integer

    Console.WriteLine(VarType(strVar))
    Console.WriteLine(VarType(decVar))
    Console.WriteLine(VarType(intVar))
    Console.WriteLine(VarType(arrayVar))
    Console.WriteLine(VarType(Me))

    TextBox1.Text = "14.VarType メソッド = 変数のデータ型の分類を含む Integer 値を返します。" & vbCrLf
    TextBox1.Text &= "Dim strVar As String = """"" & vbCrLf
    TextBox1.Text &= "Dim decVar As Decimal" & vbCrLf
    TextBox1.Text &= "Dim intVar, arrayVar(5) As Integer" & vbCrLf
    'MSDN では、Integer 値を返す となっているが、 VariantType を返すようなので CInt を使って整数にしている
    TextBox1.Text &= String.Format("TypeName(VarType(strVar))   = {0}", TypeName(VarType(strVar))) & vbCrLf
    TextBox1.Text &= String.Format("VarType(strVar)   = {0}", CInt(VarType(strVar))) & vbCrLf
    TextBox1.Text &= String.Format("VarType(decVar)   = {0}", CInt(VarType(decVar))) & vbCrLf
    TextBox1.Text &= String.Format("VarType(intVar)   = {0}", CInt(VarType(intVar))) & vbCrLf
    TextBox1.Text &= String.Format("VarType(arrayVar) = {0}", CInt(VarType(arrayVar))) & vbCrLf
    TextBox1.Text &= String.Format("VarType(Me)       = {0}", CInt(VarType(Me))) & vbCrLf
    Console.WriteLine(VarType(strVar))
    Console.WriteLine(VarType(decVar))
    Console.WriteLine(VarType(intVar))
    Console.WriteLine(VarType(arrayVar))
    Console.WriteLine(VarType(Me))
End Sub

上記実行結果
14.VarType メソッド = 変数のデータ型の分類を含む Integer 値を返します。

Dim strVar As String = ""
Dim decVar As Decimal
Dim intVar, arrayVar(5) As Integer

TypeName(VarType(strVar)) = VariantType
VarType(strVar)   = 8
VarType(decVar)   = 14
VarType(intVar)   = 3
VarType(arrayVar) = 8195
VarType(Me)       = 9

このページのトップへ移動します。 15.



このページのトップへ移動します。 16.



このページのトップへ移動します。 17.



このページのトップへ移動します。 18.



このページのトップへ移動します。 19.



このページのトップへ移動します。 20.



このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。