Beiträge von Ilse

...hm
ich kriegs einfach nicht zum laufen!

[autoit]

#Include <File.au3>
#Include <Array.au3>

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

$filepath = "C:\Users\Public\Pictures\Sample Pictures"
$OST_OSA1 =_FileListToArray($filepath,"*.jpg",1)
$OST_OSA2 =_FileListToArray($filepath,"*.gif",1)

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

If @Error= 1 Then
MsgBox (0,"","Path not found or invalid",1)
Exit
EndIf
If @Error= 4 Then
MsgBox (0,"","No Files Found.",1)
Exit
EndIf
_ArrayDisplay($OST_OSA,"$FileList")

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

For $x = 2 to $OST_OSA[0]
Msgbox(0,'Record:', $OST_OSA[$x],1)
Next

[/autoit]

Hallo gmmg,

danke für deine Hilfe.
Ich habe mal das Script (Pfade) etwas geändert,
aber da passiert leider nichts!

[autoit]

#Include <File.au3>
#Include <Array.au3>

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

$filepath = "C:\Users\Public\Pictures\Sample Pictures" ; Windows Bilder-Ordner
$OST_OSA =_FileListToArray($filepath,"Bach*.sql",1) ; liest alle files mit angfang " "Bach" und ende "sql" in ein array
;Im Ordner ist z.B.ein Bild drin Bach.jpg
If @Error= 1 Then
MsgBox (0,"","Path not found or invalid",1)
Exit
EndIf
If @Error= 4 Then
MsgBox (0,"","No Files Found.",1)
Exit
EndIf
_ArrayDisplay($OST_OSA,"$FileList")

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

For $x = 2 to $OST_OSA[0]
Msgbox(0,'Record:', $OST_OSA[$x],1)
Next

[/autoit]

kann man dann auch alle jpg's , gifs filtern und auslesen?
Liebe Grüße
Ilse

Hallo AspirinJunkie (...toller Name)

merci für deine Hilfe.
Diese Befehle kannte ich noch nicht
...mal wieder was gelernt.

Mach mich gleich an die Arbeit
melde mich wieder

Liebe Grüße
Ilse

Hallo
und erstmal ein herzliches neues Jahr!

Mein erstes Problem im neuen Jahr sieht so aus:

• Es gibt einen Ordner mit Bildern die ich alle einzeln bearbeiten muß
• Alle Inhalte sollen im Loop mit Pfad nacheinander ausgelesen werden

Zitat

Also beim lesen so:
Loop...
Starte C:\Meine Bilder\Bild1.jpg
...dann mach was....
Wenn ich mit der Bearbeitung fertig bin
dann brauche ich den Speicherpfad
also so:
Speichern C:\Meine neuer Ordner\Bild1.jpg

Alles anzeigen

Hier mein Code ohne Loop...
(habe alle Fehlversuche entfernt)
hm...das Inputfeld sollte den Pfad zeigen...geht auch nicht

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Bilder einlesen...", 615, 440, 246, 152)
$Ordnerwahl = GUICtrlCreateButton("Ordnerwahl", 440, 36, 119, 49)
$Start = GUICtrlCreateButton("Start", 444, 220, 115, 61)
$Anzeige = GUICtrlCreateCombo("Anzeige", 444, 180, 117, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "jpg|png")
$Ablageordner = GUICtrlCreateButton("Ablageordner", 440, 96, 119, 49)
$Quelle = GUICtrlCreateInput("Quelle", 48, 52, 381, 21)
$Label1 = GUICtrlCreateLabel("Quellordner", 48, 28, 58, 17)
$Label2 = GUICtrlCreateLabel("Zielordner", 48, 88, 51, 17)
$Ziel = GUICtrlCreateInput("Ziel", 48, 108, 385, 21)
$Label3 = GUICtrlCreateLabel("Welche Formate sollen gelesen werden?", 232, 188, 196, 17)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Ordnerwahl
$Quellordner = FileSelectFolder("Bitte Ordner wählen","",Default,@ScriptDir)

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

If @error Then Exit
Case $Ablageordner
$Zielordner = FileSelectFolder("Bitte neuen Ordner wählen","",Default,@ScriptDir)
If @error Then Exit

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

Case $Start

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

$Einlesen = MsgBox(4,"","Sollen alle "&GUICtrlRead($Anzeige)& " Dateien eingelesen werden?")
If $Einlesen=6 Then

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

Else
MsgBox(4096,"Abbruch","Daten wurden nicht eingelesen")

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

