Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/10/2009, 12:42
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Ayuda con arreglos VB6

Cita:
Iniciado por JCNN Ver Mensaje
hola que tas me podrian ayudar con una duda porfa es que tengo que hacer una simulacion con pilas y colas..... bueno lo que tengo que hacer es crear un text, un Command y dos Listbox......

primero tego declarado mi arreglo esto esta en un modulo

public arreglo (5) As String
public i As Integer
------------------------------------

en el command

for i =1 to 6

arreglo (5) = Text1.Text

me.List1.AddItem arreglo(5)

next
--------------------------------------------------

bueno hay solo llena pero con la primera letra o nombre que ponga lo que quiero hacer es que me llene el lis nombre por nombre no todo corrido y en el otro lis2 me lo llene pero perimo el ultimo numero o nombre que se agrego al arreglo
Desde el vamos escribiste todo mal, si es una tarea para la escuela/universidad copia el enunciado sino no se entiende nada, muy mala redaccion la tuya...

Lo que entendi que quisiste decir es que.
Escribis algo en el textbox y cuando apretas el boton se guarde en el arreglo eso que escribiste y a la vez en el primer list se ponga como vos fuiste poniendo y en el segundo list que se ponga al revez, osea primero que este el ultimo que pusiste...

Esta es la solucion a tu problema (si realmente es ese tu problema)

Código vb:
Ver original
  1. Dim Arreglo(1 To 5) As String
  2. Dim i As Integer
  3.  
  4. Private Sub Command1_Click()
  5. Dim X As Integer
  6. i = i + 1
  7. Arreglo(i) = Text1
  8. List1.AddItem Text1
  9.  
  10. List2.Clear
  11. For X = i To 1 Step -1
  12.     List2.AddItem Arreglo(X)
  13. Next X
  14. End Sub