Hi @ all
Finde bei meinem Skript den Fehler nicht. Normal sollte es bei einem anderen klick das bild wechseln, dies tut es aber nicht. Hier mal der Script:
Spoiler anzeigen
Global $pic1,$pic2,$pic3,$pic4,$pic5,$pic6,$pic7,$pic8,$pic9,$pic10
Opt("PixelCoordMode",0)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 775, 445, 193, 125)
GUISetBkColor(0x99B4D1)
$TreeView1 = GUICtrlCreateTreeView(8, 16, 129, 169)
$TreeView1_0 = GUICtrlCreateTreeViewItem("China", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("West-China", $TreeView1)
$TreeView1_2 = GUICtrlCreateTreeViewItem("Oasis 1.", $TreeView1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("Oasis 2.", $TreeView1)
$TreeView1_4 = GUICtrlCreateTreeViewItem("Taklamakan", $TreeView1)
$TreeView1_5 = GUICtrlCreateTreeViewItem("West-Asien", $TreeView1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Zentral-Asien", $TreeView1)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Vorder-Asien", $TreeView1)
$TreeView1_8 = GUICtrlCreateTreeViewItem("Europa", $TreeView1)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Downhang-Cave", $TreeView1)
;$Group1 = GUICtrlCreateGroup("Map", 152, 8, 609, 433)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("Schließen", 24, 208, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
$1 =PixelGetColor(545,369)
IniWrite("test.ini","","",$1)
Exit
Case $TreeView1_0
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic2)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic3)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic4)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic5)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic6)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic7)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic8)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic9)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic10)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic1 = GUICtrlCreatePic(@ScriptDir&"\china.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_1
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic3)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic4)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic5)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic6)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic7)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic8)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic9)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic10)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic1)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic2 = GUICtrlCreatePic(@ScriptDir&"\westchina.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_2
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic4)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic5)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic6)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic7)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic8)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic9)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic10)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic1)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic2)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic3 = GUICtrlCreatePic(@ScriptDir&"\oasis1.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_3
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic5)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic6)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic7)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic8)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic9)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic10)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic1)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic2)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic3)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic4 = GUICtrlCreatePic(@ScriptDir&"\oasis2.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_4
If PixelGetColor(545,369) Not = 010073297 Then
$delete=GUICtrlDelete($pic6)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic7)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic8)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic9)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic10)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic1)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic2)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic3)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic4)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic5 = GUICtrlCreatePic(@ScriptDir&"\taklamakan.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_5
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic7)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic8)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic9)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic10)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic1)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic2)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic3)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic4)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic5)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic6 = GUICtrlCreatePic(@ScriptDir&"\westasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_6
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic8)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic9)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic10)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic1)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic2)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic3)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic4)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic5)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic6)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic7 = GUICtrlCreatePic(@ScriptDir&"\zentralasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_7
If PixelGetColor(545,369) Not = 10073297 Then
$delete =GUICtrlDelete($pic9)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic10)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic1)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic2)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic3)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic4)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic5)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic6)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic7)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic8 = GUICtrlCreatePic(@ScriptDir&"\vorderasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_8
If PixelGetColor(545,369) Not = 10073297 Then
$delete =GUICtrlDelete($pic10)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic1)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic2)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic3)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic4)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic5)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic6)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic7)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic8)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic9 = GUICtrlCreatePic(@ScriptDir&"\europa.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_9
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic1)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic2)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic3)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic4)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic5)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic6)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic7)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic8)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic9)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic10 = GUICtrlCreatePic(@ScriptDir&"\downhangcave.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndSwitch
WEnd
Im anhang mal die entsprchenden Bilder.
Soll ein Hilfstool werden^^^
Vielen Dank vorab.