1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. *bad boy*

Beiträge von *bad boy*

  • Datenbank <-> Programm -> Word -- Hilfe --

    • *bad boy*
    • 17. September 2019 um 07:54

    Danke Banana,

    deine Idee ist nicht schlecht wenn es sich um ein normalen Brief handelt, aber ich meinem Fall ist es ja ein Dokument wie dieses welches an den Entsprechenden Stellen mit "Platzhaltern" versehen ist.

    [Blockierte Grafik: https://www.elternzeit.de/wp-content/uploads/2019/01/kindergeldantrag-ausdrucken-737x1024.jpg]

    Eine Idee, die ich mal versuchen werde, ist mit dem WordMacroRun ein Makro in der Datei zustarten wwelches dann die Datenquelle auswählt z.B. die Datenbanktabelle "Druck".

  • Datenbank <-> Programm -> Word -- Hilfe --

    • *bad boy*
    • 16. September 2019 um 14:36

    Naja, diese UDF habe ich mir bereits angeguckt, aber ich glaub nicht, das dies das richtige für mich ist.

    Ich sehe das folgende Punkte erledigt werden sollte:

    1. Es müsste die Datenquelle weiter geben werden (Textdokument oder Tabelle aus der Datenbank)

    2. Es müssen die Variablen übereinstimmen

    Ich kenne mich leider zu schlecht mit Word aus, um zu wissen wie man diesem von Extern diese Daten zu übergeben.

  • Datenbank <-> Programm -> Word -- Hilfe --

    • *bad boy*
    • 16. September 2019 um 13:56

    Guten Tag,

    ich habe mir ein Programm überlegt, welches ich gerne schreiben möchte, nur bin ich bei diesem bereits vor dem schreiben auch nur einer Zeile Code auf ein Problem gestoßen und dabei hoffe ich, das Ihr mihelfen könnt.

    Erstmal möchte ich die Idee erklären:

    Es soll eine Datenbank geben, in der Daten in Form von Personaldaten und Zeiträumen gespeichert werden soll. Ein Programm, welches ich schreibe, soll die Bearbeitung bzw das Anlegen neuer Personen oder Zeiträumen vereinfachen. Jetzt kommt der Knackpunkt. Die Daten sollen an einen vorgefertigtes Worddokument über geben werden, welches diese dann im Serienbriefverfahren abarbeitet.

    Das Auslesen der Datenbank bzw die Datensatzmanipulation ist kein großes Ding, das kriege ich hin.

    Die größere bzw wichtiger Frage ist, wie kann ich die Daten an Word übergeben?

    Klar könnte ich über Access direkt einen Serienbrief in Word starten, aber der ganze Vorgang soll halt ohne großen Einfluss des Benutzers ablaufen.

    Das Worddokument ist mit festgelegten Variablen vorgefertigt und kann nicht geändert werden.

    Ich hoffe meine Ausfertigungen sind verständlich und das Ihr mir helfen könnt.

    Vielen Dank im Vorraus


    Marc

  • Umsetztungshilfe

    • *bad boy*
    • 8. Oktober 2010 um 11:12

    So, das ist jetzt die zweite Beta Version meines Programmes^^. Die Bilder und die Pade zu den Anwendungen werden jetzt aus einer Testdatenbank gelesen, was dieses Programm ein wenig User freundlicher macht.

    Hier der Code:

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.6.1
    Author: *bad boy*

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

    Script Function:
    Template AutoIt script.

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

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

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

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

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

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

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

    $hGui = GUICreate("Test", 680, 560)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

    ;Definetion der Variablen
    Global $notthis = (0)
    Global $aPics1, $aPics2, $aPics3, $aPics4, $aPics5
    Global $mydata
    Global $open = FileOpen("C:/Test2.txt", 0)

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

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

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

    $mydata = StringSplit($mydata, ";", 0)

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

    ;Oberkategorien

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

    ;Kategorie Chat erstellen und Funktion zuweisen
    $Chat = GUICtrlCreatePic("C:/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")
    ;Arbeitsplatz erstellen und Funktion zuweisen
    $Arbeitsplatz = GUICtrlCreatePic("Blaue.jpg", 560, 10, 100, 100)
    GUICtrlSetOnEvent($Arbeitsplatz, "Arbeitsplatz")
    ;Eigene Datein erstellen und Funktion zuweisen
    $Eigene_Datein = GUICtrlCreatePic("Blaue.jpg", 560, 120, 100, 100)
    GUICtrlSetOnEvent($Eigene_Datein, "EigeneDatein")
    ;Systemsteuerung erstellen und Funktion zuweisen
    $Systemsteuerung = GUICtrlCreatePic("Blaue.jpg", 560, 230, 100, 100)
    GUICtrlSetOnEvent($Systemsteuerung, "Systemsteuerung")
    ;Netzwerkumgebung erstellen und Funktion zuweisen
    $Netzwerkumgebung = GUICtrlCreatePic("Blaue.jpg", 560, 340, 100, 100)
    GUICtrlSetOnEvent($Netzwerkumgebung, "Netzwerkumgebung")

    [/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)

    Call ("_CreatePics")

    GUISetState()

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

    ;Funktion von Chat
    Func Chat()

    ;Wertangabe
    $notthis = "Chat";

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

    ;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
    $myend = UBound($aPics1, 1) -1
    For $i = 0 To $myend
    GUICtrlSetState($aPics1[$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()

    ;Wertangabe
    $notthis = "Internet";

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

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

    ;Macht die Untergruppe Internet sichtbar
    $myend = UBound($aPics2, 1) -1
    For $i = 0 To $myend
    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]

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

    ;Macht die Untergruppe Player sichtbar
    $myend = UBound($aPics3, 1) -1
    For $i = 0 To $myend
    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()

    ;Wertangabe
    $notthis = "Spiele";

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

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

    ;Macht die Untergruppe Spiele sichtbar
    $myend = UBound($aPics4, 1) -1
    For $i = 0 To $myend
    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()

    ;Wertangabe
    $notthis = "Sonstiges";

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

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

    ;Macht die Untergruppe Sonstiges sichtbar
    $myend = UBound($aPics5, 1) -1
    For $i = 0 To $myend
    GUICtrlSetState($aPics5[$i], $GUI_SHOW)
    Next

    ;Ruft die Funktion deselect auf
    call ("deselect")

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

    EndFunc

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

    Func _chat()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    ;-------------------------- 1 Rubrik

    $abc = 1
    $myend2 = UBound($mydata, 1) -2
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "chat" Then
    $abc = $abc + 1
    EndIf
    next

    dim $chatliste[$abc]
    $abc = 1
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "chat" Then
    $chatliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next


    $myend = UBound($aPics1, 1) -2
    For $i = 1 To $myend
    $aData = StringSplit($chatliste[$i], ",",0)

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

    If $aPics1[$i] = @GUI_CtrlId Then ShellExecute($sPathFile)


    Next
    ;--------------------------- Rubrikende
    EndFunc

    Func _internet()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    ;-------------------------- 1 Rubrik

    $abc = 1
    $myend2 = UBound($mydata, 1) -2
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "internet" Then
    $abc = $abc + 1
    EndIf
    next

    dim $internetliste[$abc]
    $abc = 1
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "internet" Then
    $internetliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next


    $myend = UBound($aPics2, 1) -2
    For $i = 1 To $myend
    $aData = StringSplit($internetliste[$i], ",",0)

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


    If $aPics2[$i] = @GUI_CtrlId Then ShellExecute($sPathFile)


    Next
    ;--------------------------- Rubrikende
    EndFunc

    Func _player()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    ;-------------------------- 1 Rubrik

    $abc = 1
    $myend2 = UBound($mydata, 1) -2
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "player" Then
    $abc = $abc + 1
    EndIf
    next

    dim $playerliste[$abc]
    $abc = 1
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "player" Then
    $playerliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next


    $myend = UBound($aPics3, 1) -2
    For $i = 1 To $myend
    $aData = StringSplit($playerliste[$i], ",",0)

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


    If $aPics3[$i] = @GUI_CtrlId Then ShellExecute($sPathFile)


    Next
    ;--------------------------- Rubrikende
    EndFunc

    Func _spiele()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    ;-------------------------- 1 Rubrik

    $abc = 1
    $myend2 = UBound($mydata, 1) -2
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "spiele" Then
    ;GUICtrlCreateLabel($mydata[2], 10,10)
    ;$chatliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next

    dim $spieleliste[$abc]
    $abc = 1
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "spiele" Then
    $spieleliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next


    $myend = UBound($aPics4, 1) -2
    For $i = 1 To $myend
    $aData = StringSplit($spieleliste[$i], ",",0)

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


    If $aPics4[$i] = @GUI_CtrlId Then ShellExecute($sPathFile)

    Next
    ;--------------------------- Rubrikende
    EndFunc

    Func _sonstiges()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    ;-------------------------- 1 Rubrik

    $abc = 1
    $myend2 = UBound($mydata, 1) -2
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "sonstiges" Then
    ;GUICtrlCreateLabel($mydata[2], 10,10)
    ;$chatliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next

    dim $sonstigesliste[$abc]
    $abc = 1
    For $i = 1 To $myend2
    $aData = StringSplit($mydata[$i], ",",0)
    If $aData[1] = "sonstiges" Then
    $sonstigesliste[$abc] = $mydata[$i]
    $abc = $abc + 1
    EndIf
    next


    $myend = UBound($aPics5, 1) -2
    For $i = 1 To $myend
    $aData = StringSplit($sonstigesliste[$i], ",",0)

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


    If $aPics5[$i] = @GUI_CtrlId Then ShellExecute($sPathFile)


    Next
    ;--------------------------- Rubrikende
    EndFunc

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

    ;Funktion von Arbeitsplatz
    Func Arbeitsplatz()

    ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
    EndFunc

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

    ;Funktion von Eigene Datein
    Func EigeneDatein()

    If @OSVersion = "WIN_XP" Then
    ShellExecute(@MyDocumentsDir)
    ElseIf @OSVersion = "WIN_7" Then
    ShellExecute(@UserProfileDir)
    ElseIf @OSVersion = "WIN_VISTA" Then
    ShellExecute(@UserProfileDir)
    EndIf
    ;ShellExecute(@MyDocumentsDir) ;XP
    ;ShellExecute(@UserProfileDir) ;Win7
    EndFunc

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

    ;Funktion von Systemsteuerung
    Func Systemsteuerung()
    ;Send("#r")
    ;WinWaitActive("Ausführen")
    ;Send("RunDll32.exe shell32.dll,Control_RunDLL")
    ;ShellExecute("RunDll32.exe, shell32.dll,Control_RunDLL")
    ;Send("Enter")

    ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL"); XP
    ;ShellExecute("::{21EC2020-3AEA-1069-A2DD-08002b30309d}")
    EndFunc

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

    ;Funktion von Netzwerkumgebung
    Func Netzwerkumgebung()

    ShellExecute("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
    EndFunc

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

    ;------------------------------------Erstellung der Untergruppen--------------------------------------------
    Func _CreatePics()
    Local $aData, $sButtontype, $sPathFile, $sPathPic
    Local $i2 = (0)
    Local $yPos = (10)
    Local $myend = UBound($mydata, 1) -2

    For $i = 1 to $myend

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

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

    If $sButtontype = "chat" Then
    $i2 = $i2 + 1
    If $i2 > 4 Then
    $yPos = $yPos + 110
    $i2 = (1)
    EndIf

    if $i = $myend Then
    $aPics1 = $aPics1 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
    EndIf

    if $i < $myend Then
    $aPics1 = $aPics1 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100) & ","
    EndIf
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_chat")
    EndIf
    Next

    $i2 = (0)
    $yPos = (10)

    For $i = 1 to $myend

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

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

    If $sButtontype = "internet" Then
    $i2 = $i2 + 1
    If $i2 > 4 Then
    $yPos = $yPos + 110
    $i2 = (1)
    EndIf

    if $i = $myend Then
    $aPics2 = $aPics2 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
    EndIf

    if $i < $myend Then
    $aPics2 = $aPics2 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100) & ","
    EndIf
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_internet")
    EndIf
    Next

    $i2 = (0)
    $yPos = (10)

    For $i = 1 to $myend

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

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

    If $sButtontype = "player" Then
    $i2 = $i2 + 1
    If $i2 > 4 Then
    $yPos = $yPos + 110
    $i2 = (1)
    EndIf

    if $i = $myend Then
    $aPics3 = $aPics3 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
    EndIf

    if $i < $myend Then
    $aPics3 = $aPics3 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100) & ","
    EndIf
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_player")
    EndIf
    Next

    $i2 = (0)
    $yPos = (10)

    For $i = 1 to $myend

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

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

    If $sButtontype = "spiele" Then
    $i2 = $i2 + 1
    If $i2 > 4 Then
    $yPos = $yPos + 110
    $i2 = (1)
    EndIf

    if $i = $myend Then
    $aPics4 = $aPics4 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
    EndIf

    if $i < $myend Then
    $aPics4 = $aPics4 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100) & ","
    EndIf
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_spiele")
    EndIf
    Next

    $i2 = (0)
    $yPos = (10)

    For $i = 1 to $myend

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

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

    If $sButtontype = "sonstiges" Then
    $i2 = $i2 + 1
    If $i2 > 4 Then
    $yPos = $yPos + 110
    $i2 = (1)
    EndIf

    if $i = $myend Then
    $aPics5 = $aPics5 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100)
    EndIf

    if $i < $myend Then
    $aPics5 = $aPics5 & GUICtrlCreatePic($sPathPic, 10 + 110 * $i2, $yPos, 100, 100) & ","
    EndIf
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_sonstiges")
    EndIf
    Next

    $i2 = (0)
    $yPos = (10)

    EndFunc
    ;-------------------------------------------------Ende der Untergruppen-----------------------------------

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

    $aPics1 = StringSplit($aPics1, ",", 0)
    $aPics2 = StringSplit($aPics2, ",", 0)
    $aPics3 = StringSplit($aPics3, ",", 0)
    $aPics4 = StringSplit($aPics4, ",", 0)
    $aPics5 = StringSplit($aPics5, ",", 0)

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

    Func deselect()
    if $notthis <> "Chat" Then
    GUICtrlSetState($Chat_makiert, $GUI_HIDE)
    GUICtrlSetState($Chat, $GUI_SHOW)
    $myend = UBound($aPics1, 1) -1
    For $i = 1 To $myend
    GUICtrlSetState($aPics1[$i], $GUI_HIDE)
    Next
    EndIf
    if $notthis <> "Internet" Then
    GUICtrlSetState($Internet_makiert, $GUI_HIDE)
    GUICtrlSetState($Internet, $GUI_SHOW)
    $myend = UBound($aPics2, 1) -1
    For $i = 1 To $myend
    GUICtrlSetState($aPics2[$i], $GUI_HIDE)
    Next
    EndIf
    if $notthis <> "Player" Then
    GUICtrlSetState($Player_makiert, $GUI_HIDE)
    GUICtrlSetState($Player, $GUI_SHOW)
    $myend = UBound($aPics3, 1) -1
    For $i = 1 To $myend
    GUICtrlSetState($aPics3[$i], $GUI_HIDE)
    Next
    EndIf
    if $notthis <> "Spiele" Then
    GUICtrlSetState($Spiele, $GUI_SHOW)
    GUICtrlSetState($Spiele_makiert, $GUI_HIDE)
    $myend = UBound($aPics4, 1) -1
    For $i = 1 To $myend
    GUICtrlSetState($aPics4[$i], $GUI_HIDE)
    Next
    EndIf
    if $notthis <> "Sonstiges" Then
    GUICtrlSetState($Sonstiges_makiert, $GUI_HIDE)
    GUICtrlSetState($Sonstiges, $GUI_SHOW)
    $myend = UBound($aPics5, 1) -1
    For $i = 1 To $myend
    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]

    Jetzt möchte ich das man die Bilder in der mitte "Wegscrollen" kann und zwar via Button. Das heißt, wenn mehr als 20 Bilder eingeladen werden, soll ein Button erscheinen mit dem dann möglich ist, die Bilder nach oben oder unten zuverschieben, der Button war nicht das Problem, das ging über eine einfache If Funktion. Jetzt habe ich aber das Problem wie ich das mit der Umsetzt des Verschiebens mache. Denkbar wäre auch das die Bilder einfach unsichtbar werden. Aber wie mache ich das dann mit der Position? Naja werde darüber nochmals ein wenig nachdenken, wenn jemand ne Idee hat, bin offen für neues^^

    MFG

    *bad boy*

    Dateien

    Beta V2.rar 484,87 kB – 374 Downloads
  • Umsetztungshilfe

    • *bad boy*
    • 3. Oktober 2010 um 12:16

    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*

  • Umsetztungshilfe

    • *bad boy*
    • 2. Oktober 2010 um 12:52

    Ich habe es ja schon auf verschieden Wegen versucht, bis jetzt ist mir aber noch keine Lösung eingefallen.

  • Umsetztungshilfe

    • *bad boy*
    • 1. Oktober 2010 um 17:10

    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*

  • Umsetztungshilfe

    • *bad boy*
    • 1. Oktober 2010 um 11:52
    [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]
  • Umsetztungshilfe

    • *bad boy*
    • 1. Oktober 2010 um 10:15

    @Larusso: das habe ich ja schon über einen ShellExecute Befehl versucht, bei Win 7 geht er trotzdem in die klassischen Ansicht.

  • Umsetztungshilfe

    • *bad boy*
    • 30. September 2010 um 12:32

    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*

    Dateien

    Test23.rar 702,45 kB – 375 Downloads
  • Umsetztungshilfe

    • *bad boy*
    • 29. September 2010 um 18:06

    Cool, danke^^

    Jetzt noch ne Frage, wie kann ich AutoIT dazu bringen das es mit PNG's arbeitet?

  • Umsetztungshilfe

    • *bad boy*
    • 29. September 2010 um 16:30

    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*

  • Umsetztungshilfe

    • *bad boy*
    • 27. September 2010 um 14:27

    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*

    Dateien

    Test2.rar 661,42 kB – 384 Downloads
  • Umsetztungshilfe

    • *bad boy*
    • 27. September 2010 um 09:58

    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.

  • Umsetztungshilfe

    • *bad boy*
    • 26. September 2010 um 19:01

    Du meinst, für jede Zeile ein eingenes Array und ne For-Schleife, so würde ich dann jetzt machen^^

  • Umsetztungshilfe

    • *bad boy*
    • 23. September 2010 um 12:20

    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.

  • Umsetztungshilfe

    • *bad boy*
    • 23. September 2010 um 08:46

    Natürlich ist es einfach wenn man weiß wie es geht.

    Es gibt es nur das Problem das er diese Schreibeweise nicht akzeptiert.

    [autoit]

    $aPics[$i]

    [/autoit]

    Ohne das $i nimmt er das Ohne Probleme.


    So sieht das Skript für die Untergruppen jetzt aus.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    ;Global $Ar_Chat[4], $Ar_Internet[4], $Ar_Player[4], $Ar_Spiele[4], $Ar_Sonstiges[4]
    Global $aFilenamePics[4] = ["Blaue.jpg", "Blaue.jpg", "Blaue.jpg", "Blaue.jpg"]
    Opt("GUIOnEventMode", 1)

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

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

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

    For $i = 0 To 3
    $aPics = GUICtrlCreatePic($aFilenamePics[$i], 120 + 110 * $i, 10, 100, 100)
    ;GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_Group1")
    Next

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

    #cs
    For $i = 0 To 3
    ;$Ar_Chat[$i] = GUICtrlCreateIcon("shell32.dll", 5 * ($i + 1), 45, 60 + 40 * $i)
    $Ar_Chat[0] = GUICtrlCreatePic("Blaue.jpg", 120, 10, 100, 100)
    $Ar_Chat[1] = GUICtrlCreatePic("Blaue.jpg", 230, 10, 100, 100)
    $Ar_Chat[2] = GUICtrlCreatePic("Blaue.jpg", 340, 10, 100, 100)
    $Ar_Chat[3] = GUICtrlCreatePic("Blaue.jpg", 450, 10, 100, 100)
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_Group1")
    Next
    For $i = 0 To 3
    $Ar_Internet[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Player[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Spiele[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Sonstiges[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    #ce
    GUISetState()

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    #cs
    GUICtrlSetOnEvent($Ar_Chat, "_Chat")
    GUICtrlSetOnEvent($Ar_Internet, "_Internet")
    GUICtrlSetOnEvent($Ar_Player, "_Player")
    GUICtrlSetOnEvent($Ar_Spiele, "_Spiele")
    GUICtrlSetOnEvent($Ar_Sonstiges, "_Sonstiges")
    #ce
    #cs

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

    GUICtrlSetOnEvent($aIcons2[0], "_Group2Icon1")
    GUICtrlSetOnEvent($aIcons2[1], "_Group2Icon2")
    GUICtrlSetOnEvent($aIcons2[2], "_Group2Icon3")
    GUICtrlSetOnEvent($aIcons2[3], "_Group2Icon4")

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

    #ce
    While 1
    Sleep(100)
    WEnd
    #cs
    Func _Group1Show()
    For $i = 0 To UBound($aIcons1) - 1
    GUICtrlSetState($aIcons2[$i], $GUI_HIDE)
    GUICtrlSetState($aIcons1[$i], $GUI_SHOW)
    Next
    EndFunc

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

    Func _Group2Show()
    For $i = 0 To UBound($aIcons1) - 1
    GUICtrlSetState($aIcons1[$i], $GUI_HIDE)
    GUICtrlSetState($aIcons2[$i], $GUI_SHOW)
    Next
    EndFunc
    #ce
    Func _Group1()
    Switch @GUI_CTRLID
    Case $aPics[0]
    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")
    EndSwitch
    EndFunc
    #cs
    Func _Group2Icon1()
    MsgBox(0, "Test", "Group2Icon1")
    EndFunc

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

    Func _Group2Icon2()
    MsgBox(0, "Test", "Group2Icon2")
    EndFunc

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

    Func _Group2Icon3()
    MsgBox(0, "Test", "Group2Icon3")
    EndFunc

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

    Func _Group2Icon4()
    MsgBox(0, "Test", "Group2Icon4")
    EndFunc
    #ce
    Func _Exit()
    Exit
    EndFunc

    [/autoit]
  • Umsetztungshilfe

    • *bad boy*
    • 22. September 2010 um 12:19

    So, habe das jetzt so umgesetzt.

    [autoit]

    Global $aFilenamePics[4] = ["Blaue.jpg", "Blaue.jpg", "Blaue.jpg", "Blaue.jpg"]

    [/autoit]

    Ich glaube daran ist nichts falsch.

    Jetzt nur das Problem, wenn ich das so schreibe, bekomme ich Error:

    [autoit]

    For $i = 0 To 3
    $aPics[$i] = GUICtrlCreatePic($aFilenamePics[$i], 120, 10, 100,100, 230, 10, 100, 100)
    ;GUICtrlSetState(-1, $GUI_HIDE) ;wegen Test mal raus genommen.
    GUICtrlSetOnEvent(-1, "_Group1")
    Next

    [/autoit]

    Aber wen ich das so schreibe, sehe ich das Bild.

    [autoit]

    For $i = 0 To 3
    $aPics = GUICtrlCreatePic($aFilenamePics[$i], 120, 10, 100, 100)
    ;GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_Group1")
    Next

    [/autoit]

    Jetzt ist nur die Frage, wie kann ich den anderen Bildern, ich mit geladen werden, eine andere Position zuweisen.

    Das erste Bild erscheint 120 Pixel vom Rand entfernt, das nächste soll bei Pixel 230 erscheinen.

    @m-obi: Zur Zeit ist es immer das selbe Bild, will damit die Kategorien durch test, am Ende nartürlich sverschiedene rein kommen, dessen Name noch nicht festgelegt ist, also wäre auch eine aufzählung möglich.

  • Umsetztungshilfe

    • *bad boy*
    • 22. September 2010 um 09:46

    Genau, ich habe deine Hilfe nicht verstanden und das was ich verstanden habe, hast du ja gesehen.

    Was ich gesehen habe, du hast zwei verschiedene Möglichkeiten genutzt den Icons eine Funktion zuweißen.

    Jetzt ist nur die Frage wie ich die Zeile auf mich umschreiben kann.

    [autoit]

    $aIcons2[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)

    [/autoit]
  • Umsetztungshilfe

    • *bad boy*
    • 21. September 2010 um 15:59

    Cool danke, habe das mal ein wenig auf miach umgeschrieben, jetzt habe ich aber das Prob das die Bilder zwar angezeigt wird, nur das letzte wird wie Befehlen ausgeblendet.

    Spoiler anzeigen

    #include <GUIConstantsEx.au3>

    Global $Ar_Chat[4], $Ar_Internet[4], $Ar_Player[4], $Ar_Spiele[4], $Ar_Sonstiges[4]

    Opt("GUIOnEventMode", 1)

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

    ;Oberkategorien

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

    For $i = 0 To 3
    ;$Ar_Chat[$i] = GUICtrlCreateIcon("shell32.dll", 5 * ($i + 1), 45, 60 + 40 * $i)
    $Ar_Chat[0] = GUICtrlCreatePic("Blaue.jpg", 120, 10, 100, 100)
    $Ar_Chat[1] = GUICtrlCreatePic("Blaue.jpg", 230, 10, 100, 100)
    $Ar_Chat[2] = GUICtrlCreatePic("Blaue.jpg", 340, 10, 100, 100)
    $Ar_Chat[3] = GUICtrlCreatePic("Blaue.jpg", 450, 10, 100, 100)
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetOnEvent(-1, "_Group1")
    Next
    For $i = 0 To 3
    $Ar_Internet[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Player[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Spiele[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    For $i = 0 To 3
    $Ar_Sonstiges[$i] = GUICtrlCreateIcon("shell32.dll", 8 * ($i + 1), 145, 60 + 40 * $i)
    GUICtrlSetState(-1, $GUI_HIDE)
    Next
    GUISetState()

    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    GUICtrlSetOnEvent($Ar_Chat, "_Chat")
    GUICtrlSetOnEvent($Ar_Internet, "_Internet")
    GUICtrlSetOnEvent($Ar_Player, "_Player")
    GUICtrlSetOnEvent($Ar_Spiele, "_Spiele")
    GUICtrlSetOnEvent($Ar_Sonstiges, "_Sonstiges")
    #cs
    GUICtrlSetOnEvent($aIcons2[0], "_Group2Icon1")
    GUICtrlSetOnEvent($aIcons2[1], "_Group2Icon2")
    GUICtrlSetOnEvent($aIcons2[2], "_Group2Icon3")
    GUICtrlSetOnEvent($aIcons2[3], "_Group2Icon4")

    #ce
    While 1
    Sleep(100)
    WEnd
    #cs
    Func _Group1Show()
    For $i = 0 To UBound($aIcons1) - 1
    GUICtrlSetState($aIcons2[$i], $GUI_HIDE)
    GUICtrlSetState($aIcons1[$i], $GUI_SHOW)
    Next
    EndFunc

    Func _Group2Show()
    For $i = 0 To UBound($aIcons1) - 1
    GUICtrlSetState($aIcons1[$i], $GUI_HIDE)
    GUICtrlSetState($aIcons2[$i], $GUI_SHOW)
    Next
    EndFunc

    Func _Group1()
    Switch @GUI_CTRLID
    Case $aIcons1[0]
    MsgBox(0, "Test", "Group1Icon1")
    Case $aIcons1[1]
    MsgBox(0, "Test", "Group1Icon2")
    Case $aIcons1[2]
    MsgBox(0, "Test", "Group1Icon3")
    Case $aIcons1[3]
    MsgBox(0, "Test", "Group1Icon4")
    EndSwitch
    EndFunc

    Func _Group2Icon1()
    MsgBox(0, "Test", "Group2Icon1")
    EndFunc

    Func _Group2Icon2()
    MsgBox(0, "Test", "Group2Icon2")
    EndFunc

    Func _Group2Icon3()
    MsgBox(0, "Test", "Group2Icon3")
    EndFunc

    Func _Group2Icon4()
    MsgBox(0, "Test", "Group2Icon4")
    EndFunc
    #ce
    Func _Exit()
    Exit
    EndFunc

    Vlt. wisst Ihr ja was da Falsch gelaufen ist.

    MFG

    *bad boy*

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™