[Resolvido]Dispor retangulos lado a lado

Boa tarde,

Tenho um form que tem 20 retangulos invisiveis,
e se tornam visiveis no evento clique de um botão:

Meubotao.click()

If Me.MeuCampo = 20 Then
Me.Caixa1.Visible = True
Me.Caixa1.Height = Me.MeuCampo/20
Me.Caixa1.Width = Me.MeuCampo/20
Me.Caixa1.Top = 0
Me.Caixa1.Left = 0

Me.Caixa2.Visible = True
Me.Caixa2.Height = Me.MeuCampo/20
Me.Caixa2.Width = Me.MeuCampo/20
Me.Caixa2.Top = 0
Me.Caixa2.Left = Me.MeuCampo/20 ' aqui vai avançando para ficarem todas lado a lado

... e sucessivamente até á Caixa20..

Existe alguma rotina que se adapte a esta situação?

Melhores Cumprimentos

Talvez algo assim:

Código:

Dim N As Integer

For N = 1 To 20
    Me("Caixa" & N).Visible = True
    If N = 1 Then
        Me("Caixa" & N).Left = 50
    Else
        Me("Caixa" & N).Left = Me("Caixa" & n - 1).Left + Me("Caixa" & N - 1).Width
    End If
    ...
Next

Veja se funciona:

Private Sub Texto4_AfterUpdate()

Dim K As Integer
Dim J As Byte
K = 20 'Acho que não será suficiente, terá que multiplicar ou aumentar o valor

If Me!SeuCampo = 20 Then
For J = 1 To 20
Me("Caixa" & J).Top = 0
Me("Caixa" & J).Height = K
Me("Caixa" & J).Width = K
Me("Caixa" & J).Visible = True
Me("Caixa" & J).Left = J * 20
Next J
End If
End Sub

Adapte para sua realidade.

Criquio desculpa aí o cabeça de bagre aqui, respondi, editei três vezes e não vi sua resposta.

No problem! Acontece

Muito obrigado,

Respondendo ao Criquio tentei adaptar assim:


Private Sub Comando222_Click()


Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim R As Integer

O = Me.FormatoA
P = Me.FormatoB
R = Me.ImgLadoA

For N = 1 To R
Me("Caixa" & N).Visible = True
If N = 1 Then
Me("Caixa" & N).Left = 50
Else
Me("Caixa" & N).Height = O
Me("Caixa" & N).Width = P
Me("Caixa" & N).Left = Me("Caixa" & N - 1).Left + Me("Caixa" & N - 1).Width

End If
Next
End Sub

Mas a primeira caixa fica no formato original, não altera quando mudo os
dados dos campos Me.FormatoA e Me.FormatoB,

o que estou a fazer de errado?

Cptos

Você precisa adaptar o bloco If para contemplar todas as propriedades adequadamente. A única propriedade que será diferente será a Left, certo? Então, o If vai ter apenas essa propriedade. As outras, devem ficar fora dele.

Boas,

consegui resolver uma parte do meu problema, acontece que tenho que dispor os retangulos
dentro de outro retangulo e que ocupem os espaços por igual
mas só estou conseguindo fazer uma fila
conforme o exemplo que envio em aqui:

https://dl.dropbox.com/u/29878861/Imagens.zip

Desde já obrigado

Me.Caixa2.Left = Me.MeuCampo/20 ' aqui vai avançando para ficarem todas lado a lado

Mas não era para ficar lado a lado? Foi o que entendi de acordo a parte vermelha acima.

Para ajustar o primeiro retângulo de acordo o retângulo maior basta passar o Left desse retângulo maior no lugar do 50.

Obrigado,

Isso já fiz mas fui avançando e o que queria mesmo era o que expliquei
no banco que enviei, passo a explicar:


Tenho um grupo de 3 caixas na horizontal e outro de 4 na vertical
terei que obter 12 caixas sendo 4 na vertical x 3 na horizontal,
este numero de caixas pode ser diferente mediante os valores que coloco
nos campos.

Agradeço a a ajuda

Pelo que vejo,
penso que será impossível a área que quero definir
vai dar cerca de 1120 retangulos!
Isto funciona como um plano em que eu quero saber
quantos formatos (no minimo 25x25) cabem no formato 700x100.


Aguardo ideias,

Obrigado pela atenção dispensada até agora

Impossível não, só dá um certo trabalho. É possível criar controles em tempo de execução. Mas como disse, vai dar um pouco de trabalho para definir as propriedades de acordo o número de retângulos. Não serve só exibir os resultados em número? Detalhes melhor o que precisa por gentileza. Forneça todos os detalhes possíveis e imagináveis e até inimagináveis se for preciso

Obrigado Criquio,

Percebeu o quero fazer?
Viu o anexo que coloquei?

Abraço

Sim, mas atente para a minha mensagem anterior. Ainda carece de todos os detalhes sobre o que precisa.

Peço desculpa,

Esqueci o resolvido!

Obrigado

Ah, então tinha resolvido né? Eu havia pensado que estava ainda pendente.

Boas Criquio,

Resolvi criando as 1720 caixas e tornando-as
visiveis através do código que me passou em cima.

Penso desculpa, ontem já estava cansado.

Abraço