Image y el nombre del grafico

[SheKeL_C$]

Mi problema es que tengo un image dentro del form y quiero q si s pulsa cambie de imagen, pero si esta se vuelve a pulsar que vaya a la anterior, m explico con un ejemplo, si yo pulso el image quiero que ponga un jpg que esta dibuja "si" y si l vuelvo a pulsar que ponga "no".






Salu2

[Snort]

   Tienes dos opciones, una es poner dos imagenes una justo encima de otra con cada dibujo y el siguiente codigo:

Código [Seleccionar] Expandir


private sub form_load
image1.visible=true
image2.visible=false
end sub
private sub image1_click
image1.visible=false
image2.visible=true
end sub
private sub image2_click
image1.visible=false
image2.visible=true
end sub


o la otra opcion es poner tres imagenes, la 1 y la 2 con la propiedad visible a false y la 3 en true:

Código [Seleccionar] Expandir


private sub form_load
image3.picture=image1.picture
end  sub
private sub image3_click
if image3.picture=image1.picture then
image3.picture=image2.picture
else
image3.picture=image1.picture
end if             'Si la imagen visible es igual qe la 1, se pone la 2 y si no, se pone la 1
end sub



Saludos

[NYlOn]

Podes usar una variable (estatica), por ejemplo:

Código [Seleccionar] Expandir


Static Estado as Boolean
If Estado = True Then
    Picture1.Picture = LoadPicture("C:\NO.jpg")
    Estado = False
Else
    Picture1.Picture = LoadPicture("C:\SI.jpg")
    Estado = True
End If


Espero que te sirva.

Saludos.-