• 0
Sign in to follow this  
Guest --Rafael --

Criando Componentes Durante Execução Do Programa Em Vb

Question

Guest --Rafael --

Olá pessoal,

Estou a uns 10 dias com um problemão num programa em VB que estou desenvolvendo no trampo. Vou tentar explicar o que acontece:

Tenho uma foto no meio da tela, e nesta foto vou usar vários Shapes retangulares para marcar diversos pontos da foto (como se fosse um mapa), porém quantos pontos serão macados e onde serão marcados vai depender da entrada do usuário. Pois bem, não queria ter que desenhar todos os Shapes no desenvolvimento, queria poder desenhar quantos Shapes eu precisar durante a execução do programa, fornecendo apenas as coordenadas e tamanho do Shape.

Tipo o usuário fornece: Left=1000; Top=5500; Height=500; Width=100. E o programa pega estes valores e desenha um shape retangular nestas coordenadas com este tamanho, sem a necessidade de eu deixar um shape pronto e invisível apenas para reposicionamento, pois tem casos que o usuário vai pedir uns 60 Shapes e casos de apenas 2 Shapes, mas nos dois casos eu teria que deixar 60 shapes prontos para usar, e isto eu não quero.

Se alguém puder me ajudar agradeço muito.

Obrigado,

Rafael ferreira

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Crie apenas uma shape e coloque 0 na sua propriedade Index. Depois disso, você vai poder usar a instrução Load para criar quantas shapes quiser, bastando definir o índice. Exemplo:

n = 1
    
Load Shape1(n)
Shape1(n).Visible = True
Shape1(n).Top = 100
Shape1(n).Left = 100

Certo? ;)

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest --Rafael --

valeu Graymalkin... consegui aqui... fiquei até com vergonha agora, não imaginei que fosse tão facil!!!!

Obrigado pela ajuda :D

Rafael

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this