Umsetztungshilfe

  • Du erweiterst die Arrays und erhöhst die For-Next-Schleife oder machst gleich UBound rein, dann brauchst du nur die Arrays ändern.

  • So, soweit ist mein Programm jetzt fertig, jetzt gibt es nur noch Grafik aufgaben die ich erledigen.

    Spoiler anzeigen
    [autoit]

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

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

    Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

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

    Global $ypos= (10)
    Global $i2 = (1)

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

    ;Fenster Titel und Größe angeben
    $mainwindow = GUICreate("Test", 560, 560)

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

    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")

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

    ;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)

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

    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)

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

    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)

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

    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)

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

    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)

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

    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)

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

    GUISetState()

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

    ;Definetion der Variablen
    Global $notthis = (0)

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

    ;Funktion von Chat
    Func Chat()

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

    ;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")

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

    EndFunc

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

    ;Funktion von Internet
    Func Internet()

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

    ;Wertangabe
    $notthis = "Internet";

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

    ;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)

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

    For $i = 0 To 7
    GUICtrlSetState($aPics2[$i], $GUI_SHOW)
    Next
    ;Ruft die Funktion deselect auf
    call ("deselect")

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

    EndFunc

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

    ;Funktion von Player
    Func Player()

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

    ;Wertangabe
    $notthis = "Player";

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

    ;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)

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

    For $i = 0 To 7
    GUICtrlSetState($aPics3[$i], $GUI_SHOW)
    Next
    ;Ruft die Funktion deselect auf
    call ("deselect")

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

    EndFunc

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

    ;Funktion von Spiele
    Func Spiele()

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

    ;Wertangabe
    $notthis = "Spiele";

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

    ;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)

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

    For $i = 0 To 7
    GUICtrlSetState($aPics4[$i], $GUI_SHOW)
    Next
    ;Ruft die Funktion deselect auf
    call ("deselect")

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

    EndFunc

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

    ;Funktion von Sonstiges
    Func Sonstiges()

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

    ;Wertangabe
    $notthis = "Sonstiges";

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

    ;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)

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

    For $i = 0 To 7
    GUICtrlSetState($aPics5[$i], $GUI_SHOW)
    Next
    ;Ruft die Funktion deselect auf
    call ("deselect")

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

    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

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

    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

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

    While 1
    Sleep(1000) ; Idle around
    WEnd

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

    Func CLOSEClicked()
    Exit
    EndFunc

    [/autoit]

    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*

  • 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*

  • das liegt anscheinend an der shell selbst

    Eine Lösung was mir jetzt einfällt

    Code
    Func Systemsteuerung()
    	Send("#r")
    WinWaitActive("Ausführen")
    Send("RunDll32.exe shell32.dll,Control_RunDLL{Enter}")
    
    
    EndFunc

    mfg

  • [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #include <GUIConstantsEx.au3>
    #include <TabConstants.au3>

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

    Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

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

    ;Fenster Titel und Größe angeben
    $mainwindow = GUICreate("Test", 680, 560)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUICtrlCreateTab(5, 5, 670, 550)
    ;GUICtrlCreateTab(5, 5, 670, 550,-1,$TCS_MULTILINE $TCS_RIGHTJUSTIFY )

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

    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)

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

    GUICtrlCreateTabItem("Player")
    ;GUICtrlCreatePic("Sonne.jpg", 100, 100, 100, 100)

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

    GUICtrlCreateTabItem("Spiele")
    ;GUICtrlCreatePic("Wasser.jpg", 100, 100, 100, 100)

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

    GUICtrlCreateTabItem("Sonstiges")
    ;GUICtrlCreatePic("Winter.jpg", 100, 100, 100, 100)

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

    GUISetState()

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

    Func Button()
    FileWrite("C:/Test.txt", $Input)
    MsgBox(0,"test","test",2)
    EndFunc

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

    While 1
    Sleep(1000) ; Idle around
    WEnd

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

    Func CLOSEClicked()
    Exit
    EndFunc

    [/autoit]
  • 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

    Einmal editiert, zuletzt von Larusso (1. Oktober 2010 um 13:46)

  • 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.

    Spoiler anzeigen

    \\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?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <Array.au3>

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

    Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
    ;Fenster Titel und Größe angeben
    $mainwindow = GUICreate("Test", 680, 560)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

    $mydata = ""
    $open = FileOpen("C:/Test.txt",0)

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

    While 1
    $Read = FileRead($open,1)

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

    If @error = -1 Then ExitLoop
    $mydata = ($mydata&$Read)

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

    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

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

    $derdatensatz = StringSplit($mydata[$i],",",0)

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

    $bildpfad = $derdatensatz[3]
    $dateipfad =$derdatensatz[2]
    $buttontyp =$derdatensatz[1]

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

    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

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

    Next

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

    GUICtrlCreateLabel($aPics, 10,10)
    $aPics = StringSplit($aPics,",",0)
    GUISetState()

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

    Func _Group()
    $i = 0
    for $i = 1 to $myend

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

    $derdatensatz = StringSplit($mydata[$i],",",0)

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

    $bildpfad = $derdatensatz[3]
    $dateipfad =$derdatensatz[2]
    $buttontyp =$derdatensatz[1]

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

    if $aPics[$i] = @GUI_CTRLID Then
    run("notepad")
    EndIf

    Next
    EndFunc

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

    While 1
    Sleep(1000) ; Idle around
    WEnd

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

    Func CLOSEClicked()
    Exit
    EndFunc

    [/autoit]

    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.

  • 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.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <Array.au3>

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

    Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

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

    Global $aPics, $mydata
    Global $open = FileOpen("C:/Test.txt", 0)

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

    While 1
    $Read = FileRead($open, 1)
    If @error = -1 Then ExitLoop
    $mydata &= $Read
    WEnd
    $mydata = StringSplit($mydata, ";", 0)

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

    $hGui = GUICreate("Test", 680, 560)
    _CreatePics()
    ;~ GUICtrlCreateLabel($aPics, 10, 10)
    ;~ $aPics = StringSplit($aPics, ",", 0)
    GUISetState()

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

    While 1
    Sleep(100) ; Idle around
    WEnd

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

    Func _CreatePics()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    Local $i2 = -1
    Local $yPos = 10

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

    For $i = 1 To UBound($mydata) - 1
    $aData = StringSplit($mydata[$i], ",", 0)

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

    $sButtontype = $aData[1]
    $sPathFile = $aData[2]
    $sPathPic = $aData[3]

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

    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

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

    Func _Group()
    Local $aData, $sButtontype, $sPathFile, $sPathPic

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

    For $i = 1 To UBound($mydata) - 1
    $aData = StringSplit($mydata[$i], ",", 0)

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

    $sButtontype = $aData[1]
    $sPathFile = $aData[2]
    $sPathPic = $aData[3]

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

    If $aPics[$i - 1] = @GUI_CtrlId Then Run("Notepad.exe")
    Next
    EndFunc ;==>_Group

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]