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
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
Si te entendi bien, ahi va una idea,ahora modificala para tu codigo
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
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