hier mal das was ich hab der löscht mir einfach die labels nicht
Die msg Boxen sind natürlich nur zum überprüfen da
Spoiler anzeigen
#Include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <StructureConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GDIPlus.au3>
;#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]$status = 1
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate("....", 500, 360)
[/autoit] [autoit][/autoit] [autoit]$test = GUICtrlCreateGraphic (160, 0 , 500, 320)
GUICtrlSetBkColor ($test, 16777215)
GUICtrlCreatePic ("Images/intallpic.bmp", 0, 0, 160,320)
$Abrechen_Button = GUICtrlCreateButton("Abrechen", 420, 330, 70, 20)
$Weiter_Button = GUICtrlCreateButton("Weiter", 310, 330, 70, 20)
$Zurueck_Button = GUICtrlCreateButton("Zurück", 235, 330, 70, 20)
ebene_1(True)
[/autoit] [autoit][/autoit] [autoit]GUISetIcon("Images\SETUP10.ico")
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
$ghgui = _GDIPlus_GraphicsCreateFromHWND($hGui)
$hPen = _GDIPlus_PenCreate(0xFF828587)
_GDIPlus_GraphicsDrawLine($ghgui, -1, 319, 500, 319, $hPen)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Abrechen_Button
Exit
Case $Weiter_Button
Switch $status
Case "1"
ebene_1(0)
ebene_2(1)
Case "2"
ebene_2(0)
Case "3"
EndSwitch
$status += 1
MsgBox(0,"",$status)
Case $Zurueck_Button
Switch $status
Case "1"
$status = 2
Case "2"
ebene_1(1)
Case "3"
ebene_2(1)
EndSwitch
$status -= 1
EndSwitch
WEnd
Func ebene_1($show)
Local $label1, $label2, $label3
If $show Then
GUICtrlSetState($Zurueck_Button, $GUI_HIDE)
$label1 = GUICtrlCreateLabel("Willkommen bei der Installation von ....",190,20, 300, 100)
GUICtrlSetBkColor ($label1, 16777215)
GUICtrlSetFont($label1, 15, 800, 0 ,"Aral")
$label2 = GUICtrlCreateLabel("Diese Wizard wird dir bei der Installation von .... helfen.",190,140, 300, 100)
GUICtrlSetBkColor ($label2, 16777215)
GUICtrlSetFont($label2, 10, 400, 0 ,"Aral")
$label3 = GUICtrlCreateLabel("Klicke auf Abrechen um die Installation Abzubrechen.",190,200, 300, 100)
GUICtrlSetBkColor ($label3, 16777215)
GUICtrlSetFont($label3, 10, 400, 0 ,"Aral")
Else
MsgBox(0,"","lösche ebene 1")
GUICtrlDelete ($label1)
GUICtrlDelete ($label2)
GUICtrlDelete ($label3)
MsgBox(0,"","ebene 1 gelöscht")
EndIf
GUISetState()
EndFunc
Func ebene_2($show1)
Local $label
If $show1 Then
MsgBox(0,"","setzte ebene 2")
GUICtrlSetState($Zurueck_Button, $GUI_Show)
$label = GUICtrlCreateLabel("Wähle hier die Standardeinstellungen aus",190,20, 300, 100)
GUICtrlSetBkColor ($label, 16777215)
GUICtrlSetFont($label, 15, 800, 0 ,"Aral")
Else
GUICtrlDelete ($label)
EndIf
GUISetState()
EndFunc
Func Ordenauswahl()
$hTreeview = GUICtrlCreateTreeView(220, 40, 300, 200)
$hWndTreeview = GUICtrlGetHandle($hTreeview)
GUICtrlSetState($hTreeview, $GUI_HIDE)
GUICtrlSetStyle($hTreeview, Default, $WS_EX_COMPOSITED + $WS_EX_CLIENTEDGE)
$hImage = _GUIImageList_Create(16, 16, 5, 1)
_GUIImageList_AddIcon($hImage, 'shell32.dll', 3) ; Verzeichnis-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
_GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 5) ; Diskette
_GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
_GUIImageList_AddIcon($hImage, 'shell32.dll', ; Festplatte
_GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
_GUIImageList_AddIcon($hImage, 'shell32.dll', 12) ; Netzwerklaufwerk
_GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
_GUICtrlTreeView_SetNormalImageList($hTreeview, $hImage)
GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
$aDrives = DriveGetDrive('ALL')
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
For $i = 1 To $aDrives[0]
$iLWindex = 0
Switch DriveGetType($aDrives[$i])
Case 'Fixed'
$iLWindex = 5
Case 'CDROM'
$iLWindex = 6
Case 'RAMDisk'
$iLWindex = 7
Case 'Removable'
$iLWindex = 4
If StringLeft($aDrives[$i], 2) = 'a:' Or StringLeft($aDrives[$i], 2) = 'b:' Then $iLWindex = 3
Case Else
$iLWindex = 8
EndSwitch
$hRoot = _GUICtrlTreeView_Add($hTreeview, $hTreeview, StringUpper($aDrives[$i]), $iLWindex, $iLWindex)
If DriveStatus($aDrives[$i]) <> 'READY' Then ContinueLoop
_GUICtrlTreeView_BeginUpdate($hTreeview)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hRoot, $aDrives[$i], 1)
_GUICtrlTreeView_EndUpdate($hTreeview)
Next
ToolTip('')
EndFunc
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
GUIRegisterMsg($WM_NOTIFY, '')
Local $hWndFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iCode = DllStructGetData($tNMHDR, 'Code')
If $hWndFrom = $hWndTreeview And $iCode = $NM_CLICK Then
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
_GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
ToolTip('')
EndIf
GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
Func _GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
Local $aTVPos, $aPos, $hItem, $hChild, $sTree
$aTVPos = ControlGetPos($hGui, '', $hTreeview)
$aPos = GUIGetCursorInfo($hGui)
$hItem = _GUICtrlTreeView_HitTestItem($hTreeview, $aPos[0], $aPos[1] - $aTVPos[1])
If _GUICtrlTreeView_GetExpanded($hTreeview, $hItem) Then Return
$hChild = _GUICtrlTreeView_GetFirstChild($hTreeview, $hItem)
If $hChild <> 0 Then
_GUICtrlTreeView_BeginUpdate($hTreeview)
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
Do
$hChild = _GUICtrlTreeView_GetNextChild($hTreeview, $hChild)
If $hChild <> 0 Then
$sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
_GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
$iTimer = TimerInit()
_GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
EndIf
Until $hChild = 0
_GUICtrlTreeView_EndUpdate($hTreeview)
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorer
Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
Local $aDirList, $aFileList, $tmp
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$iRec -= 1
$aDirList = _MyFileListToArray($sPath, 2)
If IsArray($aDirList) Then
For $sDir In $aDirList
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sDir, 0, 1)
If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $sDir, $iRec)
Next
EndIf
$aFileList = _MyFileListToArray($sPath, 1)
If IsArray($aFileList) Then
For $sFile In $aFileList
$tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sFile, 2, 2)
Next
EndIf
EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive
Func _MyFileListToArray($sPath, $iFlag)
Local $sFileList = '', $hSearch, $sFile
$hSearch = FileFindFirstFile($sPath & '*')
If @error Then Return
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($iFlag + @extended = 2) Then ContinueLoop
$sFileList &= $sFile & '|'
WEnd
FileClose($hSearch)
If $sFileList = '' Then Return
Return StringSplit(StringTrimRight($sFileList, 1), '|', 2)
EndFunc ;==>__FileListToArray
EDIT : Hab schon Hilfe bekommen !!!!
Lag an der deklarierung meiner label variablen