Imprimir Página - mover contenido de listbox a otro

Título: mover contenido de listbox a otro
Publicado por: Carlosnuel en 10 Diciembre 2006, 03:37 am

hola tengo una pequeña duda...
tengo un listbox que se llama SalidaList entonces quiero sacar el contenido de ese listbox (el ultimo elemento del listbox) invertir su contenido y colocarlo caracter por caracter en otro listbox (PilaList)
he intentado hacer esto... pero no funciona

Código:

Expr = StrReverse(Salidalist.List)
For k = 1 To Len(Expr)
     Car = Mid(Expr, k, 1)
     PilaList.List = Car
     PilaList.ListCount = PilaList.ListCount + 1  'para moverse a la siguiente localidad de pila 
Next k

en pocas palabras si supongo que tengoen :
SalidaList
PRUEBA
quiero que en PilaList
A
B
E
U
R
P

... lo que tampoco puedo hacer es que lo escriba en la parte de arriba de la pila si por ejemplo tenemos $ guardado en la pila lo conserve

A
B
E
U
R
P
$

lo estoy intentando con un PilaList.ListCount - 1

podrían ayudarme para saber en que me estoy equivocando

Título: Re: mover contenido de listbox a otro
Publicado por: whiskises en 10 Diciembre 2006, 08:09 am

Si te entendi bien, ahi va una idea,ahora modificala para tu codigo

Código:

Private Sub Command1_Click()
Dim n, x As Integer
n = List1.ListCount
For x = n - 1 To 0 Step -1
List2.AddItem List1.List(x)
Next

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 6
List1.AddItem i
Next
End Sub

Título: Re: mover contenido de listbox a otro
Publicado por: Carlosnuel en 10 Diciembre 2006, 20:54 pm

gracias por la ayuda...

ya lo implemente y quedo así

Citar

Expr = StrReverse(grd.TextMatrix(Fila, Columna))
For k = 1 To Len(Expr)
Car = Mid(Expr, k, 1)
PilaList.AddItem Car
Next k

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Carlosnuel en 10 Diciembre 2006, 03:37 am