VB.netヌルエラー

Question

ImはArgumentNullExeptionが

値がNull

paramiter名項目

ことがカントこれまでIVEは、以下の

を試してみまし発生した を処理しようとしている問題を抱えて

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim ArgumentNullException As New Boolean 
     If (ListBox2.Items.Add(ListBox1.SelectedItem.ToString = "")) Then 
      MessageBox.Show("please pick from list", "error") 
     End If 
     ListBox1.Items.Remove(ListBox1.SelectedItem) 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim ArgumentNullException As New Boolean 
     If (ListBox2.Items.Add(ListBox1.SelectedItem Is Nothing)) Then 
      MessageBox.Show("please pick from list", "error") 
     End If 
     ListBox1.Items.Remove(ListBox1.SelectedItem) 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim ArgumentNullException As New BooleanListBox2 
     ListBox2.Items.Add(ListBox1.SelectedItem) 
     If (ListBox1.SelectedItem) = "" 
      MessageBox.Show("please pick from list", "error") 
     ListBox1.Items.Remove(ListBox1.SelectedItem) 

A

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
      ListBox2.Items.Add(ListBox1.SelectedItem) 
      If IsNothing (ListBox1.SelectedItem) 
       MessageBox.Show("please pick from list", "error") 
      ListBox1.Items.Remove(ListBox1.SelectedItem) 

は

Answer 1

質問はかなり不明であるが、私はそれを試してみるよ、まだエラーを与える：誰でも助けることができNDエラーがまだ

更新アップしてくださいています。

---

アプリケーションはListboxesを持っており、.SelectedItemは、ユーザが選択した場合は、必ずチェックしても良く/お試しキャッチまたは使用する必要がある属性とアイテム使用時：

If IsNothing(ListBox1.SelectedItem) Then Exit Sub 

あなたはまた、使用することができ

If ListBox1.SelectedItems.Count = 0 Then Exit Sub 

If/Elseを使用することもできますが、コードの最初の行にその文を置くと、私の意見では読みやすくなります。

選択したアイテムがない場合、このコードを使用すると、ボタンは何も行いません。 は、そうしないと、ユーザーに警告するために、MsgBox("Please pick an Item")を入れてマルチラインの場合を使用することができます：それはあなたがそのようなリストの変数の初期化と、全体の関連コードを貼り付けるためのより良いです

If IsNothing(ListBox1.SelectedItem) Then 
    MsgBox("Please pick an Item first.") 
    Exit Sub 
End If 
// Your Code after that 

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    // Leave the Sub and Message the User, when there is no SelectedItem 
    If IsNothing(ListBox1.SelectedItem) Then 
     MsgBox("Please pick an Item first.") 
     Exit Sub 
    End If 
    // Code will only reach here, when there is a SelectedItem 
    ListBox2.Items.Add(ListBox1.SelectedItem) 
    ListBox1.Items.Remove(ListBox1.SelectedItem) 
End sub