Si David tienes toda la razon, ahora lo deje asi:
Código PHP:
Dim impar As String
Dim cadena As String
Dim a As Integer = 0
impar = listbox.SelectedIndices.Item(0)
If textbox.Text = "" Then
cadena = listbox.Items(impar)
textbox.AppendText(cadena)
'Esta condicion solo pasa si el textbox es vacio'
Else
a = textbox.Lines.Length
cadena = listbox.Items(impar)
For i As Integer = 0 To a
If cadena <> textbox.Lines(i) Then
textbox.AppendText(vbCrLf & vbCrLf & cadena)
End If
Next
End If
Pero sigue igual no me detecta lineas iguales, tengo una confusion logica en este for por eso me ha costado mucho seguir.
Despues del ELSE trato de decir que
cadena tomara el valor del elemento seleccionado en el listbox para luego ser comparado con
cada linea del textbox. Si
cadena es diferente a la linea del texto, ya puede agregar, de lo contrario que se salga del Sub y no deje enviar la linea de texto por que se supone esta repetida.
Lo que pasa es que me repite el agregado en el textbox y se que es por que su indice no recorre todo el ancho, primero va preguntando uno por uno de sus indices y si uno funciona entonces ejecuta de una vez sin revisar los que faltan. Trate con un
Do While pero no me funciono....
Código PHP:
cadena = listbox.Items(impar)
Dim i As Integer = 0
Do While cadena = textbox.Lines(i)
b = textbox.Lines.Length
i = i + 1
If i = b Then
Exit sub
End If
Loop
textbox.AppendText(vbCrLf & vbCrLf & cadena)