Olá, Dilies!

 

Acredito que vc não tenha programado os 'Options'. Minha sugestão é que vc crie uma 'Sub' e mova todo o código do 'Command1', que acredito ser a matriz, para ela (a 'Sub') e coloque esta no evento 'Click' de cada um dos 'Options', já que não estão indexados, pois vc quer que as coisas mudem quando se clique neles.

 

Neste código, onde estão os [If's], troque [Command1(índice).Caption = "X"] por:

 

[n = índice (ou seja, um valor de 0 a 11)]

 

No final da 'Sub', faça:

 

---------------------------------------------------------------------------------

For x = 0 To Command1.UBound

        Command1(x).Picture = LoadPicture("")

Next x

 

---------------------------------------------------------------------------------

 

Para carregar a imagem no 'Command' desejado. Teste.

 

Por fim, digo que este código ainda pode ser melhorado, mas isso pode ficar para mais tarde. Por enquanto, teste o código.

 

 

Joseph
Técnico em Informática/Programador
São Paulo/SP
  

 

Olá Joseph...

 

esse meu código esta nesta Private Sub Command1_Click(Index As Integer) , entra aqui os if's , vc diz q eu tenho q criar uma Private sub para cada option (x) ? , pois edentro das frames os options não estao como array's.... vishi me confundi de novo....  ai Joseph me desculpe mesmo.... estou tão confusa com esse projeto q talves se não fosse seu conforto em tentar me ajudar.... nem sei o q seria de mim....

Joseph não funcionaou esse código acima ? ? ?  eu tb não entendi o motivo pq não funciona, pois ele não aponta para nenhum erro e tb não coloca o "X" talves eu tenha q colocar o codigo dos opts, mas para todos eles ?

Olá Joseph....

 

Realmente não recebi, pelo o q meu irmão disse não tem nd lah no incredmail , mas mesmo assim eu vou verificar hj a noite .... me desculpe estou ralmente com a corda no pescoço se eu não entregrar isso até o dia 22/12....

 

 

Aline Caldeira

Estágio de Desenvolvimento e Programação de Software

PASA

Aline Raquel Caldeira - Skype

 

Olá, Dilies!

 

Caso não se encomode, pode me adicionar ao MSN, o e-mail é 'jsff77@hotmail.com', assim poderemos coversar melhor. Tenho um certo tempo livre no trabalho.

 

Felizmente, estou apenas alterando o sistema da empresa e isso me deixa quase que o dia inteiro livre. 

 

Estou lhe enviando o e-mail outra vez, agora para o endereço que postou aqui no VBWEB, OK?

 

 

Joseph
Técnico em Informática/Programador
São Paulo/SP
[jsff77@hotmail.com]