Trabajar con Imágenes en Basic4ppc
Publicado por Joserra (2 intervenciones) el 16/10/2007 15:17:56
Hola a todos,
deciros que estoy acostumbrado a programar en VB y estoy probando el Basic4ppc version 5.
En el programa que estoy intentando hacer, tengo 28 imagenes colocadas cada una en su control correspondiente sobre el form1 y declarados un array de 28 posiciones A(28), y otras variables como contadores llamadas x e i.
Quiero que me aparezcan, de una en una, de forma aleatoria pero, a pesar de seguir la ayuda, el programa no funciona.
El codigo es el siguiente
x=Rnd(0, 27) 'busqueda aleatoria de un numero enter 0 y 27
textbox3.Text =x ' Cuadro de texto para verificar el numero aleatorio
For i=0 To 27
If i=x Then
Control ("Image" & A(i)).bringtofront
End If
Next
deciros que estoy acostumbrado a programar en VB y estoy probando el Basic4ppc version 5.
En el programa que estoy intentando hacer, tengo 28 imagenes colocadas cada una en su control correspondiente sobre el form1 y declarados un array de 28 posiciones A(28), y otras variables como contadores llamadas x e i.
Quiero que me aparezcan, de una en una, de forma aleatoria pero, a pesar de seguir la ayuda, el programa no funciona.
El codigo es el siguiente
x=Rnd(0, 27) 'busqueda aleatoria de un numero enter 0 y 27
textbox3.Text =x ' Cuadro de texto para verificar el numero aleatorio
For i=0 To 27
If i=x Then
Control ("Image" & A(i)).bringtofront
End If
Next
Valora esta pregunta


0