DUVIDA COM O PICTURE BOX

USUARIO.EXCLUIDOS 01/05/2005 12:56:47
#81216
Tenho um conjunto de imagens que deveriam variar conforme um resultado random obtido aleatoriamente , o que eu quero fazer é associar esse resultado a uma imagem , o que eu estava tentando fazer era algo do tipo:

if dado1=1 then
image1.picture=("endereço da figura")
end if
if dado1=2 then
image1.picture=(endereço da outra figura")
end if
e assim por diante...

Acredito que seja possível fazer essa operação , se estiver errado me corrijam , e se for possivel ser feito dessa maneira , qual a sintaxe para se escrever no endereço da imagem?
Agradeço desde já a colaboração
USUARIO.EXCLUIDOS 01/05/2005 13:12:05
#81218 
If dado1 = 1 Then 
    Image1.Picture = LoadPicture("endereço da figura") 'Abrir de um arquivo externo
Else If dado1 = 2 Then 
    Image1.Picture = Image2.Image 'Usar a figura de outro controle Image
End if


Espero que tenha ajudado.........
USUARIO.EXCLUIDOS 01/05/2005 18:29:26
#81233
tipo.. o randon...

Dim resultado as integer
Randomize 'Gera numeros baseados no relogio, de modo que não repita

resultado = rnd(numero) * 100 'retorna um numero inteiro
while resultado < 0
   resultado = rnd(numero) * 100 'retorna um numero inteiro 'Certifica que o numero gerado seja diferente de zero
wend

'para fazer de modo que nem precise digitar o nome da figura, renomeie-as para 
'nomes com numeros Ex: 1.jpg...2.jpg... etc...
'ae...
Image1.Picture = LoadPicture("c:\figuras randomicas\" & resultado & ".jpg")


Se resolver... fecha o tópico?[S27]
Tópico encerrado , respostas não são mais permitidas
Voltar