Gustavo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 07/10/2010 12:48 hs
On Error Resume Next
Dim i As Integer
i = 1
imPos = ImgAtalho(0).Top
Dim imgPos As Integer
For i = 1 To 5
Load ImgAtalho(i)
ImgAtalho(i).Tag = i
ImgAtalho(i).Visible = True
ImgAtalho(i).Top = imPos + ImgAtalho(0).Height
Next i
Gente,
Eu to tentando criar estes icone em tempo de execução..
Porém ele criar os controles, mas somente o primeiro que fica deslocado e os demais tudo um em cima do outro.
Onde posso esta errando no código para que ele crie um abaixo do outro?
Obrigado!
|
|
|
|
|
|
|
|
Postada em 07/10/2010 12:50 hs
ImgAtalho(i).Top = imPos + ImgAtalho(i).Height
imPos = ImgAtalho(i).Top + ImgAtalho(i).Height
Já tentei assim tbm e não deu certo!
|
|
|
|
|
|
Postada em 07/10/2010 13:01 hs
essa simples alteração acredito que resolva
ImgAtalho(i).Top = imPos + ImgAtalho(i - 1).Height
|
|
|
|
|
|
Postada em 07/10/2010 13:27 hs
Esse on resume next não ajuda para depurar o codigo, vc ta criando que tipo de controles?
ImgAtalho é um imagelist? para colocar icones em botoes?
|
|
|
|
|
|
Postada em 07/10/2010 13:28 hs
Treze,
Obrigado pela resposta
mas tbm não deu certo.. apenas o primeiro que desloca e os outros ficam um em cima do outro.
Não consigo entender porque!
|
|
|
|
|
|
Postada em 07/10/2010 13:29 hs
Juan o On resume será apenas para evitar erros no futuro em todas as minhas funções eu trato dessa maneira.
o controle é IMAGE e cria normalmente apenas o deslocamento do segundo em diante que dentro do For não aconteçe.
|
|
|
|
