Is Nothing 例子

最新推荐文章于 2024-07-26 18:04:37 发布

dblion

最新推荐文章于 2024-07-26 18:04:37 发布

阅读量956

点赞数

分类专栏： .NET Coperator

本文链接：https://blog.csdn.net/coperator/article/details/8687535

版权

Coperator 同时被 2 个专栏收录

186 篇文章 1 订阅

订阅专栏

.NET

21 篇文章 0 订阅

订阅专栏

Private Sub IsNothing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsNothing.Click
        Dim sl As SortedList = New SortedList
        Dim slNull As SortedList = New SortedList
        sl.Add("A", "0")
        sl.Add("B", "1")
        If sl Is Nothing Then
            MsgBox("sl is nothing")
        Else
            MsgBox("sl has elem" & " " & sl.GetByIndex(0).ToString & " " & sl.GetByIndex(1).ToString)
        End If
        slNull.Add("a", "0")
        slNull.Add("b", "1")
        slNull = Nothing
        If slNull Is Nothing Then
            MsgBox("slNull is nothing")
        Else
            MsgBox("slNull has elem")
        End If
    End Sub