Beiträge von bad boy

*bad boy* · 17. September 2019

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

*bad boy* · 16. September 2019

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.

*bad boy* · 16. September 2019

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

*bad boy* · 8. Oktober 2010

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

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

AutoIt Version: 3.3.6.1
Author: *bad boy*

Script Function:
Template AutoIt script.

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

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

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

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

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

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

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

;Oberkategorien

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

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

;Funktion von Chat
Func Chat()

;Wertangabe
$notthis = "Chat";

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

EndFunc

;Funktion von Internet
Func Internet()

;Wertangabe
$notthis = "Internet";

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

EndFunc

;Funktion von Player
Func Player()

;Wertangabe
$notthis = "Player";

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

EndFunc

;Funktion von Spiele
Func Spiele()

;Wertangabe
$notthis = "Spiele";

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

EndFunc

;Funktion von Sonstiges
Func Sonstiges()

;Wertangabe
$notthis = "Sonstiges";

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

EndFunc

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

;Funktion von Arbeitsplatz
Func Arbeitsplatz()

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

;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

;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

;Funktion von Netzwerkumgebung
Func Netzwerkumgebung()

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

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

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

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

While 1
Sleep(1000) ; Idle around
WEnd

Func CLOSEClicked()
Exit
EndFunc

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*

*bad boy* · 3. Oktober 2010

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*

*bad boy* · 2. Oktober 2010

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

*bad boy* · 1. Oktober 2010

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

ShellExecute("runDll32.exe", "shell32.dll,Control_RunDLL")
benutzte.

Wenn ich aber diese Version benutzte

ShellExecute("::{21EC2020-3AEA-1069-A2DD-08002b30309d}")
ö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

Wei vlt. einer was falsch gelaufen ist?

Spoiler anzeigen

MFG

*bad boy*

*bad boy* · 1. Oktober 2010

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

AutoIt Version: 3.3.6.1
Author: myName

Script Function:
Template AutoIt script.

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

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

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

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

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

While 1
Sleep(1000) ; Idle around
WEnd

Func CLOSEClicked()
Exit
EndFunc

*bad boy* · 1. Oktober 2010

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

*bad boy* · 30. September 2010

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*

*bad boy* · 29. September 2010

Cool, danke^^

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

*bad boy* · 29. September 2010

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*

*bad boy* · 27. September 2010

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

Spoiler anzeigen

#include <GUIConstantsEx.au3>

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

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

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

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

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

;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

;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

;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

;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

;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

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*

*bad boy* · 27. September 2010

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.

*bad boy* · 26. September 2010

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

*bad boy* · 23. September 2010

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.

*bad boy* · 23. September 2010

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

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

$aPics[$i]

Ohne das $i nimmt er das Ohne Probleme.

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

Spoiler anzeigen

#include <GUIConstantsEx.au3>

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

;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
$aPics = GUICtrlCreatePic($aFilenamePics[$i], 120 + 110 * $i, 10, 100, 100)
;GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetOnEvent(-1, "_Group1")
Next

#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()

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

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

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

*bad boy* · 22. September 2010

So, habe das jetzt so umgesetzt.

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

Ich glaube daran ist nichts falsch.

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

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

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

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

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.

*bad boy* · 22. September 2010

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.

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

*bad boy* · 21. September 2010

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*

Beiträge von bad boy

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

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

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

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe

Umsetztungshilfe