endif

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

EndSwitch
WEnd

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

würd mich freuen, wenn die Profis mal drüberschauen

Viele Grüße
Ilse

Hallo autobert,

dank dir für deine Infos
Vielleicht werde ich nächstes Jahr um diese
Zeit über Arrays "schmunzeln"

...auch dir einen guten Rutsch ins Jahr 2011

Liebe Grüße
Ilse

Hallo Bernd,

merci für deine Hilfe und den Link 2D-Array.
Das würde ich gerne lernen.
Hoffentlich kapiere ich das

Ich wünsche dir schon jetzt einen guten Rutsch
ins neue Jahr 2011

Liebe Grüße
Ilse

Hallo Bernd,

muß mich leider nochmal melden. Bin die ganze Zeit am probieren.
Ich verstehe das mit den Arrays noch nicht so ganz.

Ich kann z.Zt. nur Spalten und Zeilen lesen aber keine einzelne "ZELLEN!"

Hier erhalte ich Fehler

[autoit]

For $iRow = 0 To UBound($aRet, 1) - 1 ; Zeilen von $aRet
$szZeile = ""
$Alter = "" ; die Zelle Alter möchte ich lesen!
For $iCol = 0 To UBound($aRet, 2) - 1 ; Spalten von $aRet
;$szZeile &= $aRet[$iRow][$iCol] & @TAB
$Alter &= $aRet[$iCol] & @TAB ; hier komme ich nicht weiter!
Next
;Msgbox(4,"Alter",$Alter) ; hier habe ich die Werte eingebaut
Next

[/autoit]

Grüße
Ilse

Hallo Bernd,

danke Dir.
Kannst du mir bitte noch etwas helfen:

Frage 1:

Wie kann ich eine bestimmte Zelle lesen?
Ich meine daß im Loop z.B. nur die erste Zelle also: Dackel, Collie... nacheinander gezeigt wird!

Frage 2:

Wie kann man den kpl. Datensatz anzeigen?
z.B. Dackel, 1Jahr, geimpft
das klappt leider nicht, es kommt alles einzeln.

[autoit]

#include <array.au3>
Main()

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

Func Main()

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

Local $sAdr = "csv.txt"
Local $h = FileOpen($sAdr, 0)

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

Local $aRet = _CSV2Array($h, Default, True, 1)

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

FileClose($h)
;~ _ArrayDisplay($aRet)

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

For $iRow = 0 To UBound($aRet, 1) - 1 ; Zeilen von $aRet
For $iCol = 0 To UBound($aRet, 2) - 1 ; Spalten von $aRet
ConsoleWrite($aRet[$iRow][$iCol] & @TAB & @TAB)
Msgbox(4,"",$aRet[$iRow][$iCol]) ; hier habe ich die Werte eingebaut
Next
ConsoleWrite(@CRLF)
Next

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

EndFunc ;==>Main

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

; #FUNCTION# ===================================================================
; Name ..........: _CSV2Array
; Description ...:
; AutoIt Version : V3.3.0.0
; Syntax ........: _CSV2Array($hFile[, $cSeperator = "auto"[, $bFilterString = True[, $iColumnMode = 0]]])
; Parameter(s): .: $hFile - Handle for the CSV file to Read
; $cSeperator - Optional: (Default = "auto") : Tries to find the separator char or , or TAB or | or space)
; | Data-seperator-char
; | Empty-string = Opt("GUIDataSeparatorChar")
; $bFilterString - Optional: (Default = True) : Removes leading and trailing " or '
; $iColumnMode - Optional: (Default = 0) :
; | 0: Sets error if lines have different columns and @extended to the csv-line number
; | 1: returns lines with different columns numbers comparing to the first line, too
; | 2: removing all columns > column numbers in the first line
; Return Value ..: Success - 2-dim Array
; Failure - 0
; @ERROR - 1: error file read
; @ERROR - 2: different number of columns / @EXTENDED = CSV-line
; - 3: parameter error
; Author(s) .....: Thorsten Willert
; Date ..........: Mon Dec 07 18:54:35 CET 2009
; ==============================================================================
Func _CSV2Array($hFile, $cSeperator = "auto", $bFilterString = True, $iColumnMode = 0)
Local $s = FileRead($hFile)
If @error Then Return SetError(1)

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

If $cSeperator = Default Then $cSeperator = "auto"
If Not $cSeperator Then $cSeperator = Opt("GUIDataSeparatorChar")

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

; searching the line-seperator and splitting the lines into an array
Local $aLines
If StringInStr($s, @CRLF) Then
$aLines = StringSplit($s, @CRLF, 1)
ElseIf StringInStr($s, @CR) Then
$aLines = StringSplit($s, @CR)
Else
$aLines = StringSplit($s, @LF)
EndIf

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

; searching the delimiter in the first line
Local $aTMP
If $cSeperator = "auto" Then
Local $iMax = 0
Local $iC[5] = [0, 0, 0, 0, 0]
Local $sC[5] = [";", ",", @TAB, "|", " "]

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

$aTMP = StringRegExp($aLines[1], ";", 3)
If Not @error Then $iC[0] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], ",", 3)
If Not @error Then $iC[1] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\t", 3)
If Not @error Then $iC[2] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\|", 3)
If Not @error Then $iC[3] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "[ ]", 3)
If Not @error Then $iC[4] = UBound($aTMP)

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

For $i = 0 To UBound($sC) - 1
If $iC[$i] > $iMax Then
$iMax = $iC[$i]
$cSeperator = $sC[$i]
EndIf
Next
EndIf

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

; creating 2-dim array based on the number of data in the first line
$aTMP = StringSplit($aLines[1], $cSeperator)
Local $iCol = $aTMP[0]
Local $aRet[$aLines[0]][$iCol]

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

; splitting and filling the lines
For $i = 1 To $aLines[0]
$aTMP = StringSplit($aLines[$i], $cSeperator)
If @error Then ContinueLoop
If $aTMP[0] > $iCol Then
Switch $iColumnMode
Case 0
Return SetError(2, $i)
Case 1
ReDim $aRet[$aLines[0] - 1][$aTMP[0]]
Case 2
$aTMP[0] = $iCol
Case Else
Return SetError(3)
EndSwitch
EndIf
For $j = 1 To $aTMP[0]
$aTMP[$j] = StringStripWS($aTMP[$j], 3)
If $bFilterString Then ; removing leading and trailing " or '
$aTMP[$j] = StringRegExpReplace($aTMP[$j], '^("|'')(.*?)\1$', '$2')
EndIf
$aRet[$i - 1][$j - 1] = $aTMP[$j]
Next ; /cols
Next ; /lines

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

Return $aRet
EndFunc ;==>_CSV2Array

[/autoit]

Grüße
Ilse

Hallo,

habe erst heute wieder Internet (war 1 Woche von der Welt abgeschnitten)
ich hoffe Ihr hattet alle schöne Feiertage.

Ich habe eine csv Funktion gefunden
die ich toll finde. Leider habe ich noch Probleme mit Arrays!
Kann mir jemand sagen wie ich mit einem Loop
die Felder lesen kann?

So sieht die csv aus:

[autoit]

Hund;Alter;Pass
Collie;1 Jahr; geimpft
Dackel;Welpe;geimpft

[/autoit]

das ist die Funktion:

[autoit]

#include <array.au3>
Main()

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

Func Main()

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

Local $sAdr = "csv.txt"
Local $h = FileOpen($sAdr, 0)

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

Local $aRet = _CSV2Array($h, Default, True, 1)

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

FileClose($h)
_ArrayDisplay($aRet)

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

EndFunc ;==>Main

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

; #FUNCTION# ===================================================================
; Name ..........: _CSV2Array
; Description ...:
; AutoIt Version : V3.3.0.0
; Syntax ........: _CSV2Array($hFile[, $cSeperator = "auto"[, $bFilterString = True[, $iColumnMode = 0]]])
; Parameter(s): .: $hFile - Handle for the CSV file to Read
; $cSeperator - Optional: (Default = "auto") : Tries to find the separator char or , or TAB or | or space)
; | Data-seperator-char
; | Empty-string = Opt("GUIDataSeparatorChar")
; $bFilterString - Optional: (Default = True) : Removes leading and trailing " or '
; $iColumnMode - Optional: (Default = 0) :
; | 0: Sets error if lines have different columns and @extended to the csv-line number
; | 1: returns lines with different columns numbers comparing to the first line, too
; | 2: removing all columns > column numbers in the first line
; Return Value ..: Success - 2-dim Array
; Failure - 0
; @ERROR - 1: error file read
; @ERROR - 2: different number of columns / @EXTENDED = CSV-line
; - 3: parameter error
; Author(s) .....: Thorsten Willert
; Date ..........: Mon Dec 07 18:54:35 CET 2009
; ==============================================================================
Func _CSV2Array($hFile, $cSeperator = "auto", $bFilterString = True, $iColumnMode = 0)
Local $s = FileRead($hFile)
If @error Then Return SetError(1)

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

If $cSeperator = Default Then $cSeperator = "auto"
If Not $cSeperator Then $cSeperator = Opt("GUIDataSeparatorChar")

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

; searching the line-seperator and splitting the lines into an array
Local $aLines
If StringInStr($s, @CRLF) Then
$aLines = StringSplit($s, @CRLF, 1)
ElseIf StringInStr($s, @CR) Then
$aLines = StringSplit($s, @CR)
Else
$aLines = StringSplit($s, @LF)
EndIf

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

; searching the delimiter in the first line
Local $aTMP
If $cSeperator = "auto" Then
Local $iMax = 0
Local $iC[5] = [0, 0, 0, 0, 0]
Local $sC[5] = [";", ",", @TAB, "|", " "]

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

$aTMP = StringRegExp($aLines[1], ";", 3)
If Not @error Then $iC[0] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], ",", 3)
If Not @error Then $iC[1] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\t", 3)
If Not @error Then $iC[2] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\|", 3)
If Not @error Then $iC[3] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "[ ]", 3)
If Not @error Then $iC[4] = UBound($aTMP)

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

For $i = 0 To UBound($sC) - 1
If $iC[$i] > $iMax Then
$iMax = $iC[$i]
$cSeperator = $sC[$i]
EndIf
Next
EndIf

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

; creating 2-dim array based on the number of data in the first line
$aTMP = StringSplit($aLines[1], $cSeperator)
Local $iCol = $aTMP[0]
Local $aRet[$aLines[0]][$iCol]

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

; splitting and filling the lines
For $i = 1 To $aLines[0]
$aTMP = StringSplit($aLines[$i], $cSeperator)
If @error Then ContinueLoop
If $aTMP[0] > $iCol Then
Switch $iColumnMode
Case 0
Return SetError(2, $i)
Case 1
ReDim $aRet[$aLines[0] - 1][$aTMP[0]]
Case 2
$aTMP[0] = $iCol
Case Else
Return SetError(3)
EndSwitch
EndIf
For $j = 1 To $aTMP[0]
$aTMP[$j] = StringStripWS($aTMP[$j], 3)
If $bFilterString Then ; removing leading and trailing " or '
$aTMP[$j] = StringRegExpReplace($aTMP[$j], '^("|'')(.*?)\1$', '$2')
EndIf
$aRet[$i - 1][$j - 1] = $aTMP[$j]
Next ; /cols
Next ; /lines

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

Return $aRet
EndFunc ;==>_CSV2Array

[/autoit]

Viele Grüße
Ilse

@alle

Dank Euch

Ilse

P.S.

...das mit dem Control on Top
bin ich noch am suchen

autoBert,

ja, es klappt jetzt

noch ne kleine Frage
Wie kann man ein Control...
ganz nach oben bekommen?
In den Vordergrund

Ilse

geht aber beides nicht!

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 615, 440, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 60, 32, 36, 17, 0x0000 )

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

$Sprache = GUICtrlCreateCombo("Sprache", 208, 28, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Deutsch|Englisch")
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sprache
_Sprache()
EndSwitch
WEnd
Func _Sprache()

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

Switch GUICtrlRead($Sprache)
Case "Deutsch"
GUICtrlSetData($Label1, "Text in deutsch")

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

Case "Englisch"
GUICtrlSetData($Label1, "This is an english text for you?")

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

EndSwitch

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

EndFunc

[/autoit]

autoBert,

$SS_LEFT 0x0000 habe ich probiert

[autoit]

$Label1 = GUICtrlCreateLabel("Label1", 60, 32, 36, 17, $SS_LEFT 0x0000)

[/autoit]

es gibt eine Fehlermeldung!

Mit der festen Breite habe ich auch probiert
...aber da ich noch nicht so ganz von Koda weg bin
gibt es Probleme. Koda erzeugt auch wenn gespeichert wird
die Ursprungsgröße des Labels, auch wenn man diese verbreitert abgespeichert hat.
Beim Laden ist die alte Größe wieder da.

Grüße
Ilse

Hallo Daniel,

ja, aber das klappt nicht!

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 615, 440, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 60, 32, 36, 17)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Sprache = GUICtrlCreateCombo("Sprache", 208, 28, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Deutsch|Englisch")
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sprache
_Sprache()
EndSwitch
WEnd
Func _Sprache()

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

Switch GUICtrlRead($Sprache)
Case "Deutsch"
GUICtrlSetData($Label1, "Text in deutsch")

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

Case "Englisch"
GUICtrlSetData($Label1, "This is an english text for you?")

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

EndSwitch

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

EndFunc

[/autoit]

hm, ich wollte ja nicht das Feld vergrößern
wenn die Gui geändert wird. Das Feld sollte
vergrößert werden bei unterschiedlichem Combo-Inhalt!
Die Gui bleibt!

Grüße
Ilse

Hallo,

auf zum nächsten Problem.

Ich habe ein Label das mit einer Combobox
eine Caption-Änderung erhält.

Das Problem ist die Größe.
Kann man die irgendwie dynamisch ändern.
Ich meine daß das Labelfeld automatisch (je nach Größe) nach rechts verlängert wird!

Mein Code:

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 615, 440, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 60, 32, 36, 17)
$Sprache = GUICtrlCreateCombo("Sprache", 208, 28, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Deutsch|Englisch")
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sprache
_Sprache()
EndSwitch
WEnd
Func _Sprache()

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

Switch GUICtrlRead($Sprache)
Case "Deutsch"
GUICtrlSetData($Label1, "Text in deutsch")

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

Case "Englisch"
GUICtrlSetData($Label1, "This is an english text for you?")

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

EndSwitch

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

EndFunc

[/autoit]

Grüße
Ilse

Hallo,

...wenn die liebe Arbeit nicht wäre
Mußte wieder los.

Erstmal herzlichen Dank an alle
Läuft jetzt prima...

Liebe Grüße
Ilse

...leider nicht!

Zitat

Die Gui ist leer.
Mit den jpg's klappt es aber nicht mit icons.

Du hast dein Beispiel mit einem Button gemacht
Das ging bei mir vorher auch. Das Problem:
habe ich mehrere Buttons, dann macht das Script seltsames.

Hallo Ineluki,

habe gerade dein Script probiert!
Ich sehe keine icons! Ich brauche Icons also keine jpg!

Kannst du bitte nochmal drüberschaun?
Hab das ganze etwas geändert

[autoit]

#include <Misc.au3>
$hGUI = GUICreate("MouseOverSetImage Beispiel", 514, 153, 192, 124)
$pic1 = GUICtrlCreateIcon("icon01.ico", 0, 0, 257, 153)
GUISetState()

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

$pic1 = @ScriptDir & "\icon01.ico"
$pic2 = @ScriptDir & "\icon02.ico"
$pic3 = @ScriptDir & "\icon03.ico"

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

While 1
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
mouseOverSetImage($pic1, "icon01.ico", "icon02.ico", "icon03.ico")
WEnd

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

Func mouseOverSetImage($ctrlID, $pic1, $pic2, $pic3)
Local Static $hover=0
$mPos=GUIGetCursorInfo()
If IsArray($mPos) Then
If $mPos[4]=$ctrlID And $hover<>1 And Not _IsPressed(01) Then
GUICtrlSetImage($ctrlID, $pic2)
$hover=1
ElseIf $mPos[4]<>$ctrlID And $hover<>0 Then
GUICtrlSetImage($ctrlID, $pic1)
$hover=0
ElseIf $mPos[4]=$ctrlID And $hover=1 And _IsPressed(01) Then
GUICtrlSetImage($ctrlID, $pic3)
$hover=2
EndIf
EndIf
EndFunc

[/autoit]

Weiß nicht genau was ich da anpassen muß...

Liebe Grüße
Ilse

Hallo,

...konnte mich leider jetzt erst wieder melden.
Danke nochmal für die Tipps!

@ Großvater
super, sieht gut aus!
Bin noch dabei einen Text auf das jeweilige Bild zu legen.
Meistens hat es dann geflackert, auch wenn ein Hintergrundbild existiert!
Ich bin noch am probieren.

Eine Frage noch:

Kann man da auch irgendwie noch das Klick-Bild reinkriegen.
Ich meine daß beim Klick ein drittes Bild erscheint?

Liebe Grüße
Ilse

Hallo Ineluki,

hm...so ganz versteh ich's noch nicht!
D.h.
mouseOverSetImage($pic1, "p1.jpg", "p2.jpg")

p1.jpg, p2.jpg sind nicht im Script
Ich meine:
$Bild1 = @ScriptDir & "\Icon01.ico"
kann ich mir sparen?

Ich habe ja mehrere icons.
Wie muß ich die Funktion noch ändern?

huh...
Grüße
Ilse