none
Ayuda con un MsgBox RRS feed

  • Pregunta

  • 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
    martes, 5 de julio de 2011 17:12

Todas las respuestas

  • 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
    martes, 5 de julio de 2011 17:51