| 条件判断を行う関数等の使用例 (12個) (SNo.007) Choose 引数のリストから値を選択して返します。 IIf 式の評価結果によって、2 つのオブジェクトのうち 1 つを返します。 IsArray 変数が配列かどうかを調べ、結果をブール型 (Boolean) の値で返します。 IsDate 式を日付に変換できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。 IsDBNull 式が System.DBNull クラスとして評価できるかどうかを調べ、結果をブール型の値で返します IsError 式が例外型かどうかを調べ、結果をブール型 (Boolean) の値で返します。 IsNothing 式に割り当てられているオブジェクトがないかどうかを調べ、結果をブール型の値で返します IsNumeric 式が数値として評価できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。 IsReference 式が参照型として評価できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。 Partition 指定された値が含まれる範囲を計算し、その範囲を表す文字列を返します。 Switch 式のリストを評価しリストの中で真となる最初の式に関連付けられたオブジェクト型の値を返す TypeName 変数に関するデータ型情報を含む文字列型 (String) の値を返します |
|
| 使用コントロール | Button1 〜 Button11 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
★ Choose 関数
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Choose 関数 [名前空間 : Microsoft.VisualBasic] '引数のリストから値を選択して返します。 Dim eto() As String = {"申", "酉", "戌", "亥", "子", "丑", "寅", "卯", "辰", "巳", "午", "未"} Debug.WriteLine(Microsoft.VisualBasic.Choose((Now.Year() Mod 12) + 1, eto)) '結果 酉 End Sub |
|
| ★ IIf 関数 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'IIf 関数 [名前空間 : Microsoft.VisualBasic] '式の評価結果によって、2 つのオブジェクトのうち 1 つを返します。 Dim han2zen As Integer han2zen = System.Text.Encoding.Default.GetByteCount("A") Debug.WriteLine(Microsoft.VisualBasic.IIf(han2zen < 2, "半角", "全角")) '結果 半角 han2zen = System.Text.Encoding.Default.GetByteCount("あ") Debug.WriteLine(Microsoft.VisualBasic.IIf(han2zen < 2, "半角", "全角")) '結果 全角 End Sub |
|
| ★ IsArray 関数 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'IsArray 関数 [名前空間 : Microsoft.VisualBasic] '変数が配列かどうかを調べ、結果をブール型 (Boolean) の値で返します。 Dim s1(3) As String Dim s2 As String Debug.WriteLine(Microsoft.VisualBasic.IsArray(s1)) '結果 True Debug.WriteLine(Microsoft.VisualBasic.IsArray(s2)) '結果 False End Sub |
|
| ★ IsDate 関数 Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click 'IsDate 関数 [名前空間 : Microsoft.VisualBasic] '式を日付に変換できるかどうかを調べ、結果をブール型 (Boolean) の値で返します。 Debug.WriteLine(Microsoft.VisualBasic.IsDate("2004/02/29")) '結果 True (うるう年） Debug.WriteLine(Microsoft.VisualBasic.IsDate("2005/02/29")) '結果 False End Sub うるう年か、どうかを調べるなら、VB.NETでは、DateTime.IsLeapYearメソッド で簡単に知る事ができます |
|
| ★ IsDBNull 関数 Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click 'IsDBNull 関数 [名前空間 : Microsoft.VisualBasic] '式が System.DBNull クラスとして評価できるかどうかを調べ '結果をブール型 (Boolean) の値で返します。 Dim MyVar As Object MyVar = System.DBNull.Value Debug.WriteLine(Microsoft.VisualBasic.IsDBNull(MyVar)) '結果 True Debug.WriteLine(Microsoft.VisualBasic.IsDBNull("")) '結果 False End Sub |
|
| ★ IsError 関数 Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'IsError 関数 [名前空間 : Microsoft.VisualBasic] '式が例外型かどうかを調べ、結果をブール型 (Boolean) の値で返します。 Dim ReturnVal As Object Dim BadArg As String ReturnVal = New System.ArgumentOutOfRangeException(BadArg) Debug.WriteLine(Microsoft.VisualBasic.IsError(ReturnVal)) '結果 True End Sub |
|
| ★ IsNothing 関数 Private Sub Button7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click 'IsNothing 関数 [名前空間 : Microsoft.VisualBasic] '式に割り当てられているオブジェクトがないかどうかを調べ '結果をブール型 (Boolean) の値で返します。 Dim MyVar As Object Debug.WriteLine(Microsoft.VisualBasic.IsNothing(MyVar)) '結果 True MyVar = "ABCDEF" Debug.WriteLine(Microsoft.VisualBasic.IsNothing(MyVar)) '結果 False MyVar = Nothing Debug.WriteLine(Microsoft.VisualBasic.IsNothing(MyVar)) '結果 True End Sub |
|
| ★ IsNumeric 関数 Private Sub Button8_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click 'IsNumeric 関数 [名前空間 : Microsoft.VisualBasic] '式が数値として評価できるかどうかを調べ '結果をブール型 (Boolean) の値で返します。 Dim MyVar As String MyVar = "123.45" Debug.WriteLine(Microsoft.VisualBasic.IsNumeric(MyVar)) '結果 True MyVar = "2004/05/15" Debug.WriteLine(Microsoft.VisualBasic.IsNumeric(MyVar)) '結果 False End Sub |
|
| ★ IsReference 関数 Private Sub Button9_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click 'IsReference 関数 [名前空間 : Microsoft.VisualBasic] '式が参照型として評価できるかどうかを調べ '結果をブール型 (Boolean) の値で返します。 Dim MyObject As Object Dim MyNumber As Integer Debug.WriteLine(Microsoft.VisualBasic.IsReference(MyNumber)) '結果 False Debug.WriteLine(Microsoft.VisualBasic.IsReference(MyObject)) '結果 True End Sub |
|
| ★ Partition 関数 Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click 'Partition 関数 [名前空間 : Microsoft.VisualBasic] '指定された値が含まれる範囲を計算し、その範囲を表す文字列を返します。 Debug.WriteLine(Microsoft.VisualBasic.Partition(24, 1, 50, 5)) '結果 21:25 Debug.WriteLine(Microsoft.VisualBasic.Partition(24, 1, 50, 50)) '結果 1:50 End Sub |
|
| ★ Switch 関数 Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'Switch 関数 [名前空間 : Microsoft.VisualBasic] '式のリストを評価し、リストの中で真 (True) となる最初の式に '関連付けられたオブジェクト型 (Object) の値または式を返します。 Dim CityName As String CityName = "Paris" Debug.WriteLine(Microsoft.VisualBasic.Switch(CityName = "London", "English", _ CityName = "Rome", "Italian", CityName = "Paris", "French")) '結果 French End Sub |
|
| ★ TypeName 関数 Private Sub Button12_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button12.Click 'TypeName 関数 [名前空間 : Microsoft.VisualBasic] '変数に関するデータ型情報を含む文字列型 (String) の値を返します。 Dim StrVar As String = "MyString" Dim DecVar As Decimal Dim IntVar As Integer Debug.WriteLine(Microsoft.VisualBasic.TypeName(StrVar)) '結果 String Debug.WriteLine(Microsoft.VisualBasic.TypeName(DecVar)) '結果 Decimal Debug.WriteLine(Microsoft.VisualBasic.TypeName(IntVar)) '結果 Integer End Sub |
|