Finde Fehler nicht

Conan10

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

[autoit]

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 ###

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Im anhang mal die entsprchenden Bilder.
Soll ein Hilfstool werden^^^
Vielen Dank vorab.

juby

Viel zu umständlich gelistet, werds mal kleiner machen

mfg

Conan10

ja gerne bin für sowas immer offen

mehrsolala

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pic, $map
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 ###

[/autoit][autoit][/autoit][autoit]

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
$pic = 'china.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_1
$pic = 'westchina.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_2
$pic = 'oasis1.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_3
$pic = 'oasis2.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_4
$pic = 'taklamakan.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_5
$pic = 'westasien.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_6
$pic = 'zentralasien.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_7
$pic = 'vorderasien.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_8
$pic = 'europa.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_9
$pic = 'downhangcave.jpg'
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndSwitch
WEnd

[/autoit]

So.
Pixel-Schnick-Schnack hab ich weg gelassen (der war bei dir sowieso falsch formatiert Not kommt vor die Bedingung)

Conan10

Thx an euch!
An so was hatte ich zwar gedacht, konnte es aber nicht so machen. Aber ich muss sagen ihr habt das richtig geil gemacht nochmals danke!!

**BugFix**

Hi,
noch etwas viel Code
So siehst du auch gleich mal, wozu Funktionen gut sind

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $map
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 ###

[/autoit] [autoit][/autoit] [autoit]

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
_map('china.jpg')
Case $TreeView1_1
_map('westchina.jpg')
Case $TreeView1_2
_map('oasis1.jpg')
Case $TreeView1_3
_map('oasis2.jpg')
Case $TreeView1_4
_map('taklamakan.jpg')
Case $TreeView1_5
_map('westasien.jpg')
Case $TreeView1_6
_map('zentralasien.jpg')
Case $TreeView1_7
_map('vorderasien.jpg')
Case $TreeView1_8
_map('europa.jpg')
Case $TreeView1_9
_map('downhangcave.jpg')
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _map($pic)
GUICtrlDelete($map)
$map = GUICtrlCreatePic(@ScriptDir&"\"&$pic, 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndFunc

[/autoit]