[vb6] Ajuda Urgente

[salvador69]

Boas a todos os membros tou precisando de uma ajudinha

A questão é a seguinte eu tenho uma listbox com 9 itens.
e queria que ao carregar no item por exemplo 1, le-se uma imagem do meu listimage com o index por exemplo 1 e fosse mostrado numa picturebox.

a situação é a seguinte eu quero que ao ler o form ele associe-se o listbox, e cada index da lista as imagens do imagebox e depois quando eu clica-se sobre o item 1 da listbox mostre na picturebox.picture a imagem.

ja tentei usar ciclo select case, o case normal, o if e nao dou com isto será que dá para me darem uma maozinha. A finalidade deste form é quando eu clicar o botao aplicar ele vá a mdiform e altere o fundo.

cumprimentos: :shy_4_02: :shy_4_02: :shy_4_02: :shy_4_02:

 

[mafia_k7]

boas... para nos te darmos uma ajuda mais fácil e mais precisa podias postar o código a que te referes?

a minha experiência com vb6 não e muita mas se me postares o código talvez te consiga ajudar...

 

[salvador69]

Bem o que se passa é o seguinte como se ve na imagem eu tenho uma listbox, uma image4 e imagelist.

E o que eu queria é o seguinte ao carregar num dos itens da lisbox por exemplo aranha, aparece-se de imediato na image4 a imagem que selecionei. So que eu nao sei como isso se faz.

e nem sei como dizer que na imagelist que tem actualmente num total de 9 imagens, como faço para associar cada imagem a cada item da listbox.

A função desse form é para ao selecionar-se uma imagem da listbox e quando carregamos aplicar fundo ele vá a imagem de fundo de outro form e aplique essa.

Espero que me possam ajudar pois ando a dar os primeiros passos nisso e tou mesmo atrapalhado lol

 

[Johny13]

Bem o que se passa é o seguinte como se ve na imagem eu tenho uma listbox, uma image4 e imagelist.

E o que eu queria é o seguinte ao carregar num dos itens da lisbox por exemplo aranha, aparece-se de imediato na image4 a imagem que selecionei. So que eu nao sei como isso se faz.

e nem sei como dizer que na imagelist que tem actualmente num total de 9 imagens, como faço para associar cada imagem a cada item da listbox.

A função desse form é para ao selecionar-se uma imagem da listbox e quando carregamos aplicar fundo ele vá a imagem de fundo de outro form e aplique essa.

Espero que me possam ajudar pois ando a dar os primeiros passos nisso e tou mesmo atrapalhado lol

Amigo falar em programação sem se ver o códio e um pouco dificil/relativo e u n vejo a imagem :S era perferivel se pusesses o código e veres o que que se passa com a imagem para te pudermos ajudar

:espi28::espi28:

 

[salvador69]

Actualmente eu ainda nao coloquei codigo nenhum, pois tentei criar ciclo com o SELECT CASE e com IF e nao consigo aceder ao clicar na listbox a imagelist para aparecer na IMAGE4.

Ja coloquei um link onde se poderá ver a imagem

 

[Johny13]

Já exprimentou If para associar o artigo a iamgem se não dá fassa com um checkbox
If checkbox1.checkd then image1.show = true


Algo assim :espi28:

 

[salvador69]

nao dá para ser mais especifico a serio ... nao pesco muito do VB6, pois trabalho muito é com o 2005.net e preciso acabar isto que ando a fazer em VB6

 

[Johny13]

Mas tem de ser com a listbox n pode ser com checkboxes???
Se puder tenta que talvez dê porque eu n tou a ver outra maneira
:espi28::espi28:

 

[salvador69]

sim tem que ser mesmo com a listbox, tbm por uma questao de estetica grafica de visualização

 

[Johny13]

Hoje vou tar com um amigo meu que percebe disto pode ser que ele tenha solução
:espi28::espi28:

 

[salvador69]

ok ficarei a aguardar novidades

 

[Johny13]

Ola o meu amigo disse-me para fazeres com if e que devia dar ou entao prar tentares com Dim :S eu vou lhe pedir que venha aqui ai forum explicar visot que ele proprio ficou um pouco baralhado desculpe por nao poder ajudar mais
:espi28::espi28:

 

[salvador69]

ficarei a aguardar entao que seu amigo apareça por ca para ver se ele percebeu o que eu quero fazer, mas mostra para ele a imagem que eu postei do form em que eu quero trabalhar isso. e obrigado pela preocupação de ajudar. Algo que precises ta a vontade de pedir

 

