Hallo....
ich möchte eine GUI schreiben, die sämtliche Bilder in einem bestimmten verzeichnis nacheinander anzeigt.
dazu will ich für jedes angezeigte bild eine kommentarfunktion. das eingegebene Komentar soll nach der eingabe in eine ini datei oder ne andere gesepeichert werden. das belegen der buttons und das schreiben der ini-datei werde ich später festlegen.
mir gehts lediglich darum dass sich die gui öffnet, das erste gefundene bild angezeigt wird, ich ein kommentar eingeben kann. einen button klicke oder am besten in der inputbox enter drücke, der inhalt der inputbox einer variable übergeben wird. wenn das erledigt ist beginnt es von vorne. also nächste gefundenes bild soll angezeigt werden und etc.
hab zwei scripte geschrieben.
das eine sucht im verzeichnis jede bilddatei und übergibt mir den dateinamen (ohne verzeichnisname).
das zweite script ist die gui, die mittels einer vorgebeben-pfad-variable und datei-variable ein bild in der gui anzeigt.
habs es deswegen erstmal in 2 scripte geschrieben, damit ich die funktionen besser testen kann.
nun kommt der, für mich, schwierige teil... das verschmelzen der scripte.
das schreiben des kommentares, die belegung der buttons sind nicht wichtig!!
nun endlich das mal bisher erstellte script.
#include <GUIConstants.au3>
Const $SS_REALSIZEIMAGE = 0x800
$pfad = "C:\Bilder"
$search = FileFindFirstFile($pfad & "\" & "*.jp*g")
If $search = -1 Then
MsgBox(0, "Fehler", "Es konnten keine Bilder gefunden werden!!")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
$Form1 = GUICreate("Form1", 721, 477, -1, -1)
$Pic1 = GUICtrlCreatePic($pfad & "\" & $file, -1, -1, 454, 64, BitOR($SS_NOTIFY, $SS_REALSIZEIMAGE, $WS_GROUP, $WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("", 308, 328, 113, 21)
$Button1 = GUICtrlCreateButton("Kommentar speichern", 232, 384, 97, 33, 0)
$Button2 = GUICtrlCreateButton("Beenden", 392, 384, 113, 33, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
WEnd
FileClose($search)
[/autoit][autoit][/autoit][autoit][/autoit]