mal ein beispiel, bei fragen bitte melden:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <array.au3>
Const $SS_REALSIZEIMAGE = 0x800
Dim $arr[1]
$pfad = "e:\Bilder"
$comments = $pfad & "\comments.ini"
$search = FileFindFirstFile($pfad & "\" & "*.jp*g")
$curIndex = 1
If $search = -1 Then
MsgBox(0, "Fehler", "Es konnten keine Bilder gefunden werden!!")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_ArrayAdd($arr,$file)
WEnd
FileClose($search)
$arr[0] = UBound($arr) -1
_ArrayDisplay($arr)
#Region ### START Koda GUI section ### Form=
$frmMain = GUICreate("Bildbeschreiber.....", 489, 434, 899, 382)
$Pic1 = GUICtrlCreatePic($pfad & "\" & $arr[1], 16, 24, 454, 100, BitOR($SS_NOTIFY, $SS_REALSIZEIMAGE, $WS_GROUP, $WS_CLIPSIBLINGS))
$txtComment = GUICtrlCreateEdit("", 16, 168, 454, 193)
_ChangeImg()
$cmdBack = GUICtrlCreateButton("<<", 184, 136, 49, 25, 0)
$cmdNext = GUICtrlCreateButton(">>", 248, 136, 49, 25, 0)
$cmdSaveComment = GUICtrlCreateButton("Kommentar speichern", 16, 368, 457, 25, 0)
$cmdClose = GUICtrlCreateButton("Beenden", 16, 400, 457, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdClose
Exit
Case $cmdBack
_Prev()
Case $cmdNext
_Next()
Case $cmdSaveComment
IniWrite($comments,"comments",$arr[$curIndex],StringReplace(GUICtrlRead($txtComment),@CRLF,"|"))
EndSwitch
WEnd
Func _Next()
If $curIndex < $arr[0] Then
$curIndex += 1
Else
$curIndex = 1
EndIf
_ChangeImg()
EndFunc
Func _Prev()
If $curIndex > 1 Then
$curIndex -= 1
Else
$curIndex = $arr[0]
EndIf
_ChangeImg()
EndFunc
Func _ChangeImg()
GUICtrlDelete($Pic1)
$Pic1 = GUICtrlCreatePic($pfad & "\" & $arr[$curIndex], 16, 24, 454, 100, BitOR($SS_NOTIFY, $SS_REALSIZEIMAGE, $WS_GROUP, $WS_CLIPSIBLINGS))
$str = IniRead($comments,"comments",$arr[$curIndex],"")
$str = StringReplace($str,"|",@CRLF)
GUICtrlSetData($txtComment,$str)
EndFunc
lesen könne die meisten hier, aber warum sollten wir das machen, wenn ich mir das anschaue da bekomme ich eigentlich nur Augenkrebs. Außerdem ist das der Bereich Hilfe und nicht der Bereich für Jobs, wenn du einen Job zu vergeben hast, dann mach das auch, ich finde es etwas dreist einfach mal so ein Skript rein zu schupsen und mach mal zu rufen.
