[VB6] Visualización de datos con paginación

[alarga]

Hola a tod@s

Estoy tratando de visualizar en un PictureBox una gran cantidad de datos numéricos, utilizando para ello un Print que se encuentra dentro de varios bucles For...Next anidados.

Lo que quiero conseguir es que, cuando el PictureBox se llene de numeros, se detenga la salida de datos, y al pulsar Enter se borre el contenido que haya en ese momento y sigan apareciendo mas datos.

Para saber cuando tengo que detener la salida de datos utilizo un contador de filas (FIL) de tal forma que cuando vale 28 se inicialice a 1 y se borren todos los datos de la pantalla.

He probado a escribir código en el evento KeyPressed del PictureBox, colocar un DoEvents dentro de un bucle While (que se ejecuta mientras FIL = 28) situado despues del Print, ... pero no he conseguido nada.

Lo único que consigo es que, al aparecer la primera página de datos, se detiene la salida, pero al pulsar Enter no reacciona. He intentado que el foco se posicione sobre el PictureBox para que detecte la pulsación de la tecla Enter pero tampoco he conseguido nada.

¿Alguien puede ayudarme?

Gracias.

[unholy]

Comprueba a ver si el evento esta funcionando para localizar si el error esta en la gestion del evento, o bien en el codigo que ejecutas para rellenar el textobox.

Para ahver esto, pon un msgbox a la entrada del procedimiento a ver que te dice. Si cuando presionas enter te aparece la ventanita,,el error lo tienes en el codigoq ue ejecutas despues, sino lo que te pasa es que estas gestionando mal el evento.

Sinceramente creo que el problema lo vas a tener en la forma en la que llamas a la funcion cuando presionas le tecla enter, pero ya me contaras.

[alarga]

Pues lo que me temo es que el código asociado al evento no se ejecuta porque al pulsar Enter el foco no esta situado en el PictureBox, sino en un botón que hay en el formulario (lo se porque salta a la vista).

Y precisamente eso es lo que quiero conseguir, que el foco se situe sobre el pictureBox para que detecte la pulsación de dicha tecla.

Pero no lo consigo, ni utilizando SetFocus.