arts
Registrado: 22 Dic 2011 Mensajes: 1
|
Publicado: Jue 22 Dic, 2011 02:07 am
Título del mensaje: Como recorrer una matriz x(5,6) asignadole valores de textbo |
|
|
My buenas me gustaria simplemente para que quede el codigo mas limpio y no hacer manualmente 42 asignaciones. Hacer un for o for each de de los textbox que tengo con asignandoles los valores del 1 al 42 al array sin necesidad de ir uno por uno.
¿ Alguna manera de como hacerlo porque el dia que tenga que hacer esto y sean 20x20... ?.
| Código: |
arrDias(0, 0) = tb1
arrDias(0, 1) = tb2
arrDias(0, 2) = tb3
arrDias(0, 3) = tb4
arrDias(0, 4) = tb5
arrDias(0, 5) = tb6
arrDias(0, 6) = tb7
arrDias(1, 0) = tb8
arrDias(1, 1) = tb9
arrDias(1, 2) = tb10
arrDias(1, 3) = tb11
arrDias(1, 4) = tb12
arrDias(1, 5) = tb13
arrDias(1, 6) = tb14
arrDias(2, 0) = tb15
arrDias(2, 1) = tb16
arrDias(2, 2) = tb17
arrDias(2, 3) = tb18
arrDias(2, 4) = tb19
arrDias(2, 5) = tb20
arrDias(2, 6) = tb21
arrDias(3, 0) = tb22
arrDias(3, 1) = tb23
arrDias(3, 2) = tb24
arrDias(3, 3) = tb25
arrDias(3, 4) = tb26
arrDias(3, 5) = tb27
arrDias(3, 6) = tb28
arrDias(4, 0) = tb29
arrDias(4, 1) = tb30
arrDias(4, 2) = tb31
arrDias(4, 3) = tb32
arrDias(4, 4) = tb33
arrDias(4, 5) = tb34
arrDias(4, 6) = tb35
arrDias(5, 0) = tb36
arrDias(5, 1) = tb37
arrDias(5, 2) = tb38
arrDias(5, 3) = tb39
arrDias(5, 4) = tb40
arrDias(5, 5) = tb41
arrDias(5, 6) = tb42
'Dim oControl As New Control
'For Each oControl In GbDias.Controls
' If TypeOf oControl Is TextBox Then
' 'asigno valor
' arrDias(i, j)
' End If
'Next
Call LimpiarCalendario()
|
|
|
|
|
WhiteSkull Moderador Global

Registrado: 20 Mar 2009 Mensajes: 2084 Ubicación: y*width+x
|
|