Hallo.
Hab da wieder mal ein Problem, ich hoffe jemand weiß eine Antwort . Gibt es einen Befehl mit dem ich auslesen kann, welche Controls zu einer Gui gehören ? Oder gibt es einen Befehl damit sich alle Controls die zu einer Bestimmten Gui gehören auf HIDE setzen .
Ich verstehe zwar nicht den Sinn, aber vielleicht meinst Du ja WinGetClassList ?!
[autoit]
#include<Array.au3>
Run("notepad.exe")
WinWait("Unbenannt -", "")
$aList = StringSplit(WinGetClassList("Unbenannt -", ""), @LF)
_ArrayDisplay($aList)
Hi
Um die WinGetClassList - Liste verwenden zu können, muß man diese noch durchnumerieren.
(Wenn man 2 Button hat, dann soll der erste Button1 und der zweite Button2 heißen...usw...)
Dazu gibt es eine gute Funktion von ProgAndy, hab ich aber grad nicht gefunden und deshalb was eigenes geschrieben:
$hPid=Run("Sndrec32.exe")
WinWait("[CLASS:SoundRec]", "", 5)
If @error Then Exit
$hWnd=WinGetHandle("[CLASS:SoundRec]")
$sCList=WinGetClassList($hWnd)
$aCtrl=_EnumCtrl($sCList)
For $i=1 To $aCtrl[0]
ControlHide($hWnd,"",$aCtrl[$i])
Next
Func _EnumCtrl($sList)
Local $aList=StringSplit($sList,@CRLF)
Local $iCnt, $aRet[1]=[0]
For $i=1 To $aList[0]
$iCnt=1
If $aList[$i]="" Then ContinueLoop
$aRet[0]+=1
ReDim $aRet[$aRet[0]+1]
$aRet[$aRet[0]]=$aList[$i] & $iCnt
For $j=$i+1 To $aList[0]
If $aList[$i]<>$aList[$j] Then
ContinueLoop
Else
$iCnt+=1
$aRet[0]+=1
ReDim $aRet[$aRet[0]+1]
$aRet[$aRet[0]]=$aList[$i]&$iCnt
$aList[$j]=""
EndIf
Next
$aList[$i]=""
Next
Return $aRet
EndFunc
lgE
Danke schon mal für eure Antworten. Ist aber nicht das was ich suche . Versuche das nochmal genauer zu erklären .
Ich habe ein Prog mit mehreren GUIS . Ich will nun mit einem Befehl auslesen welche Controls zu den einzelnen Guis gehören. Der Hintergrund ist der, das Vista mit seiner AERO Oberfläche beim resizen und bei Effektspielereine rumzickt. Ich will bevor ich eine Gui verschiebe alle darin enthaltenen Controls verstecken damit die nicht rumflackern .
Ja, aber mit der Funktion bekommst Du doch alle Controls der GUI geliefert.
eukalyptus: mit einem "Scripting.Dictionary"-Objekt wird es kürzer und ohne ReDim:
[autoit]
#include<Array.au3>
Run('calc.exe')
WinWait('Rechner', '')
$aList = StringSplit(StringTrimRight(WinGetClassList('Rechner', ''), 1), @LF)
_ArraySort($aList)
$oDictTable = ObjCreate('Scripting.Dictionary')
$oDictTable.CompareMode = 1
$j = 1
For $i = 1 To $aList[0]
If Not $oDictTable.Exists($aList[$i]) Then
$oDictTable.Add($aList[$i], $aList[$i])
$j = 1
Else
If $j = 1 Then $aList[$i-1] &= $j
$j += 1
$aList[$i] &= $j
EndIf
Next
_ArrayDisplay($aList)
Edit: Da musste noch ein _ArraySort rein.
Oscar das Script zeigt mir an welche Objekttypen in der Gui sind aber nicht die Variablen Namen der Objekte. Ich versteh das Script noch nicht so ganz , dafür bin ich noch zu großer Neuling. Zum Hiden der Controls bräuchte ich doch eigentlich die Var Namen.
Nein, die Classnamen reichen auch. Füge mal am Ende meines Beispielscripts noch die folgenden Zeilen ein:
[autoit]
For $i = 1 To $aList[0]
ControlHide('Rechner', '', $aList[$i])
Next
Da Funzt leider nicht.Die Controls werden nicht versteckt.
Edit: Bei deinem Beispiel vonn Calc funzt das . Wenn ich es aber auf meien Gui anwende funzt es nicht .
Versuch mal den Classnamen von Deiner GUI rauszukriegen, dann kannst Du das auch so lösen:
#include<Array.au3>
Run('calc.exe')
If Not WinWait('[CLASS:SciCalc]', '', 5) Then Exit MsgBox(0, 0, 'error') ; Nach "CLASS:" muss der Name Deiner GUI stehen
$hwnd = WinGetHandle('[CLASS:SciCalc]', '')
$aList = StringSplit(StringTrimRight(WinGetClassList($hwnd), 1), @LF)
_ArraySort($aList)
$oDictTable = ObjCreate('Scripting.Dictionary')
$oDictTable.CompareMode = 1
$j = 1
For $i = 1 To $aList[0]
If Not $oDictTable.Exists($aList[$i]) Then
$oDictTable.Add($aList[$i], $aList[$i])
$j = 1
$aList[$i] &= $j
Else
$j += 1
$aList[$i] &= $j
EndIf
Next
;~ _ArrayDisplay($aList)
MsgBox(0, 0, 'Nach klick auf "ok" verschwinden die GUI-Elemente')
For $i = 1 To $aList[0]
ControlHide($hwnd, '', $aList[$i])
Next
Danke schon mal für eure Antworten. Ist aber nicht das was ich suche . Versuche das nochmal genauer zu erklären .
Ich habe ein Prog mit mehreren GUIS . Ich will nun mit einem Befehl auslesen welche Controls zu den einzelnen Guis gehören. Der Hintergrund ist der, das Vista mit seiner AERO Oberfläche beim resizen und bei Effektspielereine rumzickt. Ich will bevor ich eine Gui verschiebe alle darin enthaltenen Controls verstecken damit die nicht rumflackern .
Wenn du die GUIs mit AutoIt erstellst:
Das einfachste wäre warscheinlich, eine GUI als ChildGUI innerhalb deiner Haupt-GUI zu erstellen. Die kannst du dann verstecken und wieder anzeigen 
$GUI = GUICreate(...)
$ChildGUI = GUICreate(...,$WS_CHILD,0,$GUI)
GUICtrlCreate(...)
GUISetstate(@SW_HIDE,$ChildGUI)
GUISetstate(@SW_SHOW,$ChildGUI)
Also habe mal ein Beispielscript.
[autoit]#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Beispiel-GUI", 633, 447, 400, 400)
$Input2 = GUICtrlCreateInput("Input1", 120, 32, 385, 21)
$Buttonx = GUICtrlCreateButton("Bla", 16, 24, 73, 33, 0)
$Buttony = GUICtrlCreateButton("Blub ", 16, 64, 73, 33, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Buttonz = GUICtrlCreateButton("BlaBla ", 16, 104, 73, 33, 0)
$List1 = GUICtrlCreateList("", 528, 40, 81, 71)
$Progress1 = GUICtrlCreateProgress(64, 320, 521, 49)
$TreeView1 = GUICtrlCreateTreeView(24, 168, 73, 129)
;WinSetTrans($Form2, "", 200)
GUISetState(@SW_Show)
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ;Schließenbutton abfrage
exit
Case $msg = $Buttonx
test()
EndSelect
wend
Func Test()
$aList = StringSplit(StringTrimRight(WinGetClassList('Beispiel-GUI', ''), 1), @LF)
_ArraySort($aList)
$oDictTable = ObjCreate('Scripting.Dictionary')
$oDictTable.CompareMode = 1
$j = 1
For $i = 1 To $aList[0]
If Not $oDictTable.Exists($aList[$i]) Then
$oDictTable.Add($aList[$i], $aList[$i])
$j = 1
Else
If $j = 1 Then $aList[$i-1] &= $j
$j += 1
$aList[$i] &= $j
EndIf
Next
_ArrayDisplay($aList)
For $i = 1 To $aList[0]
ControlHide('Beispiel-GUI', '', $aList[$i])
Next
EndFunc
Wenn man auf Button Bla Drückt bekommt man den Array angezeigt. Wenn ArrayDsiplay geschlossen wird dann werden nur die Buttons gehidet und micht die anderen Objekte.
Oscar dein letzte Script werde ich mir morgen zu gemüte führen, mir qualmt so langsam der Schädel . Bin nicht mehr so wirklich Aufnahmefähig.
@progandy das weiß ich ,aber wenn ich die Guis rein- und rausscrollen will dann hat sich das mit Hide und Show erledigt. Will eigentlich nur die Controls ausblenden damit sie nicht so dumm rumflackern wenn sich des Fenster bewegt. Ich kann nur sagen , scheiß AERO unter XP hab ich den Streß net.
Danke euch allen aber für eure Mühe 
Achso, das ist für eine eigene GUI!
Bei dem ersten Beispiel von mir war noch ein Fehler drin: Alle GUI-Elemente müssen zu dem Classnamen noch eine Zahl bekommen, auch wenn es nur ein einziges davon gibt.
So geht es jetzt mit Deinem Beispiel-Script:
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Beispiel-GUI", 633, 447, 400, 400)
$Input2 = GUICtrlCreateInput("Input1", 120, 32, 385, 21)
$Buttonx = GUICtrlCreateButton("Bla", 16, 24, 73, 33, 0)
$Buttony = GUICtrlCreateButton("Blub ", 16, 64, 73, 33, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Buttonz = GUICtrlCreateButton("BlaBla ", 16, 104, 73, 33, 0)
$List1 = GUICtrlCreateList("", 528, 40, 81, 71)
$Progress1 = GUICtrlCreateProgress(64, 320, 521, 49)
$TreeView1 = GUICtrlCreateTreeView(24, 168, 73, 129)
;WinSetTrans($Form2, "", 200)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ;Schließenbutton abfrage
Exit
Case $msg = $Buttonx
Test()
EndSelect
WEnd
Func Test()
$aList = StringSplit(StringTrimRight(WinGetClassList($Form2), 1), @LF)
_ArraySort($aList)
$oDictTable = ObjCreate('Scripting.Dictionary')
$oDictTable.CompareMode = 1
$j = 1
For $i = 1 To $aList[0]
If Not $oDictTable.Exists($aList[$i]) Then
$oDictTable.Add($aList[$i], '')
$j = 1
$aList[$i] &= $j
Else
$j += 1
$aList[$i] &= $j
EndIf
Next
;~ _ArrayDisplay($aList)
MsgBox(0, 0, 'Nach klick auf "ok" verschwinden die GUI-Elemente')
For $i = 1 To $aList[0]
ControlHide($Form2, '', $aList[$i])
Next
EndFunc ;==>Test
Habe schon deine vorletztes Post in mein Beispielscript integriert.
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Beispiel-GUI", 633, 447, 400, 400)
$Input2 = GUICtrlCreateInput("Input1", 120, 32, 385, 21)
$Buttonx = GUICtrlCreateButton("Bla", 16, 24, 73, 33, 0)
$Buttony = GUICtrlCreateButton("Blub ", 16, 64, 73, 33, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Buttonz = GUICtrlCreateButton("BlaBla ", 16, 104, 73, 33, 0)
$List1 = GUICtrlCreateList("", 528, 40, 81, 71)
$Progress1 = GUICtrlCreateProgress(64, 320, 521, 49)
$TreeView1 = GUICtrlCreateTreeView(24, 168, 73, 129)
;WinSetTrans($Form2, "", 200)
GUISetState(@SW_Show)
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ;Schließenbutton abfrage
exit
Case $msg = $Buttonx
test()
EndSelect
wend
Func Test()
$hwnd = WinGetHandle('[CLASS:Beispiel-GUI]', '')
$aList = StringSplit(StringTrimRight(WinGetClassList($hwnd), 1), @LF)
_ArraySort($aList)
$oDictTable = ObjCreate('Scripting.Dictionary')
$oDictTable.CompareMode = 1
$j = 1
For $i = 1 To $aList[0]
If Not $oDictTable.Exists($aList[$i]) Then
$oDictTable.Add($aList[$i], $aList[$i])
$j = 1
$aList[$i] &= $j
Else
$j += 1
$aList[$i] &= $j
EndIf
Next
;~ _ArrayDisplay($aList)
MsgBox(0, 0, 'Nach klick auf "ok" verschwinden die GUI-Elemente')
For $i = 1 To $aList[0]
ControlHide($hwnd, '', $aList[$i])
Next
sleep(2000)
For $i = 1 To $aList[0]
ControlShow($hwnd, '', $aList[$i])
Next
EndFunc
[/autoit]
Funzt so wie ich es mir gedacht habe .Ebenso wie das Script aus deiner letzten Post .
Ich danke dir vielmals Oscar und allen andern auch .
EDIT:Bei meinem nächsten Hilfegesuch werde ich mich versuchen besser auszudrücken. Muß mir mal angewöhnen statt mein Prog mein Script zu schreiben .Dann weiß man eher bescheid. 
