Beiträge von autoBert

**autoBert**

Hallo blubstar,

dieses Skript wurde noch nie gestartet, denn

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Examples\Tests\lv_DisableItems.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>19:52:31 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\lv_DisableItems.au3(11,34) : WARNING: $GUI_DISABLE: possibly used before declaration.
	GUICtrlSetState(-1, $GUI_DISABLE)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\lv_DisableItems.au3(11,34) : ERROR: $GUI_DISABLE: undeclared global variable.
	GUICtrlSetState(-1, $GUI_DISABLE)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\lv_DisableItems.au3 - 1 error(s), 1 warning(s)
!>19:52:33 AU3Check ended.rc:2
>Exit code: 0    Time: 4.568

Alles anzeigen

so fuktionierts

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIListView.au3>
$GUI = GUICreate("GUI", 600, 300)
$ListView = GUICtrlCreateListView("Test", 10, 10, 580, 280, $WS_BORDER, BitOR($LVS_EX_FULLROWSELECT , $LVS_EX_CHECKBOXES))
_GUICtrlListView_SetColumnWidth($ListView, 0, $LVSCW_AUTOSIZE_USEHEADER)

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

Local $aTest[5] = ["test1", "test2", "test3", "test4", "test5"]
For $i = 0 To 4
GUICtrlCreateListViewItem($aTest[$i], $ListView)
GUICtrlSetState(-1, $GUI_DISABLE) ; <-- zeigt keine Wirkung, Checkboxen noch anklickbar.
Next

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

GUISetState(@SW_SHOW)
While True
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
if _GUICtrlListView_GetItemChecked($ListView, 2) Then _GUICtrlListView_SetItemChecked($ListView, 2, False)
WEnd

[/autoit]

Test3 ist nicht anwählbar,

mfg (Auto)Bert

**autoBert**

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$CDTest = GUICreate("CDTest", 139, 120, 192, 124)

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

$aDrives = DriveGetDrive("CDROM")
For $i = 1 To $aDrives[0]
$cd = StringUpper($aDrives[$i]) & @CRLF
Next
GUICtrlCreateCombo($cd,5,5,120)
GUISetState()

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

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

[/autoit]

**autoBert**

Wie wäre es mit dembisherigen Script,

mfg (Auto)Bert

**autoBert**

Hallo Latemail,

teste es einmal so:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <GuiEdit.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>

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

Opt("TrayIconDebug", 1) ; 0=keine Info, 1=Debug Zeileninfo
Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert
Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration
Opt("GUICloseOnESC", 1) ; 1=ESC beendet, 0=ESC schließt nicht

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

; Variablen - Definition #################################################################################################################
Global $Paused, $Pausedtext = "- - Pause - -"
Global $Gui, $Treeview, $Progress1, $Button1, $Edit
Global $Datacount = 1, $aData[$Datacount][6]

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

; Haupt - Programm #######################################################################################################################

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

_Gui()
_Laufwerke()

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

While 1
Sleep(100)
WEnd

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

; GUI - Definition #######################################################################################################################
Func _Gui()
Local $iStyle = BitOR($TVS_HASBUTTONS, $TVS_LINESATROOT, $TVS_HASLINES, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_SINGLEEXPAND ) ; $TVS_NOHSCROLL $TVS_NOHSCROLL
$Gui = GUICreate("Gui", 700, 500, 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ende")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_Click")
$Treeview = _GUICtrlTreeView_Create($Gui, 20, 20, 400, 400, $iStyle)

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

