「VB.NET」IsNothingでオブジェクトが割り当てるかどうか判定

2021年10月4日

書式
Public Function IsNothing (Expression As Object) As Boolean
式にオブジェクトが割り当てられていないかどうかを示す Boolean 値を返します。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
'クラスの定義
Public Class Emp
Public strEmpId As String
Public strDep As String
End Class
Module Module1
Sub Main()
Dim cftVar As Emp
' 変数testVarにはまだインスタンスが割り当てられません
Dim cftCheck As Boolean
cftCheck = IsNothing(cftVar)
Console.WriteLine(cftCheck)
'オブジェクトインスタンスを生成
cftVar = New Emp
cftVar.strEmpId = "u2003"
cftVar.strDep = "企画部"
cftCheck = IsNothing(cftVar)
Console.WriteLine(cftCheck)
Console.ReadKey()
End Sub
End Module
'クラスの定義 Public Class Emp Public strEmpId As String Public strDep As String End Class Module Module1 Sub Main() Dim cftVar As Emp ' 変数testVarにはまだインスタンスが割り当てられません Dim cftCheck As Boolean cftCheck = IsNothing(cftVar) Console.WriteLine(cftCheck) 'オブジェクトインスタンスを生成 cftVar = New Emp cftVar.strEmpId = "u2003" cftVar.strDep = "企画部" cftCheck = IsNothing(cftVar) Console.WriteLine(cftCheck) Console.ReadKey() End Sub End Module
'クラスの定義
Public Class Emp
    Public strEmpId As String
    Public strDep As String
End Class

Module Module1

    Sub Main()
        Dim cftVar As Emp
        ' 変数testVarにはまだインスタンスが割り当てられません
        Dim cftCheck As Boolean
        cftCheck = IsNothing(cftVar)
        Console.WriteLine(cftCheck)

        'オブジェクトインスタンスを生成
        cftVar = New Emp
        cftVar.strEmpId = "u2003"
        cftVar.strDep = "企画部"
        cftCheck = IsNothing(cftVar)
        Console.WriteLine(cftCheck)

        Console.ReadKey()
    End Sub


End Module

実行結果
True
False

VB.net

Posted by arkgame