Cambiar Imagen

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
SainT
Aprendiz de Mago
Mensajes: 33
Registrado: 21 May 2009, 22:20

Cambiar Imagen

Mensaje por SainT »

Me gustaria cambiar una imagen y al hacerle click que se pusiera otra. alguien sabe como hacerlo?
SainT
Aprendiz de Mago
Mensajes: 33
Registrado: 21 May 2009, 22:20

Re: Cambiar Imagen

Mensaje por SainT »

echo!

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>



$Form1 = GUICreate("Form1", 914, 609, 192, 124)

$Group1 = GUICtrlCreateGroup("Seleción Personaje", 8, 8, 897, 201)

$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Imag2e.jpg", 24, 32, 100, 100)

$img75 = 2

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Exclusion Personajes", 8, 216, 897, 361)

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1



$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit



Case $Pic1

 GUICtrlDelete($Pic1)

 if $img75 > 0 then

 $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Image.jpg", 24, 32, 100, 100)

 $img75 = 0

 else 

 $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Imag2e.jpg", 24, 32, 100, 100)

 $img75 = 1

 endif

EndSwitch

WEnd

 
Responder