Un ejercicio sencillo en visual basic, recorrer dos list e intercambiar elementos de uno a otro, agregando el elemento seleccionado al otro list y eliminandolo de donde lo tenemos seleccionado, fijaros como el codigo no es dificil, hasta yo me lo aprendi de memoria, al loro con las imagenes y luego fijaros en el codigo:
Estas tres imagenes explican lo que hace el programita, tenemos dos list y dos botones y vamos a dar nombres a las cosas:
listado llamado izquierdo, listado llamado derecho y dos botones cmd_derecho y cmd_izquierdo, y vamos a escribir codigo, si algo del codigo no lo pillais, puedo explicaros lo que sea mediante los comentarios:
CODIGO:
Option Explicit
Private Sub cmd_derecho_Click()
Dim i, j As Integer
Dim renglon As String
i = 0
j = izquierda.ListCount - 1
renglon = izquierda.List(izquierda.ListIndex)
While i <= j
If izquierda.Selected(i) Then
derecha.AddItem izquierda.List(i)
izquierda.RemoveItem (i)
i = i - 1
j = j - 1
End If
i = i + 1
Wend
End Sub
Private Sub cmd_izquierdo_Click()
Dim i, j As Integer
Dim renglon As String
j = derecha.ListCount - 1
i = 0
renglon = derecha.List(derecha.ListIndex)
While i <= j
If derecha.Selected(i) Then
izquierda.AddItem derecha.List(i)
derecha.RemoveItem (i)
i = i - 1
j = j - 1
End If
i = i + 1
Wend
End Sub
Como es logico son dos codigos que se repiten, ya que los dos botones hacen lo mismo, y nada más, como siempre dice mi profesor Carlos, aqui teneis la herramienta, ya es cosa vuestra pillaros los dedos con ella.
No hay comentarios:
Publicar un comentario