Button + Bild

Und weiter gehts! xD
Hab mir nun des 2te Fenster gebaut und will da nun ne Verlinkung auf ne Website machen!

--->

$gui2 = GUICreate("--", 200, 100)
WinSetOnTop("--", "", 1)
$linkbutton = GUICtrlCreateButton ("test", -1, -1 , 200, 100)
GUICtrlSetOnEvent($linkbutton, "_12")
GUISetState ()
$idBtn = GUICtrlCreatePic ('C:\Dokumente und Einstellungen\Besitzer\Desktop\2.jpg', -1, -1, 200, 100)

func _12()
ShellExecute("http://www.google.com")
EndFunc

Hab da jetzt des Bild über den Button gelegt sodass ich wenn ich auf des Bild klick den Button betätige! Geht aber net ...

$s_URL = ("http://www.google.com")
Global $pic = "C:\Dokumente und Einstellungen\Besitzer\Desktop\2.jpg"
$gui2 = GUICreate("Donate", 200, 100)
WinSetOnTop("Donate", "", 0)
$btnPic = GUICtrlCreatePic ($pic, -1, -1, 200, 100)
GUISetState ()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnPic
If _AnimButton($gui2, $btnPic) Then ShellExecute("http://www.google.com")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Func _AnimButton ($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP,$WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==> _AnimButton

Gut aber wenn ich des so hinzufüge erscheint nurnoch der Button. Wenn ich den klicke passiert nix und des andere Fenster kommt erst gar nicht mehr!

Wenn ichs weglass bzw auf 1 stell ändert sich nix!

Ohne mein Hauptscript gehts au...und mein hauptscript ohne des auch!
Mmmmh ich rätsel ma weiter.

Edit:
Läuft soweit wieder. Aber es passiert nix wenn ich des Bild anklick?!
---->

$s_URL = ("http://www.google.com")
Global $pic = "C:\Dokumente und Einstellungen\Besitzer\Desktop\2.jpg"
$gui2 = GUICreate("Donate", 200, 100)
WinSetOnTop("Donate", "", 1)
$btnPic = GUICtrlCreatePic ($pic, -1, -1, 200, 100)
GUISetState ()

GUISetState(@SW_SHOW, $guiCPL)
GUISetState(@SW_SHOW, $gui2)
_setList()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnPic
If _AnimButton($gui2, $btnPic) Then ShellExecute("http://www.google.com")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

While (1)
Sleep (100)
WEnd

Func _AnimButton ($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP,$WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==> _AnimButton

Wenn ich es so hab kommt alles aber des Bild ist wie kein Button. Muss des nen .bmp sein??

Global $pic = "C:\Dokumente und Einstellungen\Besitzer\Desktop\2.jpg"

$IDgui = GUICreate("Donate", 200, 100)
WinSetOnTop("Donate", "", 1)
$pic = GUICtrlCreatePic($pic, -1, -1, 200, 100)

GUISetState(@SW_SHOW, $guiCPL)
GUISetState(@SW_SHOW, $IDgui)

While (1)
Sleep(100)
WEnd

Func _AnimButton($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==>_AnimButton

While 1
$msg = GUIGetMsg()
Select
Case $msg = $pic
If _AnimButton($IDgui, $pic) Then ShellExecute("http://www.google.de")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Falsch informiert denk ich...weil dann geht bei mir gar nix mehr!^^

JUUUUUHUUUUUU. xD
Hab die Variable $pic doppelt belegt naja...Bild is nun klickbar und öffnet Google!
Aaaaber ich brauch netmal klicken...Google geht automatisch auf un des glei 100mal -.-
Muss ich da noch irgendwo was einfügen?^^

Edit:
Neue Erkenntniss...ich aktivier des Ding net durch nen Klick sondern schon wenn ich mit der Maus drüberfahr!
--> Maus drauflassen ~tabs -.-

Global $pic = 'C:\Dokumente und Einstellungen\Besitzer\Desktop\2.jpg'

$IDgui = GUICreate("Donate", 200, 100, -1, -1)
WinSetOnTop("Donate", "", 1)
$Apic = GUICtrlCreatePic($pic, -1, -1, 200, 100)

GUISetState(@SW_SHOW, $guiCPL)
GUISetState(@SW_SHOW, $IDgui)
_setList()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $pic
If _AnimButton($IDgui, $Apic) Then ShellExecute("http://www.google.de")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Func _AnimButton($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==>_AnimButton

Muss aber stimmen. Weil wenn ichs so mach wies war reagiert der Button wenigstes. Aber...wenn ich dann 1mal klick öffnet firefox sich unendlich. Kann man da nicht iwie 1mal angeben??

ID abfragen?! Wie geht'n des?^^

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Apic
If _AnimButton($IDgui, $Apic) then
ShellExecute("http://www.google.de")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

So??