Criar controles em tempo de execução


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Criar controles em tempo de execução

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 07/10/2010 13:44 hs

Cara esse on resume next quando tem erro no codigo ele ignora e continua na siguente linha de codigo.
peguei esse codigo e rodo e da erro aqui imPos = ImgAtalho(0).Top
como foi declarado essa imagen? em que momento foi criado o imagen?

Gustavo
não registrado

ENUNCIADA !

Postada em 07/10/2010 13:50 hs

Eu sei disso!
Veja bem
o ImgAtalho(0) já existe no formulário
Como havia dito é um controle image
ele deve criar agora os demais ImgAtalho(1), (2), (3), (4) e (5).

Tudo perfeito! inclusive as tags com os indices do array, porém apenas não desloca o controle imagem um abaixo do outro.

A imagem não foi declarada ela já esta no formulário e outros são criados dinamicamente!

Gustavo
não registrado

ENUNCIADA !

Postada em 07/10/2010 13:58 hs

   For j = 1 To 5
       imPos = ImgAtalho(j).Top + ImgAtalho(j - 1).Height
       ImgAtalho(j).Top = imPos '+ ImgAtalho(j - 1).Height
       MsgBox j & " - " & imPos
   Next j

tentei em um segundo for fazer o descolmento, achando que ao carregar a Imagem ele pegava o valor inicial.

mas o mesmo aconeteçe apenas um primeiro desloca.
se fizer o descolamento em um botao de comando
assim: ImgAtalho(5).top = 500 e ele desloca a imagem 5.

Muito estranho isso!

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 07/10/2010 14:14 hs

vamos lá filho mudando tudo

On Error Resume Next
  Dim i As Integer
  i = 1
Dim imgPos As Integer
imPos = ImgAtalho(0).Top
   For i = 1 To 5
      Load ImgAtalho(i)
       ImgAtalho(i).Tag = i
       ImgAtalho(i).Visible = True
       ImgAtalho(i).Top = (imPos + ImgAtalho(i).Height)*i
   Next i

tente agora

Gustavo
não registrado

ENUNCIADA !

Postada em 07/10/2010 14:16 hs

Vou tentar!
Já tinha resolvido desse jeito..rs

Espero que a sua solução seja melhor........Valeu!

On Error Resume Next
  Dim i As Integer, j As Integer
  imPos = ImgAtalho(0).Top
  Dim imgPos As Integer
   For i = 1 To 5
       Load ImgAtalho(i)
       imgPos = ImgAtalho(0).Top + ImgAtalho(i).Height
       ImgAtalho(i).Tag = i
       ImgAtalho(i).Visible = True
   Next i
    For j = 1 To 5
        imPos = ImgAtalho(j).Top + ImgAtalho(j - 1).Height
        ImgAtalho(j).Top = imPos
        If ImgAtalho(j).Top = imPos Then
          ImgAtalho(j + 1).Top = imPos
        End If
    Next j

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 07/10/2010 14:16 hs

RESOLVIDO, FAZ ASSIM: EU FIZ O TESTE E DEU CERTO, NAO USE O RESUME NEXT NAO É BOM SEMPRE ELE PQ NAO DEIXA VER SE TEM ERRO.

  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(i).Height
       IMPOS = IMPOS + ImgAtalho(i).Height
   Next i

BLZ

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR