Colocar controles
Publicado por Cris (33 intervenciones) el 27/03/2015 21:56:48
Hola,
Estoy tratando de colocar unos controles en filas y columnas y lo consigo siempre y cuando sean el mismo número de filas que de columnas.
En cuanto no es así, el código me da error, y no sé dónde falla.
Ojala podáis ayudarme.
Gracias de antemano.
Subo un pequeño ejemplo por si no he sabido explicar bien el problema.
Estoy tratando de colocar unos controles en filas y columnas y lo consigo siempre y cuando sean el mismo número de filas que de columnas.
En cuanto no es así, el código me da error, y no sé dónde falla.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'COLOCA LOS controles (3 columnas x 4 filas)
'1)Primera fila (3 columnas)
Dim i As Integer
Dim n As Integer
Dim p As Integer
Left = Label2(0).Left + Label2(0).Width
For i = 1 To 2Label2(i).Top = Label2(0).Top
Label2(i).Left = Left
Label2(i).Visible = True
Left = Left + Label2(0).Width
Next i
'Hasta aquí, bien
'El problema surge con las siguientes filas, da error con los index
'2)Siguientes filas (3 filas más)
n = 0p = 4Top = Label2(0).Top + Label2(0).Height
While n < 3Left = Label2(0).Left
For i = (0 + p) To (3 + p)
Label2(i).Left = Left
Label2(i).Top = Top
Label2(i).Visible = True
Left = Left + Label2(0).Width
Next i
Top = Top + Label2(0).Height
n = n + 1
p = p + 4
Wend
Ojala podáis ayudarme.
Gracias de antemano.
Subo un pequeño ejemplo por si no he sabido explicar bien el problema.
- Ejemplo-colocar-controles.rar(1,8 KB)
Valora esta pregunta
0
