BugFix : Danke, jetzt geht es ja.
So jetzt ist nur noch die Fragem wie ich die Bilder in die nächste Zeile bekomme, da ich ja mehr als Vier Programme haben werde.
BugFix : Danke, jetzt geht es ja.
So jetzt ist nur noch die Fragem wie ich die Bilder in die nächste Zeile bekomme, da ich ja mehr als Vier Programme haben werde.
Du erweiterst die Arrays und erhöhst die For-Next-Schleife oder machst gleich UBound rein, dann brauchst du nur die Arrays ändern.
Du meinst, für jede Zeile ein eingenes Array und ne For-Schleife, so würde ich dann jetzt machen^^
Häh du brauchst doch nur die Anzahl im Array ändern und den Wert in der Schleife erhöhen.
Ja, das weiß ich ja, aber wie vermittle ich dann dem Programm das es die Bilder in die Zeile darunter packen soll, anstatt nebendran und auserhalb des Fensters.
So, soweit ist mein Programm jetzt fertig, jetzt gibt es nur noch Grafik aufgaben die ich erledigen.
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]Global $aFilenamePics[8] = ["Blaue.jpg", "Blaue.jpg", "Blaue.jpg", "Blaue.jpg","Blaue.jpg", "Blaue.jpg", "Blaue.jpg", "Blaue.jpg"]
Global $aFilenamePics2[8] = ["Sonne.jpg","Sonne.jpg","Sonne.jpg","Sonne.jpg","Sonne.jpg","Sonne.jpg","Sonne.jpg","Sonne.jpg"]
Global $aFilenamePics3[8] = ["Feuer.jpg","Feuer.jpg","Feuer.jpg","Feuer.jpg","Feuer.jpg","Feuer.jpg","Feuer.jpg","Feuer.jpg"]
Global $aFilenamePics4[8] = ["Wasser.jpg","Wasser.jpg","Wasser.jpg","Wasser.jpg","Wasser.jpg","Wasser.jpg","Wasser.jpg","Wasser.jpg"]
Global $aFilenamePics5[8] = ["Winter.jpg","Winter.jpg","Winter.jpg","Winter.jpg","Winter.jpg","Winter.jpg","Winter.jpg","Winter.jpg"]
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
[/autoit] [autoit][/autoit] [autoit]Global $ypos= (10)
Global $i2 = (1)
;Fenster Titel und Größe angeben
$mainwindow = GUICreate("Test", 560, 560)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
[/autoit] [autoit][/autoit] [autoit];Oberkategorien
[/autoit] [autoit][/autoit] [autoit];Kategorie Chat erstellen und Funktion zuweisen
$Chat = GUICtrlCreatePic("Blaue.jpg", 10, 10, 100, 100)
GUICtrlSetOnEvent($Chat, "Chat")
;Kategorie Internet erstellen und Funktion zuweisen
$Internet = GUICtrlCreatePic("Blaue.jpg", 10, 120, 100, 100)
GUICtrlSetOnEvent($Internet, "Internet")
;Kategorie Player erstellen und Funktion zuweisen
$Player = GUICtrlCreatePic("Blaue.jpg", 10, 230, 100, 100)
GUICtrlSetOnEvent($Player, "Player")
;Kategorie Spiele erstellen und Funktion zuweisen
$Spiele = GUICtrlCreatePic("Blaue.jpg", 10, 340, 100, 100)
GUICtrlSetOnEvent($Spiele, "Spiele")
;Kategorie Sonstiges erstellen und Funktion zuweisen
$Sonstiges = GUICtrlCreatePic("Blaue.jpg", 10, 450, 100, 100)
GUICtrlSetOnEvent($Sonstiges, "Sonstiges")
;Kategorie Chat_makiert erstellen und unsichtbar machen
$Chat_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 10, 100, 100)
GUICtrlSetState($Chat_makiert, $GUI_HIDE)
;Kategorie Internet_makiert erstellen und unsichbar machen
$Internet_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 120, 100, 100)
GUICtrlSetState($Internet_makiert, $GUI_HIDE)
;Kategorie Player_makiert erstellen und unsichtbar machen
$Player_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 230, 100, 100)
GUICtrlSetState($Player_makiert, $GUI_HIDE)
;Kategorie Spiele_makiert erstellen und unsichtbar machen
$Spiele_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 340, 100, 100)
GUICtrlSetState($Spiele_makiert, $GUI_HIDE)
;Kategorie Sonstiges_makiert erstellen und unsichtbar machen
$Sonstiges_makiert = GUICtrlCreatePic("Sonne.jpg", 10, 450, 100, 100)
GUICtrlSetState($Sonstiges_makiert, $GUI_HIDE)
Local $aPics[8]
For $i = 0 To 7
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics[$i] = GUICtrlCreatePic($aFilenamePics[$i], 10 + 110 * $i2, $ypos, 100, 100)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group1")
$i2 = $i2 + 1
Next
$ypos= (10)
$i2 = (1)
Local $aPics2[8]
For $i = 0 To 7
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics2[$i] = GUICtrlCreatePic($aFilenamePics2[$i], 10 + 110 * $i2, $ypos, 100, 100)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group2")
$i2 = $i2 + 1
Next
$ypos= (10)
$i2 = (1)
Local $aPics3[8]
For $i = 0 To 7
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics3[$i] = GUICtrlCreatePic($aFilenamePics3[$i], 10 + 110 * $i2, $ypos, 100, 100)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group3")
$i2 = $i2 + 1
Next
$ypos= (10)
$i2 = (1)
Local $aPics4[8]
For $i = 0 To 7
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics4[$i] = GUICtrlCreatePic($aFilenamePics4[$i], 10 + 110 * $i2, $ypos, 100, 100)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group4")
$i2 = $i2 + 1
Next
$ypos= (10)
$i2 = (1)
Local $aPics5[8]
For $i = 0 To 7
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics5[$i] = GUICtrlCreatePic($aFilenamePics5[$i], 10 + 110 * $i2, $ypos, 100, 100)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group5")
$i2 = $i2 + 1
Next
$ypos= (10)
$i2 = (1)
GUISetState()
[/autoit] [autoit][/autoit] [autoit];Definetion der Variablen
Global $notthis = (0)
;Funktion von Chat
Func Chat()
;Wertangabe
$notthis = "Chat";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Chat unsichtbar
GUICtrlSetState($Chat, $GUI_HIDE)
;Macht Chat_makiert sichtbar
GUICtrlSetState($Chat_makiert, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
;Macht die Untergruppe Chat sichtbar
For $i = 0 To 7
GUICtrlSetState($aPics[$i], $GUI_SHOW)
Next
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
[/autoit] [autoit][/autoit] [autoit];Funktion von Internet
Func Internet()
;Wertangabe
$notthis = "Internet";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Internet unsichtbar
GUICtrlSetState($Internet, $GUI_HIDE)
;Macht Internet_makiert sichtbar
GUICtrlSetState($Internet_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
For $i = 0 To 7
GUICtrlSetState($aPics2[$i], $GUI_SHOW)
Next
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
[/autoit] [autoit][/autoit] [autoit];Funktion von Player
Func Player()
;Wertangabe
$notthis = "Player";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Player unsichtbar
GUICtrlSetState($Player, $GUI_HIDE)
;Macht Player_makiert sichtbar
GUICtrlSetState($Player_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
For $i = 0 To 7
GUICtrlSetState($aPics3[$i], $GUI_SHOW)
Next
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
[/autoit] [autoit][/autoit] [autoit];Funktion von Spiele
Func Spiele()
;Wertangabe
$notthis = "Spiele";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Spiele unsichtbar
GUICtrlSetState($Spiele, $GUI_HIDE)
;Macht Spiele_makiert sichtbar
GUICtrlSetState($Spiele_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Sonstiges sichtbar
GUICtrlSetState($Sonstiges, $GUI_SHOW)
For $i = 0 To 7
GUICtrlSetState($aPics4[$i], $GUI_SHOW)
Next
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
[/autoit] [autoit][/autoit] [autoit];Funktion von Sonstiges
Func Sonstiges()
;Wertangabe
$notthis = "Sonstiges";
;Programm das Ausgeführt werden soll
;Run ("notepad")
;Macht Sonstiges unsichtbar
GUICtrlSetState($Sonstiges, $GUI_HIDE)
;Macht Sonstiges_makiert sichtbar
GUICtrlSetState($Sonstiges_makiert, $GUI_SHOW)
;Macht Chat sichtbar
GUICtrlSetState($Chat, $GUI_SHOW)
;Macht Internet sichtbar
GUICtrlSetState($Internet, $GUI_SHOW)
;Macht Player sichtbar
GUICtrlSetState($Player, $GUI_SHOW)
;Macht Spiele sichtbar
GUICtrlSetState($Spiele, $GUI_SHOW)
For $i = 0 To 7
GUICtrlSetState($aPics5[$i], $GUI_SHOW)
Next
;Ruft die Funktion deselect auf
call ("deselect")
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _Group1()
Switch @GUI_CTRLID
Case $aPics[0]
run ("notepad")
;MsgBox(0, "Test", "Group1Icon1")
Case $aPics[1]
MsgBox(0, "Test", "Group1Icon2")
Case $aPics[2]
MsgBox(0, "Test", "Group1Icon3")
Case $aPics[3]
MsgBox(0, "Test", "Group1Icon4")
Case $aPics[4]
MsgBox(0, "Test", "Group1Icon5")
Case $aPics[5]
MsgBox(0, "Test", "Group1Icon6")
Case $aPics[6]
MsgBox(0, "Test", "Group1Icon7")
Case $aPics[7]
MsgBox(0, "Test", "Group1Icon8")
EndSwitch
EndFunc
Func _Group2()
Switch @GUI_CTRLID
Case $aPics2[0]
run ("notepad")
;MsgBox(0, "Test", "Group1Icon1")
Case $aPics2[1]
MsgBox(0, "Test", "Group1Icon2")
Case $aPics2[2]
MsgBox(0, "Test", "Group1Icon3")
Case $aPics2[3]
MsgBox(0, "Test", "Group1Icon4")
Case $aPics2[4]
MsgBox(0, "Test", "Group1Icon5")
Case $aPics2[5]
MsgBox(0, "Test", "Group1Icon6")
Case $aPics2[6]
MsgBox(0, "Test", "Group1Icon7")
Case $aPics2[7]
MsgBox(0, "Test", "Group1Icon8")
EndSwitch
EndFunc
Func _Group3()
Switch @GUI_CTRLID
Case $aPics3[0]
run ("notepad")
;MsgBox(0, "Test", "Group1Icon1")
Case $aPics3[1]
MsgBox(0, "Test", "Group1Icon2")
Case $aPics3[2]
MsgBox(0, "Test", "Group1Icon3")
Case $aPics3[3]
MsgBox(0, "Test", "Group1Icon4")
Case $aPics3[4]
MsgBox(0, "Test", "Group1Icon5")
Case $aPics3[5]
MsgBox(0, "Test", "Group1Icon6")
Case $aPics3[6]
MsgBox(0, "Test", "Group1Icon7")
Case $aPics3[7]
MsgBox(0, "Test", "Group1Icon8")
EndSwitch
EndFunc
Func _Group4()
Switch @GUI_CTRLID
Case $aPics4[0]
run ("notepad")
;MsgBox(0, "Test", "Group1Icon1")
Case $aPics4[1]
MsgBox(0, "Test", "Group1Icon2")
Case $aPics4[2]
MsgBox(0, "Test", "Group1Icon3")
Case $aPics4[3]
MsgBox(0, "Test", "Group1Icon4")
Case $aPics4[4]
MsgBox(0, "Test", "Group1Icon5")
Case $aPics4[5]
MsgBox(0, "Test", "Group1Icon6")
Case $aPics4[6]
MsgBox(0, "Test", "Group1Icon7")
Case $aPics4[7]
MsgBox(0, "Test", "Group1Icon8")
EndSwitch
EndFunc
Func _Group5()
Switch @GUI_CTRLID
Case $aPics5[0]
run ("notepad")
;MsgBox(0, "Test", "Group1Icon1")
Case $aPics5[1]
MsgBox(0, "Test", "Group1Icon2")
Case $aPics5[2]
MsgBox(0, "Test", "Group1Icon3")
Case $aPics5[3]
MsgBox(0, "Test", "Group1Icon4")
Case $aPics5[4]
MsgBox(0, "Test", "Group1Icon5")
Case $aPics5[5]
MsgBox(0, "Test", "Group1Icon6")
Case $aPics5[6]
MsgBox(0, "Test", "Group1Icon7")
Case $aPics5[7]
MsgBox(0, "Test", "Group1Icon8")
EndSwitch
EndFunc
Func deselect()
if $notthis <> "Chat" Then GUICtrlSetState($Chat_makiert, $GUI_HIDE)
if $notthis <> "Chat" Then GUICtrlSetState($Chat, $GUI_SHOW)
if $notthis <> "Chat" Then
For $i = 0 To 7
GUICtrlSetState($aPics[$i], $GUI_HIDE)
Next
EndIf
if $notthis <> "Internet" Then GUICtrlSetState($Internet_makiert, $GUI_HIDE)
if $notthis <> "Internet" Then GUICtrlSetState($Internet, $GUI_SHOW)
if $notthis <> "Internet" Then
For $i = 0 To 7
GUICtrlSetState($aPics2[$i], $GUI_HIDE)
Next
EndIf
if $notthis <> "Player" Then GUICtrlSetState($Player_makiert, $GUI_HIDE)
if $notthis <> "Player" Then GUICtrlSetState($Player, $GUI_SHOW)
if $notthis <> "Player" Then
For $i = 0 To 7
GUICtrlSetState($aPics3[$i], $GUI_HIDE)
Next
EndIf
if $notthis <> "Spiele" Then GUICtrlSetState($Spiele_makiert, $GUI_HIDE)
if $notthis <> "Spiele" Then GUICtrlSetState($Spiele, $GUI_SHOW)
if $notthis <> "Spiele" Then
For $i = 0 To 7
GUICtrlSetState($aPics4[$i], $GUI_HIDE)
Next
EndIf
if $notthis <> "Sonstiges" Then GUICtrlSetState($Sonstiges_makiert, $GUI_HIDE)
if $notthis <> "Sonstiges" Then GUICtrlSetState($Sonstiges, $GUI_SHOW)
if $notthis <> "Sonstiges" Then
For $i = 0 To 7
GUICtrlSetState($aPics5[$i], $GUI_HIDE)
Next
EndIf
EndFunc
While 1
Sleep(1000) ; Idle around
WEnd
Func CLOSEClicked()
Exit
EndFunc
Könnt das ja mal bewerten und rat schläge geben wo ich was vlt. verbessern könnte.
Jetzt ist nur noch die Frage, wie ich den Skin des Fenster verändern kann.
Ich möchte mich bei allen bedanken die mir bis hier hin schon geholfen haben.
MFG
*bad boy*
Guten Tag,
ich habe eine Frage:
Wie kann ich AutoIT sagen, das es den Arbeitsplatz, Eigene Datei, Systemsteuerung und Netzwerkumgebung öffnen? Am Besten unter Win7 und XP.
Ich danke schonmal im vorraus.
MFG
*bad boy*
So:
[autoit]
ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") ; Arbeitsplatz
ShellExecute(@UserProfileDir) ; eigene Dateien
ShellExecute("::{21EC2020-3AEA-1069-A2DD-08002b30309d}") ; Systemsteuerung
ShellExecute("::{208D2C60-3AEA-1069-A2D7-08002B30309D}") ; Netzwerkumgebung
Cool, danke^^
Jetzt noch ne Frage, wie kann ich AutoIT dazu bringen das es mit PNG's arbeitet?
Schau dir das 3. Beispiel zu
[autoit]guictrlcreatepic
[/autoit]an, da wird gezeigt wie man PNG-Files auf einer GUI darstellt,
mfg autoBert
Jetzt habe ich ein Problem mit dem Öffnen der Systemsteuerung unter Win 7.
Bei XP habe ich gemerkt das es eine Einstellungssache ist, ob der in der klassischen Ansicht startet oder in der kategorischen Ansicht. Bei Win 7 startet der in der klassischen Ansicht, und das möchte ich nicht.
Wie könnte ich das lösen?
MFG
*bad boy*
@Larusso: das habe ich ja schon über einen ShellExecute Befehl versucht, bei Win 7 geht er trotzdem in die klassischen Ansicht.
#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
[/autoit][autoit][/autoit][autoit];Fenster Titel und Größe angeben
$mainwindow = GUICreate("Test", 680, 560)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateTab(5, 5, 670, 550)
;GUICtrlCreateTab(5, 5, 670, 550,-1,$TCS_MULTILINE $TCS_RIGHTJUSTIFY )
GUICtrlCreateTabItem("Chat")
;GUICtrlCreatePic("Blaue.jpg", 100, 100, 100, 100)
$Input = GUICtrlCreateInput("", 10, 35, 300, 20)
$Button = GUICtrlCreateButton("Speichern", 20, 55)
GUISetOnEvent($Button, "Button")
#cs
Func Button()
;FileWrite("Test.txt", $Input)
MsgBox(0,"test","test",2)
EndFunc
#ce
GUICtrlCreateTabItem("Internet")
;GUICtrlCreatePic("Feuer.jpg", 100, 100, 100, 100)
GUICtrlCreateTabItem("Player")
;GUICtrlCreatePic("Sonne.jpg", 100, 100, 100, 100)
GUICtrlCreateTabItem("Spiele")
;GUICtrlCreatePic("Wasser.jpg", 100, 100, 100, 100)
GUICtrlCreateTabItem("Sonstiges")
;GUICtrlCreatePic("Winter.jpg", 100, 100, 100, 100)
GUISetState()
[/autoit][autoit][/autoit][autoit]Func Button()
FileWrite("C:/Test.txt", $Input)
MsgBox(0,"test","test",2)
EndFunc
While 1
Sleep(1000) ; Idle around
WEnd
Func CLOSEClicked()
Exit
EndFunc
Hy,
also bei mir macht er damit die Kategorienansicht auf. ( und auch bei anderen )
Hast du auch auf KateogrienAnsicht in der Systemsteuerung selbst eingestellt ?.
Quasi wenn Du diese von Hand öffnest
Nop, an Win 7 habe ich keine Einstellungen desgleichen vorgenommen. Wie schon gesagt ist es bei XP ne Einstellungssache, ob er die klassische Ansicht oder die kategorische Ansicht öffnet.
So, habe das gerade mal an meinem Win 7 ausprobiert und da funktioniert es wenn ich
[autoit]ShellExecute("runDll32.exe", "shell32.dll,Control_RunDLL")
[/autoit]
benutzte.
Wenn ich aber diese Version benutzte
[autoit]ShellExecute("::{21EC2020-3AEA-1069-A2DD-08002b30309d}")
[/autoit]
öffnet es mir die Systemsteuerung in der klassichen Ansicht.
Ich glaube das Prob ist damit erstmals behoben.
So jetzt kommt das nächste.^^
Ich habe mir überlegt das es Anwendungsfreundlicher und besser für Andere User wäre, wenn man über eine Textdatei bestimmen könnte, welche Bilder und Programme aufgerufen werden sollen. Das mit den Bildern einfügen haben wir schon geschafft, aber wenn wir jetzt eine Funktion ausführen wollen, kommt diese Fehler meldung.
\\Bad-maschine\spiel\Hauptprogramm2\Hauptprogramm2.au3 (68) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
if $aPics[$i] = @GUI_CTRLID Then
if ^ ERROR
Wei vlt. einer was falsch gelaufen ist?
#include <GUIConstantsEx.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
;Fenster Titel und Größe angeben
$mainwindow = GUICreate("Test", 680, 560)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$mydata = ""
$open = FileOpen("C:/Test.txt",0)
While 1
$Read = FileRead($open,1)
If @error = -1 Then ExitLoop
$mydata = ($mydata&$Read)
Wend
[/autoit] [autoit][/autoit] [autoit]$mydata = StringSplit($mydata,";",0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $aPics = ""
$ypos= (10)
$i = 0
$i2 = 0
$myend = UBound($mydata, 1) - 2
for $i = 1 to $myend
$derdatensatz = StringSplit($mydata[$i],",",0)
[/autoit] [autoit][/autoit] [autoit]$bildpfad = $derdatensatz[3]
$dateipfad =$derdatensatz[2]
$buttontyp =$derdatensatz[1]
if $buttontyp = "chat" then
$i2 = $i2 + 1
if $i2 >= 5 Then
$ypos = $ypos + 110
$i2 = (1)
EndIf
$aPics = $aPics & GUICtrlCreatePic($bildpfad, 10 + 110 * $i2, $ypos, 100, 100) & ","
GUICtrlSetOnEvent(-1, "_Group")
GUISetState()
EndIf
Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel($aPics, 10,10)
$aPics = StringSplit($aPics,",",0)
GUISetState()
Func _Group()
$i = 0
for $i = 1 to $myend
$derdatensatz = StringSplit($mydata[$i],",",0)
[/autoit] [autoit][/autoit] [autoit]$bildpfad = $derdatensatz[3]
$dateipfad =$derdatensatz[2]
$buttontyp =$derdatensatz[1]
if $aPics[$i] = @GUI_CTRLID Then
run("notepad")
EndIf
Next
EndFunc
While 1
Sleep(1000) ; Idle around
WEnd
Func CLOSEClicked()
Exit
EndFunc
MFG
*bad boy*
Wozu soll denn das dienen?
[autoit]$aPics = $aPics & GUICtrlCreatePic($bildpfad, 10 + 110 * $i2, $ypos, 100, 100) & ","
[/autoit]
Damit fügst du doch einen Wert zu und überschreibst das Array.
Ich habe es ja schon auf verschieden Wegen versucht, bis jetzt ist mir aber noch keine Lösung eingefallen.
Hey,
ich habe jetzt auch einen Kollegen um Hilfe gefragt, der ein wenig mehr, ok viel mehr Ahnung vom Coden hat und auch diese logische Denke, welches mir noch fehlt^^ und der weiß auch net weiter. Hat einer von euch eine Idee, wie ich das Problem beheben könnte? Wäre sehr hilfreich.
MFG
*bad boy*
Versuch erstmal dies.
#include <GUIConstantsEx.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
[/autoit] [autoit][/autoit] [autoit]Global $aPics, $mydata
Global $open = FileOpen("C:/Test.txt", 0)
While 1
$Read = FileRead($open, 1)
If @error = -1 Then ExitLoop
$mydata &= $Read
WEnd
$mydata = StringSplit($mydata, ";", 0)
$hGui = GUICreate("Test", 680, 560)
_CreatePics()
;~ GUICtrlCreateLabel($aPics, 10, 10)
;~ $aPics = StringSplit($aPics, ",", 0)
GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100) ; Idle around
WEnd
Func _CreatePics()
Local $aData, $sButtontype, $sPathFile, $sPathPic
Local $i2 = -1
Local $yPos = 10
For $i = 1 To UBound($mydata) - 1
$aData = StringSplit($mydata[$i], ",", 0)
$sButtontype = $aData[1]
$sPathFile = $aData[2]
$sPathPic = $aData[3]
If $sButtontype = "chat" Then
$i2 += 1
If $i2 = 5 Then
$yPos += 110
$i2 = 0
EndIf
$aPics[$i2] = GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
GUICtrlSetOnEvent(-1, "_Group")
EndIf
Next
EndFunc ;==>_CreatePics
Func _Group()
Local $aData, $sButtontype, $sPathFile, $sPathPic
For $i = 1 To UBound($mydata) - 1
$aData = StringSplit($mydata[$i], ",", 0)
$sButtontype = $aData[1]
$sPathFile = $aData[2]
$sPathPic = $aData[3]
If $aPics[$i - 1] = @GUI_CtrlId Then Run("Notepad.exe")
Next
EndFunc ;==>_Group
Func _Exit()
Exit
EndFunc ;==>_Exit