Ayuda con un MsgBox

Question

Hola; 

Necesito poder crear un Msgbox que identifique si la entrada del listbox ya existe, o sea tengo que añadir unos valores a un listbox y si la entrada ya exixte en el listbox, necesito tener un mensaje de error. 

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click 

lb.Items.Add(tbnombre.Text) 
lb.Items.Add(tbid.Text) 
lb.Items.Add(tbpueblo.Text) 
lb.Items.Add(tbedad.Text) 
Dim a As Control 
For Each a In Me.Controls 
If TypeOf a Is TextBox Then a.Text = Nothing 
Next 

'Aqui es que tengo Problemas' 


If lb.Text = True Then 
warning = MsgBox("Este Cliente ya esta registrado") + MsgBoxResult.Ok 
End If 
End Sub 
End Class

Answer 1

Hola

Pues en realidad no estas validando que la entrada ya exista, debería ser algo como esto:

If lb.Items.Contains(tbid.Text.Trim) Then <-- Aqui se valida que solo exista ese id de cliente

MessageBox.Show("Ya se ha agregado.")

Else

lb.Items.Add(tbnombre.Text)

        //Aquí agregas los demás datos

End If

 

Saludos

---

Antonio Lobo
Mi blog