SoundSetWaveVolume(GUICtrlRead($idsliderVol))
[/autoit]übernimmt von einem Slider die Prozentangabe. Den Slider musst du mit
[autoit]GUICtrlSetLimit(-1, 100, 0) ;maximal 100 minimal 0
[/autoit]auf die gewünschten Werte limitieren. Es gibt auch zumindest unter XP Prof SP3 keine Unverträglichkeiten mit der Sound.Au3.
mfg (Auto)Bert
Hallo @ideas2code,
du musst die func close abändern:
[autoit]Func close()
GUISetState(@SW_HIDE,$gui1)
GUISetState(@SW_HIDE,$gui2)
start()
EndFunc ;==>close
da nach GuiDelete die jeweilige Gui gelöscht wird und nicht mehr angesprochen werden kann,
mfg (Auto)Bert
Hallo mipez,
hier ein kleines Beispiel für Drag & Drop mit ListBox:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GuiListBox.au3>
#include <ListboxConstants.au3>
#include <File.au3>
#include <array.au3>
Global $szDrive, $szDir, $szFName, $szExt
Global $aDropFiles[1], $WM_DROPFILES = 0x233
$idGUI = GUICreate("Flaggen", 300, 115, -1, -1, -1, $WS_EX_ACCEPTFILES)
$idListe = GUICtrlCreateList("", 10, 10, 180, 80, BitOR($WS_VSCROLL, $LBS_NOTIFY)) ;,BitOR($LBS_SORT, $LBS_MULTIPLESEL)
GUICtrlSetState($idListe, $GUI_DROPACCEPTED)
$idNeu = GUICtrlCreateButton("...", 200, 10, 30, 25)
$idVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
$idInfo = GUICtrlCreateButton("&alle auslesem", 10, 90, 180, 25)
GUISetState()
GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES_FUNC")
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_DROPPED
_FilesDropped()
Case $idInfo
$count = _GUICtrlListBox_GetCount($idListe)
Dim $aListe[$count]
For $i = 0 To $count - 1
$aListe[$i] = _GUICtrlListBox_GetText($idListe, $i)
Next
_ArrayDisplay($aListe)
Case $idNeu
$sAlt = GUICtrlRead($idListe)
$sPlus = FileOpenDialog("La(e)nder auswählen:", @ScriptDir & "\Flaggen", "Bilder (*.jpg)", 7, "", $idGUI)
$aPlus = StringSplit($sPlus, "|")
If IsArray($aPlus) Then
;_ArrayDisplay($aPlus)
If $aPlus[0] > 1 Then
For $i = 2 To $aPlus[0]
ConsoleWrite($aPlus[$i] & @CRLF)
_GUICtrlListBox_InsertString($idListe, $aPlus[$i], $i - 2)
Next
Else
_PathSplit($sPlus, $szDrive, $szDir, $szFName, $szExt)
ConsoleWrite($szFName & @CRLF)
_GUICtrlListBox_InsertString($idListe, $szFName & $szExt, 0)
EndIf
EndIf
Case $idListe
ConsoleWrite(GUICtrlRead($idListe) & ".jpg" & @CRLF)
GUICtrlSetImage($idVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($idListe))
EndSwitch
WEnd
Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
Local $nSize, $pFileName
Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate("char[" & $nSize & "]")
DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
ReDim $aDropFiles[$i + 1]
$aDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
EndFunc ;==>WM_DROPFILES_FUNC
Func _FilesDropped()
Local $szDrive, $szDir, $szFName, $szExt, $split
For $i = 0 To UBound($aDropFiles) - 1
$split = _PathSplit($aDropFiles[$i], $szDrive, $szDir, $szFName, $szExt)
$szExt = StringUpper($szExt)
;ConsoleWrite($aDropFiles[$i] & ", " & $szExt & @CRLF)
; Switch $szExt
; Case ".JPG"
_GUICtrlListBox_InsertString($idListe,$szFName & $szExt,0)
; EndSwitch
Next
EndFunc ;==>_FilesDropped
es erlaubt auch Mehrfachauswahl. Zum Testen benötigst du noch
mfg (Auto)Bert
Hallo MrB,
ändere die func listview so ab:
[autoit]Func listview()
$nr = 30
_GUICtrlListView_DeleteAllItems($ListView1)
_GUICtrlListView_BeginUpdate($ListView1)
For $i = 1 To $nr
GUICtrlCreateListViewItem($i & "|" & "|" & $i & "|" & $i & "|" & $i & "|" & $i, $ListView1)
GUICtrlSetBkColor(-1, 0x15ADFF)
Next
_GUICtrlListView_EndUpdate($ListView1)
EndFunc ;==>listview
mfg (Auto)Bert
Hallo donpascal,
schau dir die Hilfe zu
[autoit]_FileWriteToLine
[/autoit]an, damit sollte es am eifachsten funktionieren,
mfg (Auto)Bert
Hallo
kann mich Schnitzel nur anschliessen, zusätzlich $Button1 zum Leben erweckt:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
; Variable
$filesIn111 = _GetFilesFolder_Rekursiv('111', 'txt', 0, 0)
$filesIn222 = _GetFilesFolder_Rekursiv('222', 'txt', 0, 0)
#Region ### START GUI section ### Form=c:\users\rs\desktop\auit\start\form1.kxf
$Form1_1 = GUICreate("Form1", 436, 388, 261, 124)
$List1 = GUICtrlCreateList("", 8, 64, 417, 279, BitOR($LBS_SORT,$LBS_STANDARD,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
$Button1 = GUICtrlCreateButton("&Öffnen", 176, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("111", 8, 32, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("222", 88, 32, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
; MsgBox(0, 'Öffnen', 'Button 1 was pressed')
ShellExecute(GUICtrlRead($List1))
Case $msg = $Button2
GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
If IsArray($filesIn111) Then
for $i = 1 to $filesIn111[0]
GUICtrlSetData($List1, $filesIn111[$i])
Next
; _ArrayDisplay($filesIn111, 'Rekursiv alle au3-Dateien')
Else
GUICtrlSetData($List1, $filesIn111 & @CRLF)
EndIf
Case $msg = $Button3
GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
If IsArray($filesIn222) Then
for $i = 1 to $filesIn222[0]
GUICtrlSetData($List1, $filesIn222[$i])
Next
; _ArrayDisplay($filesIn222, 'Rekursiv alle au3-Dateien')
Else
GUICtrlSetData($List1, $filesIn222 & @CRLF)
EndIf
EndSelect
WEnd
;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles,1)
EndIf
EndFunc
Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & @LF
Else
$strFiles &= $file.Path & @LF
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
_ShowSubFolders($Subfolder, $Ext, $Dir)
Next
EndFunc
mfg (Auto)Bert
Hallo Schrubber,
hast du die neueste Version 0.8.3.0? Mit den älteren klappt es nicht mehr. Ich habe diese gerade mit http://www.youtube.com/watch?v=X9aZLXBxOK8 getestet und da klappt es.
Kannst du ein paar Links einstellen, bei denen es mt 0.8.3.0 nicht klappt,
mfg (Auto)Bert
Hallo
durch FileOpendialog wird @Workingdir verändert du musst also den Pfad angeben:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Schnellzugriff", 625, 443, 192, 124)
$Input1 = GUICtrlCreateInput("Pfad", 8, 8, 129, 21)
$Button1 = GUICtrlCreateButton("Suchen", 144, 8, 49, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Speichern", 200, 8, 49, 25, $WS_GROUP)
$Input2 = GUICtrlCreateInput("Pfad", 8, 40, 129, 21)
$Button3 = GUICtrlCreateButton("Suchen", 144, 40, 49, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Speichern", 200, 40, 49, 25, $WS_GROUP)
$Input3 = GUICtrlCreateInput("Pfad", 8, 72, 129, 21)
$Button5 = GUICtrlCreateButton("Suchen", 144, 72, 49, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Speichern", 200, 72, 49, 25, $WS_GROUP)
$Input4 = GUICtrlCreateInput("Pfad", 8, 104, 129, 21)
$Button7 = GUICtrlCreateButton("Suchen", 144, 104, 49, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Speichern", 200, 104, 49, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$erstes = FileOpenDialog("Suchen...",@ScriptDir,"(*.exe)")
GUICtrlSetData($Input1, $erstes)
Case $Button2
$erstesread = GUICtrlRead($Input1)
;FileDelete("settings.ini")
IniWrite(@ScriptDir & "\settings.ini","erstes","programmpfad",$erstesread)
EndSwitch
WEnd
mfg (Auto)Bert
Hallo MrB,
schau dir [ gelöst ] Kopieren des Temp Ordners in ein anderen Ordner mit Hilfe von DirCopy unter Windows 7 an
mfg (Auto)Bert
Hallo MelS3247,
dann ändere Zeile 35:
[autoit]$time = 20
[/autoit]in
[autoit]$time = $newtime
[/autoit]und zusätzlich fügst du noch in Zeile 5 dieses ein
[autoit]Dim $newtime = $time
[/autoit]mfg (Auto)Bert
Hallo stayawayknight,
suche einmal nach ChaosExecution von @ChaosKeks, er hat da HotKey.au3 von @Yashied included. Das sollte dir weiter helfen,
mfg (Auto)Bert
Hallo Masterking1996,
das Ursprungsskript ist ein Beispiel-Skript von mir. Ich würde es folgendermassen abändern, damit man auch wieder einzelne Einträge löschen kann:
#include <GUIConstantsEx.au3>
#Include <GuiComboBox.au3>
Const $sElect = "bitte eine URL auswählen"
Global $URL
If Not FileExists(@ScriptDir & "\URL.INI") Then
$sData = "AutoIt=http://www.autoit.de" & @LF & "Dein Thread=http://www.autoit.de/index.php?page=Thread&postID=156685#post156685" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
EndIf
$hGui = GUICreate("Combobox mit INI für URL-Aufruf", 300, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo("", 8, 8, 200, 25)
$hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213, 
$hbtnDel = GUICtrlCreateButton("&Löschen", 213, 33)
$hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
read_INI()
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbtnAdd
$write1 = InputBox("URL", "Bitte eine gültige URL eingeben")
If $write1 <> "" Then
$write2 = InputBox("URL verwalten unter", "Bitte Kurzbegriff eingeben")
If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
GUICtrlSetData($hcboProg, $write2, $write2)
EndIf
show_Selection()
Case $hbtnDel
$sDel = GUICtrlRead($hcboProg)
IniDelete(@ScriptDir & "\URL.INI", "URLs", $sDel)
GUICtrlSetData($hcboProg,"")
read_INI()
Case $hcboProg
show_Selection()
Case $hbtnOpen
ShellExecute($URL)
;ConsoleWrite($URL & @CRLF)
EndSwitch
WEnd
Func read_INI()
$list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next
_GUICtrlComboBox_InsertString ($hcboProg,$sElect,0)
_GUICtrlComboBox_SetCurSel($hcboProg,0)
EndFunc ;==>read_INI
Func show_Selection()
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
$URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
GUICtrlSetData($hlblURL, $URL)
EndIf
EndFunc ;==>show_Selection
mfg (Auto)Bert
Hallo Kurikinton,
nimm doch einfach das Beispiel von Oscar und passe es an deine Bedürfnisse an:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hGui = GUICreate('AutoIt-Downloader', 400, 200)
$hProgressAllLabel = GUICtrlCreateLabel('0%', 180, 12, 50, 16)
$hProgressAll = GUICtrlCreateProgress(10, 30, 380, 20)
$hProgressFileLabel = GUICtrlCreateLabel('0%', 180, 62, 50, 16)
$hProgressFile = GUICtrlCreateProgress(10, 80, 380, 20)
$hStop = GUICtrlCreateButton('Abbrechen', 150, 120, 80, 25)
GUICtrlSetState(-1, $GUI_HIDE)
$hStatus = GUICtrlCreateLabel('', -2, 180, 404, 20, Default, $WS_EX_CLIENTEDGE)
GUISetState()
Global $patch_url = FileReadLine(@ScriptDir & "\" & "loader\banko.ini", 1)
$file = @TempDir&"\files.txt"
InetGet( $patch_url&"\files.txt" , $file)
$aDownloadFiles = _FileReadToArray($file)
#cs ;unnötig da in deinem Original-Skript darin keine Dateien abgelegt werden
DirCreate(FileReadLine($aDownloadFiles[ 0])
DirCreate(FileReadLine($aDownloadFiles[ 1])
DirCreate(FileReadLine($aDownloadFiles[ 2])
DirCreate(FileReadLine($aDownloadFiles[ 3])
DirCreate(FileReadLine($aDownloadFiles[ 4])
DirCreate(FileReadLine($aDownloadFiles[ 5])
DirCreate(FileReadLine($aDownloadFiles[ 6])
DirCreate(FileReadLine($aDownloadFiles[ 7])
DirCreate(FileReadLine($aDownloadFiles[ 8])
DirCreate(FileReadLine($aDownloadFiles[ 9])
DirCreate(FileReadLine($aDownloadFiles[ 10])
DirCreate(FileReadLine($aDownloadFiles[ 11])
DirCreate(FileReadLine($aDownloadFiles[ 12])
DirCreate(FileReadLine($aDownloadFiles[ 13])
DirCreate(FileReadLine($aDownloadFiles[ 14])
#ce
Dim $iFileSizeAll, $aFileSize[UBound($aDownloadFiles)], $iDownloadSizeAll, $iPercent, $iPercentAll
GUICtrlSetData($hStatus, ' Dateigrößen ermitteln!')
For $i = 15 To UBound($aDownloadFiles) - 1
$aFileSize[$i] = InetGetSize($aDownloadFiles[$i])
$iFileSizeAll += $aFileSize[$i]
Next
GUICtrlSetState($hStop, $GUI_SHOW)
For $i = 0 To UBound($aDownloadFiles) - 1
$sFilename = StringRegExpReplace($aDownloadFiles[$i], '.+/(.+)', '$1')
GUICtrlSetData($hStatus, ' Datei: "' & $sFilename & '"')
$hDownload = InetGet($aDownloadFiles[$i], @TempDir & '\' & $sFilename, 1, 1)
Do
$aData = InetGetInfo($hDownload, -1)
If GUIGetMsg() = $hStop Or @error Then
InetClose($hDownload)
ExitLoop 2
EndIf
$iPercent = Int(100 / $aFileSize[$i] * $aData[0])
GUICtrlSetData($hProgressFile, $iPercent)
GUICtrlSetData($hProgressFileLabel, $iPercent & '%')
$iPercentAll = Int(100 / $iFileSizeAll * ($iDownloadSizeAll + $aData[0]))
GUICtrlSetData($hProgressAll, $iPercentAll)
GUICtrlSetData($hProgressAllLabel, $iPercentAll & '%')
Until $aData[2]
$iDownloadSizeAll += $aFileSize[$i]
Next
GUICtrlSetState($hStop, $GUI_HIDE)
Sleep(1000)
GUICtrlSetData($hStatus, ' Downloads abgeschlossen!')
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
mfg (Auto)Bert
Hallo KuriKinton,
du brauchst dazu 2 Schleifen. In der 1. holst du dir alle Dateigrössen (evtl. in Array zwischenspeichern) und addierst sie auf. In der 2. lädst du dann Datei für Datei herunter. Schau dir auch [ gelöst ] Eine Art Patcher an,
mfg (Auto)Bert
Hallo sonyman,
mit
[autoit]ControlCommand("FensterTitel","FensterText","ControlID","IsChecked"
[/autoit]solltest du die CkeckBox auslesen können,
mfg (Auto)Bert
Hallo freaky,
schau dir die Hilfe zu
[autoit]_GUICtrlListView_SimpleSort
[/autoit]an
mfg (Auto)Bert
Hallo MelS3247,
wenn der Button von dir erstellt ist, kannst du
[autoit]GuiGetMsg()
[/autoit]verwenden.
mfg (Auto)Bert
Hallo button421,
schau dir dies genauer an:
[autoit]Case $GUI_EVENT_DROPPED, $idDragmenu
$ar = _GUICtrlListView_GetSelectedIndices($listview, True)
;_ArrayDisplay($ar)
For $i = 1 To $ar[0]
$sItem = _GUICtrlListView_GetItemTextString($listview, $ar[$i])
GUICtrlCreateListViewItem($sItem, $listview2)
Next
Hier werden (wenn das Ereignis $GUI_EVENT_DROPPED eintritt) alle markierten LV-Items von einer LV in die andere übernommen,
mfg (Auto)Bert
Hallo descent,
zu
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <File.au3>
;#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]Local $tZeit, $s1, $s2
[/autoit] [autoit][/autoit] [autoit]$main = GUICreate("Test Drag & Drop from LV1 to LV2 DblClick in LV1 with ContextMenu in LV1 (copies to ClipBoard", 600, 400)
$listview = GUICtrlCreateListView("Gruppe1| BlubText", 10, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
GUICtrlSetBkColor(-1, 0xE6E6FA) ; Hintergrundfarbe 1
$listview2 = GUICtrlCreateListView("Gruppe2 | BlubText", 230, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetState($listview2, $GUI_DROPACCEPTED)
$hbtnInfo = GUICtrlCreateButton("Info", 10, 120, 100, 20)
$hbtnSave = GUICtrlCreateButton("&Speichern", 230, 120, 100, 20)
$hbtnLoad = GUICtrlCreateButton("&Laden", 230, 150, 100, 20)
For $i = 1 To 9
$listitem = GUICtrlCreateListViewItem("test" & $i & " |Blub " & Random(1, 9), $listview)
if $i=5 Then GUICtrlSetFont($listitem,14,800)
GUICtrlSetBkColor(-1, 0xcccccc) ; Hintergrundfarbe 2
Next
$idContextmenu = GUICtrlCreateContextMenu($listview)
$idClipmenu = GUICtrlCreateMenuItem("Selektierte ins ClipBoard", $idContextmenu)
$idAllClipmenu = GUICtrlCreateMenuItem("Alle aus Splate 2 ins ClipBoard", $idContextmenu)
$idDragmenu = GUICtrlCreateMenuItem("In LV 2", $idContextmenu)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;<=========================================== Bemachrichtigung Doppelklick
GUISetState()
$first = True
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_DROPPED, $idDragmenu
$ar = _GUICtrlListView_GetSelectedIndices($listview, True)
;_ArrayDisplay($ar)
For $i = 1 To $ar[0]
$sItem = _GUICtrlListView_GetItemTextString($listview, $ar[$i])
GUICtrlCreateListViewItem($sItem, $listview2)
Next
Case $hbtnInfo
$Wert = _GUICtrlListView_GetItemTextArray($listview)
If $Wert[2] <> "" Then
MsgBox(0, "Eintrag für " & $Wert[1], "ist: " & $Wert[2])
Else
MsgBox(0, "", "Kein Eintrag ausgewählt")
EndIf
Case $hbtnSave
SaveLV(@ScriptDir & "\LV2.DAT")
Case $hbtnLoad
LoadLV(@ScriptDir & "\LV2.DAT")
Case $idClipmenu
$aItems = _GUICtrlListView_GetSelectedIndices($listview, True)
$sItemText = ""
For $i = 1 To $aItems[0]
;Schleifenbeginn 1 da $aItem[0] die Anzahl enhält
$sItemText &= _GUICtrlListView_GetItemTextString($listview, $aItems[$i]) & @CRLF
ConsoleWrite($sItemText & @CRLF)
Next ;= > weiter mit For
;ClipPut($sItemText & @CRLF)
Case $idAllClipmenu
$sToClip = ""
For $i = 0 To _GUICtrlListView_GetItemCount($listview)
$aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
$sToClip &= $aItem[2] & @CRLF
Next
ClipPut($sToClip)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func SaveLV($sFile)
Local $hFileOut, $aItem
$hFileOut = FileOpen($sFile, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($listview2) - 1
$aItem = _GUICtrlListView_GetItemTextString($listview2, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>SaveLV
Func LoadLV($sFile)
Local $aItems
If FileExists($sFile) Then
_FileReadToArray($sFile, $aItems)
If IsArray($aItems) Then
_GUICtrlListView_DeleteAllItems($listview2)
;_ArrayDisplay($aItems)
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $listview2)
Next
EndIf
EndIf
EndFunc ;==>LoadLV
Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam) ;<================== Benachrichtigung Doppelklick (Original from Chaoskeks [in ChaosExecution])
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return 0
$code = DllStructGetData($tagNMHDR, 3)
If $wParam = $listview Then
;ConsoleWrite($code & @CRLF)
Switch $code
Case -3
If _GUICtrlListView_GetSelectedCount($listview) > 0 Then
For $i = 0 To _GUICtrlListView_GetItemCount($listview)
If _GUICtrlListView_GetItemSelected($listview, $i) Then
$aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
MsgBox(0, "Doppel-Klick auf ", $aItem[1] & @CRLF & @CRLF & $aItem[2])
EndIf
Next
EndIf
EndSwitch
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Du könntest dir auch überlegen, das ganze mit SQLite zu realisieren,
mfg (Auto)Bert
Darf ich denn nach 40min pushen
nein
Hier ein Beispiel um Items aus einer LV in eine andere zu ziehen:
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <File.au3>
;#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]Local $tZeit, $s1, $s2
[/autoit] [autoit][/autoit] [autoit]$main = GUICreate("Test Drag & Drop from LV1 to LV2 DblClick in LV1 with ContextMenu in LV1 (copies to ClipBoard", 600, 400)
$listview = GUICtrlCreateListView("Gruppe1| BlubText", 10, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
GUICtrlSetBkColor(-1, 0xE6E6FA) ; Hintergrundfarbe 1
$listview2 = GUICtrlCreateListView("Gruppe2 | BlubText", 230, 10, 200, 100, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE))
GUICtrlSetState($listview2, $GUI_DROPACCEPTED)
$hbtnInfo = GUICtrlCreateButton("Info", 10, 120, 100, 20)
$hbtnSave = GUICtrlCreateButton("&Speichern", 230, 120, 100, 20)
$hbtnLoad = GUICtrlCreateButton("&Laden", 230, 150, 100, 20)
For $i = 1 To 9
$listitem = GUICtrlCreateListViewItem("test" & $i & " |Blub " & Random(1, 9), $listview)
if $i=5 Then GUICtrlSetFont($listitem,14,800)
GUICtrlSetBkColor(-1, 0xcccccc) ; Hintergrundfarbe 2
Next
$idContextmenu = GUICtrlCreateContextMenu($listview)
$idClipmenu = GUICtrlCreateMenuItem("Selektierte ins ClipBoard", $idContextmenu)
$idAllClipmenu = GUICtrlCreateMenuItem("Alle aus Splate 2 ins ClipBoard", $idContextmenu)
$idDragmenu = GUICtrlCreateMenuItem("In LV 2", $idContextmenu)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;<=========================================== Bemachrichtigung Doppelklick
GUISetState()
$first = True
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_DROPPED, $idDragmenu
$ar = _GUICtrlListView_GetSelectedIndices($listview, True)
;_ArrayDisplay($ar)
For $i = 1 To $ar[0]
$sItem = _GUICtrlListView_GetItemTextString($listview, $ar[$i])
GUICtrlCreateListViewItem($sItem, $listview2)
Next
Case $hbtnInfo
$Wert = _GUICtrlListView_GetItemTextArray($listview)
If $Wert[2] <> "" Then
MsgBox(0, "Eintrag für " & $Wert[1], "ist: " & $Wert[2])
Else
MsgBox(0, "", "Kein Eintrag ausgewählt")
EndIf
Case $hbtnSave
SaveLV(@ScriptDir & "\LV2.DAT")
Case $hbtnLoad
LoadLV(@ScriptDir & "\LV2.DAT")
Case $idClipmenu
$aItems = _GUICtrlListView_GetSelectedIndices($listview, True)
$sItemText = ""
For $i = 1 To $aItems[0]
;Schleifenbeginn 1 da $aItem[0] die Anzahl enhält
$sItemText &= _GUICtrlListView_GetItemTextString($listview, $aItems[$i]) & @CRLF
ConsoleWrite($sItemText & @CRLF)
Next ;= > weiter mit For
;ClipPut($sItemText & @CRLF)
Case $idAllClipmenu
$sToClip = ""
For $i = 0 To _GUICtrlListView_GetItemCount($listview)
$aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
$sToClip &= $aItem[2] & @CRLF
Next
ClipPut($sToClip)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func SaveLV($sFile)
Local $hFileOut, $aItem
$hFileOut = FileOpen($sFile, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($listview2) - 1
$aItem = _GUICtrlListView_GetItemTextString($listview2, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>SaveLV
Func LoadLV($sFile)
Local $aItems
If FileExists($sFile) Then
_FileReadToArray($sFile, $aItems)
If IsArray($aItems) Then
_GUICtrlListView_DeleteAllItems($listview2)
;_ArrayDisplay($aItems)
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $listview2)
Next
EndIf
EndIf
EndFunc ;==>LoadLV
Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam) ;<================== Benachrichtigung Doppelklick (Original from Chaoskeks [in ChaosExecution])
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return 0
$code = DllStructGetData($tagNMHDR, 3)
If $wParam = $listview Then
;ConsoleWrite($code & @CRLF)
Switch $code
Case -3
If _GUICtrlListView_GetSelectedCount($listview) > 0 Then
For $i = 0 To _GUICtrlListView_GetItemCount($listview)
If _GUICtrlListView_GetItemSelected($listview, $i) Then
$aItem = _GUICtrlListView_GetItemTextArray($listview, $i)
MsgBox(0, "Doppel-Klick auf ", $aItem[1] & @CRLF & @CRLF & $aItem[2])
EndIf
Next
EndIf
EndSwitch
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
mfg (Auto)Bert
