Run function by clicking an image?

[Miniz 0]

Is there any way to run a function by clicking an image?

Just like the Javascript onclick function?

CODE

Func arrgh()

MsgBox('','Arrrgh!',"Don't you pick on me!")

EndFunc

$GUI = GUICreate("Arrrgh", 300,300)

$IMG = GUICtrlCreatePic("some.pirate.jpg", 0, 0, 300, 300) ; Make this picture run arrgh() : O

GUISetState()

While GUIGetMsg() <> -3

sleep(100)

WEnd

-Alexander

[Melba23 2,837]

Miniz,

Your image is a control like any other - so use it as such:

Func arrgh()
MsgBox('','Arrrgh!',"Don't you pick on me!")
EndFunc

$GUI = GUICreate("Arrrgh", 300,300)
$IMG = GUICtrlCreatePic("some.pirate.jpg", 0, 0, 300, 300); This picture runs!
GUISetState()

While 1
    Switch GUIGetMsg()
        Case  -3
            Exit
        Case $IMG
            arrgh()
    EndSwitch
WEnd

M23

[Miniz 0]

Thank you! You're my hero! ; )

[Miniz 0]

Or maby not, I want the function to run when someone click on the image, not all the time x ) any solutions? : )

Alexander

[Melba23 2,837]

Miniz,

Sounds like your image is not getting created - then $IMG = 0 and triggers all the time. Try adding some error checking:

Func arrgh()
MsgBox('','Arrrgh!',"Don't you pick on me!")
EndFunc

$GUI = GUICreate("Arrrgh", 300,300)
$IMG = GUICtrlCreatePic("some.pirate.jpg", 0, 0, 300, 300); This picture runs!
If $IMG = 0 Then
    MsgBox(0,"Error", "No pic!")
    Exit
EndIf
GUISetState()

While 1
    Switch GUIGetMsg()
        Case  -3
            Exit
        Case $IMG
            arrgh()
    EndSwitch
WEnd

If you get an error - you do not have a picture!

M23

[Miniz 0]

It did work now : ) thank you for your help !