Compilar imagem junto com EXE

[ReapeR 0]

Ola pessoal,

 

Estou criando um formulário dinâmico, e gostaria que ao lado do campo, tivesse um icone de interrogação (imagem) para quando o usuário clicasse, aparecesse uma descrição do campo que ele deve preencher.

Estes campos são gerados dinamicamente!!

 

Quando eu crio o componente fixo no form e seto a propriedade Picture para uma imagem no computador, ao gerar o EXE, não preciso ter o arquivo na mesma pasta. O problema esta quando eu crio a imagem dinâmicamente, preciso obrigatóriamente ter o arquivo na pasta, senão, aparece um MsgBox dizendo que o arquivo X não foi encontrado.

 

Pensei em criar um componente Image fixo com visible = false e duplicá-lo, porém não sei como fazer isto. Alguem sabe?

 

Segue a forma que estou tentando fazer atualmente:

 

Dim img as Image
Set img = Controls.Add("VB.Image", "img")
img.Move 2000, 7000, 300, 300
img.Picture = LoadPicture(App.Path & "\" & "no.gif")
img.Visible = True

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[Graymalkin 0]

Sim, isso funciona. Coloque uma Image no form com o nome "img" e mude a propriedade Index dela para 0 (zero) e a Visible para False. Daí, você vai poder fazer:

 

i = 1
Load img(i)
img(i).Move 2000, 7000, 300, 300
img(i).Visible = True

Colocando isso dentro de um loop basta incrementar o "i".

 

Certo? ;)

 

Graymalkin

[Marhault 1]

Outra forma é adicionar a imagem como Resource...

No VB 6, para ativar o Resource Editor vá em Add-Ins -> Add-In Manager...

Selecione VB 6 Resource Editor e marque as opções Loaded/Unloaded e Load on Startup

Feito isso vá em Tools -> Resource Editor e adicione uma imagem...

Para carregar a imagem em uma PictureBox use a função LoadResPicture:

Picture1.Picture = LoadResPicture(101, vbResBitmap)

PS: 101 é o id da imagem no resource editor...

[ReapeR 0]

Opa, obrigado pelas respostas, funcionou corretamente http://forum.imasters.com.br/public/style_emoticons/default/joia.gif