Checkedlistbox не имеет значения.

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 

Это это то, что я пытался мою последнюю попытку вместе с несколькими другими попытки, что я попытался из варьируется образцы кода (То, что я мог бы найти) и форумы. Ни один из них не выполнит сброс sub или 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?