Cambiar Imagen
Publicado: 22 May 2009, 18:48
Me gustaria cambiar una imagen y al hacerle click que se pusiera otra. alguien sabe como hacerlo?
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