Question

如果有以下代码：

For Each item As Object In Me.CheckedListBox2.CheckedItems
        Dim PT As String = Me.CheckedListBox2.GetItemText(item)
If PT = "Port 1" Then
            Port1.Sendkeys("command")
            Port1.Sendkeys("{Enter}")
            OtherSub()
        End If

这部分是我可以将每个项目放在Checklistbox中并将它们添加到命令列表中。

现在我需要创建一个If语句，如果没有选择任何内容，它将运行默认命令。

 If CheckedListBox2.SelectedValue = Nothing Then
            Reset()
            MsgBox("Wrong")
        End If

这是我尝试过的最后一次尝试以及我尝试过的其他几种尝试的不同代码示例（我能找到的内容）和论坛。 None将执行Reset子菜单或MsgBox。

其他尝试：

If PT = "" Then
If PT = Nothing Then
If PT = " " Then
If CheckedListBox2.SelectedIndex = -1 Then

任何帮助，如果感激。

Answer 1

使用Is Nothing代替= Nothing

 If CheckedListBox2.SelectedValue Is Nothing Then

 End If

我还建议您始终将Option Strict设置为ON。然后= Nothing甚至不会编译参考类型，这是一件好事。

What is the difference between 'foo = Nothing' and 'foo is Nothing' in VB.NET?

Checkedlistbox等于什么问题。

1 个答案: