ARRAYS DE 2 DIMENSOES
Nossa, desculpa pessoal ,estou bombardeando vocês de perguntas, o problema é que eu nunca desenvolvi nada no aspecto que estou desenvolvendo, por isso minhas dúvidas aparecem mais do que formigas no açucar.
Bom, oque preciso agora é saber se:
Existe a possibilidade de criar uma image ou qq outro tipo de objeto com arrays by dimensionais... algo assim:
OBJETO(X,Y)
Ou:
Criar um objeto assim :
name: LINHAXCOLUNAY
isso é possivel afinal é so o nome do objeto, mas depois não consigo me referir a ele usando variaveis
exemplo tenho a variavel
X com o valor de 20
e a variavel y com valor de 12
como faço para: LINHA(VARX)COLUNA(VARY).image = imagem
???
Realmente essa dúvida esta me tirando o sono LITERALMENTE
Agradeço desde já,
Cheers,
Bom, oque preciso agora é saber se:
Existe a possibilidade de criar uma image ou qq outro tipo de objeto com arrays by dimensionais... algo assim:
OBJETO(X,Y)
Ou:
Criar um objeto assim :
name: LINHAXCOLUNAY
isso é possivel afinal é so o nome do objeto, mas depois não consigo me referir a ele usando variaveis
exemplo tenho a variavel
X com o valor de 20
e a variavel y com valor de 12
como faço para: LINHA(VARX)COLUNA(VARY).image = imagem
???
Realmente essa dúvida esta me tirando o sono LITERALMENTE
Agradeço desde já,
Cheers,
Voce tem que usar um loop para chamar
exemplo
For A=0 to 20
imagem = Objeto(A,0)
next A
exemplo
For A=0 to 20
imagem = Objeto(A,0)
next A
Aqui eu tenho um exemplo visual que eu fiz sobre matriz bidimensional.
Coloca um botão e cole este codigo
Private Sub Command1_Click()
Dim Times(3, 3) As String
'Calendario gremio
Times(0, 0) = "GREMIO"
Times(0, 1) = "juventude"
Times(0, 2) = "coritiba"
Times(0, 3) = "flamengo"
'Calendario flamengo
Times(1, 0) = "FLAMENGO"
Times(1, 1) = "coritiba"
Times(1, 2) = "juventude"
Times(1, 3) = "gremio"
'Calendario coritiba
Times(2, 0) = "CORITIBA"
Times(2, 1) = "flamengo"
Times(2, 2) = "gremio"
Times(2, 3) = "juventude"
'Calendario juventude
Times(3, 0) = "JUVENTUDE"
Times(3, 1) = "gremio"
Times(3, 2) = "flamengo"
Times(3, 3) = "coritiba"
For A = 0 To 3
For B = 1 To 3
Debug.Print Times(A, 0) + " X " + Times(A, B)
Next B
Debug.Print "****************"
Next A
End Sub
Espero ter ajudado qualquer coisa posta aeh
falou
Coloca um botão e cole este codigo
Private Sub Command1_Click()
Dim Times(3, 3) As String
'Calendario gremio
Times(0, 0) = "GREMIO"
Times(0, 1) = "juventude"
Times(0, 2) = "coritiba"
Times(0, 3) = "flamengo"
'Calendario flamengo
Times(1, 0) = "FLAMENGO"
Times(1, 1) = "coritiba"
Times(1, 2) = "juventude"
Times(1, 3) = "gremio"
'Calendario coritiba
Times(2, 0) = "CORITIBA"
Times(2, 1) = "flamengo"
Times(2, 2) = "gremio"
Times(2, 3) = "juventude"
'Calendario juventude
Times(3, 0) = "JUVENTUDE"
Times(3, 1) = "gremio"
Times(3, 2) = "flamengo"
Times(3, 3) = "coritiba"
For A = 0 To 3
For B = 1 To 3
Debug.Print Times(A, 0) + " X " + Times(A, B)
Next B
Debug.Print "****************"
Next A
End Sub
Espero ter ajudado qualquer coisa posta aeh
falou
Tópico encerrado , respostas não são mais permitidas