Beiträge von Kleiner

[autoit]

#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>
$width = 375
$height = 354
$po = 1
$i = 1
$time = 30000
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $width, $height, 223, 148)
$Slider1 = GUICtrlCreateSlider(70, 310, 209, 40)
GUICtrlSetLimit(-1, 3000, 180000)
GUICtrlSetData(-1, 3000)
$stop = GUICtrlCreateButton("Stop", 340, 315)
$Start = GUICtrlCreateButton("Start", 300, 315)
GUISetBkColor(0xA6CAF0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$height -= 50
$pics = _FileListToArray("G:\Bilder\SAMMLUNG\JPG", "*.jpg", 1)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $stop
$po = 1
Case $nMsg = $Start
GUICtrlCreatePic('G:\Bilder\SAMMLUNG\JPG\' & $pics[$i], 0, 0, $width, $height)
$i += 1
Case $nMsg = $Slider1
$time = GUICtrlRead($Slider1)
EndSelect
WEnd

[/autoit]

[autoit]

$height = 354
$po = 1
$i = 1
$time = 3000
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $width, $height, 223, 148)
$Slider1 = GUICtrlCreateSlider(70, 310, 209, 40)
GUICtrlSetLimit(-1, 3000, 180000)
GUICtrlSetData(-1, 3000)
$stop = GUICtrlCreateButton("Stop", 340, 315)
$Start = GUICtrlCreateButton("Start", 300, 315)
GUISetBkColor(0xA6CAF0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$height -= 50
$pics = _FileListToArray("G:\Bilder\SAMMLUNG\JPG", "*.jpg", 1)
Local $iTimer = TimerInit()

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

While 1
If Round(TimerDiff($iTimer)) > $time Then
GUICtrlCreatePic('G:\Bilder\SAMMLUNG\JPG\' & $pics[$i], 0, 0, $width, $height)
$i += 1
$iTimer = TimerInit()
EndIf
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $stop
$po = 1
Case $nMsg = $Start
GUICtrlCreatePic('G:\Bilder\SAMMLUNG\JPG\' & $pics[$i], 0, 0, $width, $height)
$i += 1
Case $nMsg = $Slider1
$time = StringReplace(GUICtrlRead($Slider1), '-', '')
EndSelect
WEnd

[/autoit]

[autoit]

Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iCode, $tNMHDR, $aPos_
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iCode = DllStructGetData($tNMHDR, 'Code')
$aPos_ = MouseGetPos()
If $iCode = -5 Then
If ControlClick($hGui, '', $hTreeview, 'primary', 2, $aPos_[0], $aPos_[1] - 10) And Sleep(50) Then MouseClick('right')
EndIf
If $hWndFrom = $hWndTreeview And $iCode = $NM_CLICK Then
ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
_GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
ToolTip('')
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY

[/autoit]

[autoit]

Rückgabewert

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

Gibt je nach "advanced"-Parameter ein Ereignis oder ein Array zurück.
Das zurückgegebene "Ereignis" ist die Control-ID des Controls, das die Nachricht sendet, oder es ist ein spezielles Ereignis (wie das Schließen oder Minimieren eines Fensters). Wenn keine Nachricht vorhanden ist, wird 0 als Ereignis zurückgegeben.
Spezial ID Bemerkungen
0 Kein Ereignis
$GUI_EVENT_CLOSE die Dialogbox wird geschlossen (entweder durch einen bestimmten Button oder das Systemmenü).
$GUI_EVENT_MINIMIZE die Dialogbox wird per Button in der Titelleiste minimiert.
$GUI_EVENT_RESTORE die Dialogbox wird durch Klick auf das Taskleistensymbol wiederhergestellt.
$GUI_EVENT_MAXIMIZE die Dialogbox wird per Button in der Titelleiste maximiert.
$GUI_EVENT_MOUSEMOVE der Mauszeiger wurde bewegt
$GUI_EVENT_PRIMARYDOWN die erste (linke) Maustaste wurde gedrückt
$GUI_EVENT_PRIMARYUP die erste (linke) Maustaste wurde losgelassen
$GUI_EVENT_SECONDARYDOWN die zweite (rechte) Maustaste wurde gedrückt
$GUI_EVENT_SECONDARYUP die zweite (rechte) Maustaste wurde losgelassen
$GUI_EVENT_RESIZED Dialogbox wurde neu aufgebaut.
$GUI_EVENT_DROPPED Ende der Drag&Drop Aktion @GUI_DRAGID, @GUI_DRAGFILE und @GUI_DROPID werden verwendet, um die ID's bzw. Dateien der jeweiligen Controls zu ermitteln.
Wird der "advanced"-Parameter verwendet, werden die Informationen in einem Array zurückgegeben:
$array[0] = 0 oder Ereignis-ID oder Control-ID
$array[1] = Der Fenster-Handle des Fensters, von dem das Ereignis gemeldet wird
$array[2] = Der Control-Handle des Controls, von dem das Ereignis gemeldet wird (gegebenenfalls)
$array[3] = Die aktuelle X-Position des Mauszeigers (relativ zum GUI-Fenster)
$array[4] = Die aktuelle Y-Position des Mauszeigers (relativ zum GUI-Fenster)
Wenn die GUIOnEventMode-Option auf 1 gesetzt ist, ist der Rückgabewert von GUIGetMsg immer 0, und @error wurde auf 1 gesetzt.
Falls die Option GUIEventOptions auf 1 gesetzt ist, wird der Minimier-, Wiederherstell- und Maximier-Button nichts weiter tun, außer einer einfachen Benachrichtigung.

[/autoit]

[autoit]

Func StringInStr2($str1, $str2)
Dim $x = 1
Dim $Index
Dim $aArray[3]
Dim $Ergebnis = 1
Dim $Fund = StringInStr($str1, $str2, 1, 1, $x)
If Not $Fund Then
$aArray[0] = -1
Return $aArray
EndIf
$Index &= $Fund & '|'
Do
$x = ($Fund + 1)
$Fund = StringInStr($str1, $str2, 1, 1, $x)
If ($Fund <> 0) Then
$Index &= $Fund & '|'
$Ergebnis += 1
EndIf
Until ($Fund = 0)
$aArray[0] = $Ergebnis; wie oft gefunden
$aArray[1] = StringLen($str2) ; übergebene suchstringlänge
$aArray[2] = StringLeft($Index, StringLen($Index) - 1); welche stelle im String
Return $aArray
EndFunc ;==>StringInStr2

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>

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

Dim $Check1[12], $Check2[12]
Dim $Button1, $Button2, $x = 50

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

$Form = GUICreate('', 400, 400, -1, -1)

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

For $i = 0 To 11
$Check1[$i] = GUICtrlCreateCheckbox('Check ' & $i, 100, $x, 100, 20)
$Check2[$i] = GUICtrlCreateRadio('Check2 ' & $i, 100, $x, 100, 20)
$x += 25
Next
ControlArrayShowHide($Check2)
$Button1 = GUICtrlCreateButton('-2-', 10, 10, 50, 20)
$Button2 = GUICtrlCreateButton('-2-', 10, 40, 50, 20)
GUISetState()

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

While 1 * Sleep(10)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ControlArrayShowHide($Check1)
ControlArrayShowHide($Check2, 1)
Case $Button2
ControlArrayShowHide($Check2)
ControlArrayShowHide($Check1, 1)
EndSwitch
WEnd

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

Func ControlArrayShowHide($aCTRL, $SH = 0)
If IsArray($aCTRL) Then
Switch $SH
Case 0
For $i = 0 To UBound($aCTRL) - 1
ControlHide($Form, 0, $aCTRL[$i])
Next
Case 1
For $i = 0 To UBound($aCTRL) - 1
ControlShow($Form, 0, $aCTRL[$i])
Next
EndSwitch
EndIf
EndFunc ;==>ControlArrayShowHide

[/autoit]