[Johny13]

Amigo está complicado mesmo ne tou a conseguir chegar lá... nem o meu amigo desculpe estou a continuar a pesquisar para tentar ajuda-lo

:espi28::espi28:

 

[salvador69]

ok obrigado

 

[Microcat]

Salvador,

Segue abaixo um exemplo de código

 

[Microcat]

Salvador,

Segue abaixo um exemplo de código.

Primeiro: cadastre as imagens no ImageList, colocando também o nome de cada imagem que deverá aparecer no Listbox na propriedade Tag de cada imagem no ImageList.

Ao terminar de cadastrá-las, coloque as seguintes linhas de código:

No evento Form_Load do seu formulário:

Private Sub Form_Load()
Dim i As Integer

For i = 1 To ImageList1.ListImages.Count
List1.AddItem ImageList1.ListImages.Item(i).Tag
Next i

End Sub

Depois, no evento List1_Click:

Private Sub List1_Click()
Image1.Picture = ImageList1.ListImages.Item(List1.ListIndex + 1).Picture
End Sub

Tecle F5 para rodar o programa. Os nomes das imagens são carregadas no Listbox e quando você clica em algum item, a figura correspondente é carregada no controle Imagem.

Espero ter ajudado.

Adalberto.

 

[Johny13]

Tu pusetse o o "Dim i As Integer" mas podias mudar o i por outra variavel certo? e amigo salvador eu disse que era algo á volta do Dim mas eu tb nao sou um expert nisso
:espi28::espi28:

 

[salvador69]

tenho que dar os meus parabens ao microcat e ao Jonhy13 pela ajuda, obrigado esta a funcionar já

 

[salvador69]

so tenho mais uma pequena duvida se me poderem ajudar quanto a esta questão, a minha ideia é agora depois de ver as imagens em miniatura na image1.picture, quero que ao carregar num command1 aplique essa mesma imagem ao fundo de uma form diferente desta onde estou a ler as imagens, será que me poderiam dar mais esta ajuda, agradecendo

 

[Johny13]

Exprimenta tipo na zona onde aparece a imagem clica duas vezes apra programares no "on Click" e metes formx.show e depois tipo formx.picture = formx.picturebox.

Estás a perceber e que eu n tenho o vb neste pc por isso nao te posso dar os codigos todos das forms xD

Tes que por o codigo par abrir uma form (formx.show) e depois tnes de por para o picture box dessa outra form ser igual a da outra form (form2.picturbox = form1.picturebox.)

Se nao funcionar deve ser com o Dim mas eu nao sou la muito entendido
XD

:espi28::espi28:

 

[salvador69]

boas, Johny13

a ideia é a seguinte como tinha postado, eu tenho um botão né, que ao clicar nele quero que numa form do tipo MDI passe a ter um background = a imagem seleccionada atraves do listbox e que cada vez que eu reiniciar o MDIFORM seja a imagem selecionada na image1.

Espero que dê para ter uma ideia do que quero se for preciso postar as forms para teres uma ideia do que pertendo fazer, basta dizeres.

Obrigado e espero que dê para perceber

 

[Johny13]

amigo se não te importares mete ai o teu projecto para descarga ou manda me pm que eu passo isso para o meu outro pc para tentar resolver isso.

Porque isso para mim estar a falar de um projecto em vb sem o ver e muito relativo e cunfuso :S

:espi28::espi28:

 

[salvador69]

Bem caro johny13, o que quero é muito simples, postei ai uma imagem com 2 forms, em que o form principal que é do tipo MDI_form é o que esta por tras do mais pequeno e o outro é de onde eu quero mandar aplicar as coisas que é uma childform.

- na form pequena como vez tem la uma imagem de uma aranha no monitor, que é inserida numa image1. O que eu pertendo é que ao carregar no botao aplicar fundo apareça na MDI_form a imagem da aranha e que seja guardada pela MDI_FORM, para que quando se voltar a reinciar o programa ela seja sempre aquela imagem da aranha por todo o espaço onde esta essa imagem a branco no background desta MDI_FORM.

Espero que agora ja dê para perceberes o que quero fazer.

- já agora vou deixar aqui mais uma duvida eu nessa mdi form tenho uma statusbar1 ai no fundo e no sitio que diz "licença" gostava de fazer ler o conteudo de um ficheiro .TXT não sei se dá para o fazer e se der como é que eu posso aplicar isso.

cumprimentos e obrigado pela força. :shy_4_02::espi28: