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
Tienes dos opciones, una es poner dos imagenes una justo encima de otra con cada dibujo y el siguiente codigo:
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:
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
Podes usar una variable (estatica), por ejemplo:
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.-