Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, la función o interfaz está marcada como restringida o la función utiliza un tipo automático que no es compatible con VB.

Programación VB, la función o interfaz está marcada como restringida o la función utiliza un tipo automático que no es compatible con VB.

Private Sub Form_Load()

Atenuar i como entero

Atenuar j como entero

Para i = 1 a 10

Para j = 1 a 20

imagearray(i, j) = "" ' Comentario: Borrar la matriz a espacios

tops = (Form1.Height - 2000) \ 2 - 500

lefts = (Form1.Width - 4000) \ 2

Para i = 0 A 199

Forma1(i).Top = tops + (i \ 20) * 200

Forma1(i).Left = izquierdas + (i Mod 20) * 200

Siguiente 'Nota: Organice los controles de manera que queden ordenados según 20*10

curstr = "*"

End Sub