Local $hImage = _GUIImageList_Create(16, 16, 5, 1)
_GUIImageList_AddIcon($hImage, 'shell32.dll', 4) ; Verzeichnis-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
_GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
_GUIImageList_AddIcon($hImage, 'shell32.dll', 6) ; Diskette
_GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
_GUIImageList_AddIcon($hImage, 'shell32.dll', ; Festplatte
_GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
_GUIImageList_AddIcon($hImage, 'shell32.dll', 9) ; Netzwerklaufwerk
_GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
_GUICtrlTreeView_SetNormalImageList($Treeview, $hImage)

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

$Edit = GUICtrlCreateEdit("",460, 20, 200, 400)
$Progress1 = GUICtrlCreateProgress(20, 450, 400, 25)
$Button1 = GUICtrlCreateButton("- Test -", 500, 450, 100, 30)
GUICtrlSetOnEvent(-1, "_show")
GUISetState(@SW_SHOW)
EndFunc

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

; Laufwerk Funktionen ##################################################################################################################
Func _Laufwerke()
Local $Drives = DriveGetDrive( "all" ), $y, $iLWindex = 0
For $i = 1 To $Drives[0]
Local $belegt = Round((DriveSpaceTotal($Drives[$i])-DriveSpaceFree($Drives[$i])), 0)
If $belegt < 1000 Then
_GUICtrlEdit_AppendText($Edit, $Drives[$i] & " " & $belegt & " (MB)" & @CRLF)
Else
_GUICtrlEdit_AppendText($Edit, $Drives[$i] & " " & round($belegt/1024, 1) & " (GB)" & @CRLF) ;<=============
EndIf
Switch DriveGetType($Drives[$i])
Case 'Fixed'
$iLWindex = 5
Case 'CDROM'
$iLWindex = 6
Case 'RAMDisk'
$iLWindex = 7
Case 'Network'
$iLWindex = 7
Case 'Removable'
$iLWindex = 4
If StringLeft($Drives[$i], 2) = 'a:' Or StringLeft($Drives[$i], 2) = 'b:' Then $iLWindex = 3
Case Else
$iLWindex = 8
EndSwitch
; Local $Item = _GUICtrlTreeView_Add($Treeview, 0, $Drives[$i] & " " & DriveGetLabel($Drives[$i]), $iLWindex, $iLWindex)
Local $Item = _GUICtrlTreeView_Add($Treeview, 0, $Drives[$i] & " " , $iLWindex, $iLWindex)
GUICtrlSetData($Progress1, $i/$Drives[0]*100)
Sleep(200)
Next
GUICtrlSetData($Progress1, "")
EndFunc

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

Func _SubLaufwerke($lw, $parent)
Local $count = 0, $filesum = 0
_GUICtrlTreeView_DeleteChildren($treeview,$parent)
GUICtrlSetData($Progress1, $count)
Local $search = FileFindFirstFile($lw & "\*.*")
If $search = -1 Then Return
Local $file, $Item2, $parentold
FileChangeDir($lw)
While 1
$file = FileFindNextFile($search)
Local $ex = @extended
If @error Then
$parent = $parentold
ExitLoop
EndIf
If $count < 100 Then
$count += 1
GUICtrlSetData($Progress1, $count)
Else
$count = 0
GUICtrlSetData($Progress1, $count)
EndIf
If StringInStr(FileGetAttrib($file), "D") Or $ex = 1 Then
$Item2 = _GUICtrlTreeView_AddChild($Treeview, $parent, $file)
_GUICtrlTreeView_SelectItem ($Treeview, $Item2)
$parentold = $parent
$parent = $lw & "\" & $file
$Datacount += 1
ReDim $aData[$Datacount][6]
$aData[$Datacount-1][1] = $parent
Local $info = DirGetSize ( $parent, 1 + 2 ) ; erweiterter Modus aber ohne Unterverzeichnisse
$aData[$Datacount-1][3] = $info[0] ; $array[0] = Größe
$aData[$Datacount-1][4] = $info[1] ; $array[1] = Anzahl der Dateien
$aData[$Datacount-1][5] = $info[2] ; $array[2] = Anzahl der Verzeichnisse
_SubLaufwerke($parent, $Item2) ;<<=================== würde ich aus Performancegründen askommentieren
$aData[$Datacount-1][2] = $filesum ; Größer der Dateien im Verzeichnis
$parent = $parentold
Else
$filesum = $filesum + FileGetSize($file)
EndIf
WEnd
FileClose($search)
GUICtrlSetData($Progress1, "")
Return
EndFunc

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

; Allgemeine Funktionen ##################################################################################################################
Func _Click()
;~ _GUICtrlTreeView_BeginUpdate($treeview)
Local $a = GUIGetCursorInfo($Gui) ; Pos Cursor
Local $b = ControlGetPos($Gui, "", $Treeview) ; Pos des Tree-Controls
Local $e = _GUICtrlTreeView_HitTest($Treeview, $a[0]-$b[0] , $a[1]-$b[1])
If $e = 4 Or $e = 2 Then
Local $c = _GUICtrlTreeView_HitTestItem($Treeview, $a[0]-$b[0] , $a[1]-$b[1])
Local $d = _GUICtrlTreeView_GetTree($Treeview, $c)
$d = StringReplace($d," ","\")
$d = StringReplace($d,"|","\")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $d = ' & $d & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;$d = StringLeft($d, StringInStr($d, ":"))
_SubLaufwerke($d, $c)
_GUICtrlEdit_AppendText($Edit, "####### eingelesen ######" & @CRLF)
;If $d <> "" Then _GUICtrlTreeView_Expand($Treeview, $d, False)
EndIf
$aData[0][1] = $Datacount
;~ _GUICtrlTreeView_EndUpdate($treeview)
EndFunc

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

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

Func _Ende()
Exit
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Gres,

Zitat von Gres

Wenn ich an den Text der dargstellt wird rankommen würde, würde mir das ja auch schon helfen, dann kann man sich den Bereich ja rausziehen.

Hast du es schon mit ControlGetText versucht,

mfg (Auto)Bert

**autoBert**

Hallo Fawyer,

gut gemacht, du solltest aber keine scharfe Munition verwenden mein Display hat hinten schon Ausschusslöcher

**autoBert**

Hallo FireFlyer,

auch von mir herzliche Glückwünsche zu deinem 21. Geburtstag

mfg (Auto)Bert

**autoBert**

Hallo eistee,

ich habe das Beispiel von Raupi in [ gelöst ] Nicht sichtbare GUI etwas umgebaut:

Spoiler anzeigen

[autoit]

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

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

Global $hGUI, $pic, $path = @ScriptDir & "\ball.gif"

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

$x = x()
$y = y()

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

$hGUI = GUICreate("fk", $x, $y, (@DesktopWidth / 2) - 132, (@DesktopHeight / 2) - 132)
$pic = GUICreate("", $x, $y, 1, 1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $hGUI)
$picture= GUICtrlCreatePic($path, 0, 0, $x, $y,$SS_RIGHT)
$idlbl = GUICtrlCreateLabel("Hallo ich bin ein Label",145,135)
$idbtnExit = GUICtrlCreateButton("Be&enden",185,185)
WinSetTrans($hGUI, "", 0)

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

GUISetState(@SW_SHOW, $pic)
;GUISetState(@SW_DISABLE, $hGUI)
;WinSetOntop($pic,"",1)
;_WinAPI_SetWindowLong($pic,0xFFFFFFEC,BitOR(_WinAPI_GetWindowLong($pic,0xFFFFFFEC),0x00000020))

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

While 1

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

HotKeySet("^!x", "MeinExit")

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

$msg2 = GUIGetMsg()

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

Switch $msg2
Case $gui_event_close, $idbtnExit
Exit
EndSwitch
WEnd

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

Func x()
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($path)
$x = _GDIPlus_ImageGetWidth($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Return $x
EndFunc ;==>x

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

Func y()
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($path)
$y = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Return $y
EndFunc ;==>y

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

Func MeinExit()
Exit
EndFunc ;==>MeinExit

[/autoit]

dazu wird noch Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. benötigt,

mfg (Auto)Bert

**autoBert**

Hallo MrB,

das Beispiel von BugFix gibt den Inhalt der Zelle aus auf die geklickt wurde, entspricht also deinen Anforderungen

Zitat von MrB

So und nun möchte ich das z.B. bei einem Doppelklick auf eine Zelle (z.B. Zeile 2 Spalte 3) der Inhalt ausgelesen wird,damit ich ihn weiterverarbeiten kann.

wo ist also dein Problem,

mfg (Auto)Bert

**autoBert**

Hallo Eistee,

hier ein Beispiel von Oscar

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

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

Opt('MustDeclareVars', 1)
Opt('GUIOnEventMode', 1)

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

GUICreate('test', 640, 480, -1, -1, $WS_POPUP, BitOr($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_MoveWindow') ; zum bewegen des Fensters
GUISetOnEvent($GUI_EVENT_CLOSE,'_End')

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

GUICtrlCreatePic(@ScriptDir & '\transparent_backgr.gif', 0, 0, 640, 480) ; Hintergrundgrafik (alles transparente muss weiss sein)
GUICtrlSetState(-1, $GUI_DISABLE) ; damit die GUI-Elemente funktionieren

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

Global $btn0 = GUICtrlCreateButton('X', 450, 80, 25, 25)
GUICtrlSetOnEvent(-1, '_End')
Global $btn1 = GUICtrlCreateButton('Ein Button', 150, 150, 100, 30)
Global $btn2 = GUICtrlCreateButton('Noch ein Button', 350, 150, 100, 30)
GUICtrlCreateLabel('', 250, 200, 100, 50) ; Ein "Loch" in der GUI
GUICtrlSetBKColor(-1, 0xffffff) ; alles was die Farbe weiß hat, ist transparent
Global $inp = GUICtrlCreateInput('', 150, 300, 310, 20)
GUICtrlSetBKColor(-1, 0xfefefe) ; nicht ganz weiß, deshalb nicht transparent

GUICtrlCreatePic(@ScriptDir & '\transparent.gif', 0, 0, 1, 1) ; ein weißes 1x1 Pixel-GIF das für die Transparenz benötigt wird (nicht löschen)

GUISetState()

While 1
Sleep(50)
WEnd

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

Func _MoveWindow()
Local $DifX, $DifY, $MouseData = GUIGetCursorInfo(@GUI_WinHandle)
Local $WinPos = WinGetPos(@GUI_WinHandle)
Local $MPos = MouseGetPos()
$DifX = $MPos[0] - $WinPos[0]
$DifY = $MPos[1] - $WinPos[1]
Do
Sleep(15)
$MPos = MouseGetPos()
$MouseData = GUIGetCursorInfo(@GUI_WinHandle)
Until ($WinPos[0] <> ($MPos[0] - $DifX)) Or ($WinPos[1] <> ($MPos[1] - $DifY)) Or (Not $MouseData[2])
While $MouseData[2]
$MPos = MouseGetPos()
$WinPos = WinGetPos(@GUI_WinHandle)
If ($WinPos[0] <> ($MPos[0] - $DifX)) Or ($WinPos[1] <> ($MPos[1] - $DifY)) Then
WinMove(@GUI_WinHandle, '', $MPos[0] - $DifX, $MPos[1] - $DifY)
EndIf
Sleep(15)
$MouseData = GUIGetCursorInfo(@GUI_WinHandle)
WEnd
EndFunc

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

Func _End()
Exit
EndFunc

[/autoit]

ich habe mir das vor langer Zeit herntergeladen.

oder schau dir [ gelöst ] Nicht sichtbare GUI an

mfg (Auto)Bert

**autoBert**

Hallo chrisbyRRC,

warum nimmst du keine INI, damit wäre es einfacher,

mfg (Auto)Bert

**autoBert**

Hallo Jam00,

shayn hat eine Überwchungstool für die WebCam im Ordner Skripte gepostet,

mfg (Auto)Bert

**autoBert**

Hallo akleine,

lade dir (falls du es noch nicht hast) die Hilfe hernter und beginne dort bei Allgemeines zu AutoIt, danach arbeitest du dich dann durch das Kapitel Tutorials. Ganz wichtig sind die beiden nächsten Kapitel Sprachreferenz und GUI-Referenz. Im Kapitel Funktionsreferenz ist der wichtigste Punkt das Unterkapitel GUI, hier vor allem GUI-Control Erstellung und GUI-Control Veränderung,

mfg (Auto)Bert

**autoBert**

Hallo tklausl,

am einfachsten hast du es mit

[autoit]

_GUICtrlListView_GetItemTextArray

[/autoit]

, da es dir ohne Angabe des Indexes ein Array allen Spalten der aktiven Auswahl zurückgibt. Hierzu ein Beispiel-Skript (case $hbtnInfo):

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <File.au3>

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

;#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

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

$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)

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

For $i = 1 To 9
$listitem = GUICtrlCreateListViewItem("test" & $i & " |Blub " & Random(1, 9), $listview)
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)

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

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
$i = _GUICtrlListView_GetSelectedIndices($listview, True)
If $i[0] > 0 Then
$Wert = _GUICtrlListView_GetItemTextArray($listview, $i[1])
If $Wert[0] > 1 Then MsgBox(0, "", "Dein zweiter Eintrag 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

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

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

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

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

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

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

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von JuraX

Da ich mich mit gdi kaum auskenne wollte ich mal fragen ob mir jmd erklähren kann wie man eine outputangabe wie ich sie bisher habe (siehe bild) durch sowas ersetzen kann:
https://autoit.de/index.php?page…izer#post144797

Du hast doch mit den Skripten von eukalyptus Vorlagen, die du anpassen kannst,

mfg (Auto)Bert

**autoBert**

Zitat von Reaker

mit diesem _Crypt_DecryptFile ... wie siehts da ungefähr mit der Geschwindigkeit aus? -- eher langsam oder im Rahmen des Akzeptablen?

einfach mit den Beispielskripten in der Hilfe und den verschiedenen Algorytmen testen

mfg (Auto)Bert

**autoBert**

Hallo Reaker,

Zitat von Reaker

Darter Ich habe geschrieben dass ich nicht die komplette Datei einlesen möchte und dann den kompletten String wieder zu schreiben, sondern einfach nur einen Text am Ende der Datei hinzufügen zb! Das würde sonst viel zu lange dauern...

wenn du in den Anfang schreibst, überschreibst du ja Daten des Bildes, das dann warscheins unbrauchbar ist aber mindestens verfälscht ist, wie willst du den Ursprung wiederherstellen, woher weisst du dann was an dieser Stelle stand.

schau dir

[autoit]

_Crypt_EncryptFile
_Crypt_DecryptFile

[/autoit]

in der Hilfe an, vielleicht hast du dann eine bessere Idee

mfg (Auto)Bert

**autoBert**

Hallo jmewald,

ändere das Skript einmal so ab:

[autoit]

#include <file.au3>
#include <array.au3>
#include <INet.au3>
;Zielordner
$target = "c:\word\"
$file_ein = "C:\Word\Result.txt"
Global $files
Do
$files = _FileListToArray ($target, '*', 1)
Sleep (20)
Until $files <> 0
$Ergebnis = FileOpen($file_ein, 2)
Global $filestime[Ubound ($files)][2]
For $i = 1 to UBound ($files) - 1
$filestime [$i][0] = $files[$i]
; $filestime [$i][1] = FileGetTime($target & $files[$i],0,1) ;original
$filestime [$i][1] = FileGetTime($files[$i],0,1)
$zeile = $filestime[$i][0] & "," & $filestime[$i][1]
FileWriteLine($Ergebnis, $zeile & @CRLF)
$zeile =""
Next
FileClose($Ergebnis)

[/autoit]

und teste auf beiden Systemen,

mfg (Auto)Bert

**autoBert**

Hallo Aldi,

hier das Beispiel aus der Hilfe zu _GUIImageList_AddIcon :

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

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

Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $listview, $hImage
Local $exStyles = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)

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

GUICreate("ImageList: Icon hinzufügen", 400, 300)
$listview = GUICtrlCreateListView("", 2, 2, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle($listview, $exStyles)
GUISetState()

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

; Lädt die Bilder
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 131)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 168)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 137)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 146)
_GUICtrlListView_SetImageList($listview, $hImage, 1)

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

; Fügt die Spalten hinzu
_GUICtrlListView_AddColumn($listview, "Spalte 1", 120)
_GUICtrlListView_AddColumn($listview, "Spalte 2", 120)
_GUICtrlListView_AddColumn($listview, "Spalte 3", 120)

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

; Fügt die Items hinzu
_GUICtrlListView_AddItem($listview, "Zeile 1: Spalte 1", 0)
_GUICtrlListView_AddSubItem($listview, 0, "Zeile 1: Spalte 2", 1, 1)
_GUICtrlListView_AddSubItem($listview, 0, "Zeile 1: Spalte 3", 2, 2)
_GUICtrlListView_AddItem($listview, "Zeile 2: Spalte 1", 1)
_GUICtrlListView_AddSubItem($listview, 1, "Zeile 2: Spalte 2", 1, 2)
_GUICtrlListView_AddItem($listview, "Zeile 3: Spalte 1", 2)
_GUICtrlListView_AddItem($listview, "Zeile 4: Spalte 1", 3)
_GUICtrlListView_AddItem($listview, "Zeile 5: Spalte 1", 4)
_GUICtrlListView_AddSubItem($listview, 4, "Zeile 5: Spalte 2", 1, 3)
_GUICtrlListView_AddItem($listview, "Zeile 6: Spalte 1", 5)
_GUICtrlListView_AddSubItem($listview, 5, "Zeile 6: Spalte 2", 1, 4)
_GUICtrlListView_AddSubItem($listview, 5, "Zeile 6: Spalte 3", 2, 3)

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo autoitinstallermaker.

ich habe zwar kein Excel installiert, aber so sollte es klappen:

[autoit]

#include <Excel.au3>

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

;~ Dateipfad auf Variable speichern
$Speicherort = @ScriptDir & "\37.xls"
;~Datei am Speicherort sichtbar und auch als beschreibbar öffnen
$oExcel = _ExcelBookOpen(""& $Speicherort)
WinWaitActive("Microsoft Excel - 37.xls","1",False)

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

;~Zähle die Anzahl der Zeileninhalte
Do
$anzahl = $anzahl + 1
$Zeileninhalt = _ExcelReadCell($oExcel, $anzahl , 1)
ConsoleWrite($Zeileninhalt & @crlf) ;Ausgabe des Zellinhaltes zur Kontrolle
Until $Zeileninhalt <> ""
MsgBox(1,"Belegte Spalten","Es sind" & $anzahl "Spalten belegt") ;müsste Zeilen heissen
Exit

[/autoit]

mfg (Auto)Bert

Beiträge von autoBert

Listview mit Checkboxen, einzelne Items disablen

CD-Laufwerke in ComboBox anzeigen?

Timer Pausieren

TreeView - Items verändern Ihr Handle in Abhängigkeit vom Expand-Zustand

SAP Automatisierung im Hintergrund

OfficeKiller [Game-SpriteUDF]

Happy Birthday, FireFlyer

Lange nicht mehr aktiv transparenz mittlerweile möglich ?

Mal wieder ListView Probleme

Lange nicht mehr aktiv transparenz mittlerweile möglich ?

Aus Textdatei bestimmte Zahl auslesen

Microfon und Webcam abrufen

Tutorials und der gleichen

ListView, Ausgewähltes Element ausgeben

soundoutputanzeige

String in JPG schreiben

String in JPG schreiben

FileGetTime

ListView Einträge mit Icons

Excel Zeileninhaltzähler