Listview per doppelcklick

wolkenloser

Hallo, noch eine Frage zum vorhergehendem Script der Telefonliste.

Ich arbeite dort mit einer Liste:
Es ist ja quasi in der Listfunktion schon drin, daß beim Tippen direkt zu einem Treffer gesprungen wird.
Dieser ist dann auch automatisch "selektiert"

Aber wie bekommt man es hin, das man diesen Eintrag per DOPPELCKLICK weiterverarbeitet ?

**peethebee**

Hallo!

Das Stick´hwort für das englische Forum sollte "edit listview" sein, dann kannst du direkt die einzelne Zelle anpassen.

Viel Glück beim Suchen,
peethebee

wolkenloser

Jetzt dachte ich, wenn ich mal ein Problem hab bekomme ich mal einen Tip und dann das...

Ich kann ja mal Verona anrufen, die hat ja im Moment Stress mit Franjo und vielleicht findet Sie ja ein Antwort.....

wolkenloser

Ich muß doch mal eben einen Beitrag für umme schreiben, dann sind wir gleichauf
122 Stück

**GtaSpider**

herzlichen glückwunsch! schaff ich auch ürgendwann! würde mich aba auch mal interresieren also mit dem click.. guck noch mal ein bisschen im intrernet..

jonk

Zitat

Original von wolkenloser
Jetzt dachte ich, wenn ich mal ein Problem hab bekomme ich mal einen Tip und dann das...

Ich kann ja mal Verona anrufen, die hat ja im Moment Stress mit Franjo und vielleicht findet Sie ja ein Antwort.....

Was meinst Du denn genau mit verarbeiten... eine ähnliche Frage hattest Du ja schonmal im windows-unattended-forum gestellt. Willst Du die werte direkte in einer Liste bearbeiten?

Vielleicht hilft dier dieser link
aus dem englischen Forum weiter

wolkenloser

Ich meine Wenn ich den Eintrag (zeile) doppelklicke möchte ich den Datensatz (Zeile) auslesen und meiner Funktion für Doppelklick übergeben-.

Jetzt mache ich das so, das ich die Zeile markiere und dann auf einen Button "Bearbeiten" drücke.

Genau das soll per doppelklick funktionieren

jonk

hmm, dann sollte Dir folgendes Skript helfen... :

Code

#include <GuiListView.au3>
Global Const $THRESHOLD = Number(RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed"))
Global $TIMER = TimerInit()


$mainwindow = GuiCreate("MyGUI", 695, 508,(@DesktopWidth-695)/2, (@DesktopHeight-508)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)


$ts4_listview    = GUICtrlCreateListView ("ID|Datum|Name",15,80,250,300)
GuiSetState()


While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_PRIMARYDOWN
 _getLVItem_dbclick(
$ts4_listview)
Case Else
;;;
EndSelect
WEnd


Func _getLVItem_dbclick(ByRef $lvctrl)
Dim $MousePos = GUIGetCursorInfo()
If ($MousePos[4] == $lvctrl And GUICtrlRead($lvctrl) > 0 And _
_GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)) Then
 If TimerDiff($TIMER) <= $THRESHOLD Then
 FunktionDieZeilenVerabeitet($lvctrl)
 EndIf
 $TIMER = TimerInit()
EndIf
EndFunc


Func FunktionDieZeilenVerabeitet(ByRef $lv)
	if GuiCtrlRead(GUICtrlRead($lv)) = 0 Then
		return 0
	EndIf
	$a_rowdata = StringSplit(GUICtrlRead(GUICtrlRead($lv)),"|")


; in dem Array hast Du dann alle Felder der markierten Zeile... 


... usw. 
EndFunc

Alles anzeigen

wolkenloser

Hi,
Danke, das konnte ich gut in mein Script einbauen, auch wenn ich nicht ganz verstehe das in der Funktion macht ?

Code

> 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)

Also oben mußte dann das hinzu

Code

Global Const $THRESHOLD = Number(RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed"))
Global $TIMER = TimerInit()

Das GUI braucht auch einen anderen Aufruf

Code

GUICreate("Telefonlisten",540,315, 100,200,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

und eine Funktion:

Code

Func _getLVItem_dbclick(ByRef $lvctrl)
Dim $MousePos = GUIGetCursorInfo()
If ($MousePos[4] == $lvctrl And GUICtrlRead($lvctrl) > 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)) Then
	$timerdiff = TimerDiff($TIMER)	
	If $timerdiff <= $THRESHOLD Then
		bearbeiten()
	EndIf
 $TIMER = TimerInit()
EndIf


EndFunc

Alles anzeigen

Jetzt klappt es (fast) so wie ich es haben wollte.

Ein Problem besteht allerdings noch.
Wenn ich einen Datensat speichere oder hinzufüge wird im Array[1] eine Wert = "" hinzugefügt.
das gibt oben immer so häßliche Leerzeilen.

Hab ich da was übersehen, oder woher kommen die Leerzeilen ?

jonk

also mit:

Code

> 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)

wird nur sicher gestellt, dass wirklich die richtige Zeile erfasst wird. Also sowohl aktuell markiert ist und gleichzeit durch den MouseCursor ausgewählt war als doppelt geklickt wurde.

Zitat

Ein Problem besteht allerdings noch.
Wenn ich einen Datensat speichere oder hinzufüge wird im Array[1] eine Wert = "" hinzugefügt.
das gibt oben immer so häßliche Leerzeilen.

Die Leerzeile war schon vorher da , nur stand sie am Ende der Liste und war daher nicht weiter aufgefallen.
Du hast wahrscheinlich am Ende der csv-Datei eine Leere Zeile. Wenn Du den letzten Linebreak entfernst sollte die Leerzeile verschwinden. War jedenfalls bei mir so.

wolkenloser

Hallo, jetzt klappt es fast perfekt

ich habe noch was an der Einlesefunktion geändert, so das Leerzeilen direkt aus dem Array entfernt werden, so das diese nicht mehr auftauchen.

Es gibt bei mir aber noch das Problem, wenn ich einen Datensatz übernommen habe kommt es immer zu einem komischen Effekt wenn mann den ersten Eintrag anklickt (ein klick reicht schon)
Dann verdoppelt sich bei mir der letzte bearbeitete Eintrag immer wieder, und der Erste bleibt somit (mit der Maus) unerreichbar. Mit den Pfeiltasten geht es allerdings.

ich hab schon fas den Eindruck als wenn die Doppelcklickfunktion irgendwei nicht beendet wird....

Hier nochmal mein komplettes Script

C

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GuiListview.au3>


Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl  das Script gerade Ausführt
;~ #NoTrayIcon; AutoIt-Icon nicht im Windows-Tray-Bereich zeigen




dim $aRecords, $x, $listview, $name, $vorname, $tel, $mobil, $handy, $einfuegen, $Button1, $Button2, $uebernehmen, $nr, $x_n
Global Const $THRESHOLD = Number(RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed"))
Global $TIMER = TimerInit()






;~ $file = "C:\Centura3\publictelefon.csv"
$file = "C:\publictelefon.csv"


GUICreate("Telefonlisten",540,315, 100,200,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$listview 	= GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,520,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern 	= GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen 	= GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
$loeschen 	= GUICtrlCreateButton("Datensatz löschen",300,250,100,20)
$array	 	= GUICtrlCreateButton("Array anzeigen",410,250,100,20)


;---Editfeld
$name 		= GUICtrlCreateInput("Name",10, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$vorname 	= GUICtrlCreateInput("Vorname",100, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$tel 		= GUICtrlCreateInput("Telefon",190, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$mobil 		= GUICtrlCreateInput("Schnurlos",280, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$handy 		= GUICtrlCreateInput("Handy",370, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$Button1 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
$Button2 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
GUISetState()




;--- PROGRAMM ABLAUF


If Not _FileReadToArray($file, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf






;~ _ArrayDisplay($aRecords,"")
For $x = 1 to $aRecords[0]
	if $aRecords[$x] = "" Then 
		_ArrayDelete($aRecords,$x)
		$help = $aRecords[0]
		$aRecords[0]= $help-1
	Else	
		GUICtrlCreateListViewItem($aRecords[$x],$listview)
	EndIf
Next


; Ich zerstöre diese direkt wieder , weil sonnst immer direkt die Funktion für Button1 ausgeführt wird
; Vielleicht weiß jemand warum ?
GUICtrlDelete($Button1)
GUICtrlDelete($Button2)


While 1
$msg = GuiGetMsg()


Select
Case $msg = $GUI_EVENT_CLOSE
	ExitLoop


Case $msg = $GUI_EVENT_PRIMARYDOWN
	  _getLVItem_dbclick($listview)

case $msg = $bearbeiten
bearbeiten()	

case $msg = $speichern
speichern()


Case $msg = $anlegen
anlegen()


Case $msg = $Button1
uebernehmen()


Case $msg = $Button2
hinzufuegen()


Case $msg = $loeschen
loeschen()	


case $msg = $array
	_ArrayDisplay($aRecords, "Array Anzeigen")


Case Else
;~ 		;;;
EndSelect


WEnd


;--- PROGRAMM ABLAUF ende










;--- FUNKTIONEN




func bearbeiten()
$Button1 = GUICtrlCreateButton("übernehmen",460,280,70,20)
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
;~ MsgBox(0,"",$aRecords[$nr])
$Datensatz = StringSplit($aRecords[$nr],"|")
;~ MsgBox(0,"Datensatz hat n Elemente, n= ",$Datensatz[0])
If $Datensatz[0] > 1 Then GUICtrlSetData($name,$Datensatz[1])
If $Datensatz[0] > 1 Then GUICtrlSetData($vorname,$Datensatz[2])
If $Datensatz[0] > 2 Then GUICtrlSetData($tel,$Datensatz[3])
If $Datensatz[0] > 3 Then GUICtrlSetData($mobil,$Datensatz[4])
If $Datensatz[0] > 4 Then GUICtrlSetData($handy,$Datensatz[5])
;~ _ArrayDisplay($Datensatz,"")
EndFunc




Func speichern()
FileOpen($file,2 )
For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next	
EndFunc




func anlegen()
	MsgBox(4096,"Datensatz anlegen","Bitte die entsprechenden Felder füllen" & @CR & @CR & 'Dann "hinzufügen" auswählen')
$Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)	




EndFunc	


Func hinzufuegen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)
$new = $aRecords[0]+1
_ArrayInsert($aRecords,$new,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
$aRecords[0] = $new	
refresh()	
EndFunc	






Func uebernehmen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)


;~ MsgBox(0,"",$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
_ArrayDelete($aRecords,$nr)
_ArrayInsert($aRecords,$nr,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc






Func loeschen()
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1	
$new = $aRecords[0]-1


_ArrayDelete($aRecords,$nr)	
;~ _ArrayDisplay($aRecords,"")
$aRecords[0] = ""
;~ _ArraySort($aRecords)
$aRecords[0] = $new
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc	




func refresh()
$new = $aRecords[0]
$aRecords[0] = ""
_ArraySort($aRecords)
$aRecords[0] = $new


GUICtrlDelete($listview)
GUICtrlDelete($Button1)
GUICtrlDelete($Button2)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
EndFunc


Func _getLVItem_dbclick(ByRef $lvctrl)
Dim $MousePos = GUIGetCursorInfo()
If ($MousePos[4] == $lvctrl And GUICtrlRead($lvctrl) > 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)) Then
	$timerdiff = TimerDiff($TIMER)	
	If $timerdiff <= $THRESHOLD Then
		bearbeiten()
	EndIf
 $TIMER = TimerInit()
EndIf


EndFunc

Alles anzeigen

wolkenloser

Kann hier nochmal einer gucken woran es liegen kann, ich finde es einfach nicht :-((

Code

Es gibt bei mir aber noch das Problem, wenn ich einen Datensatz übernommen habe kommt es immer zu einem komischen Effekt wenn mann den ersten Eintrag anklickt (ein klick reicht schon)
Dann verdoppelt sich bei mir der letzte bearbeitete Eintrag immer wieder, und der Erste bleibt somit (mit der Maus) unerreichbar. Mit den Pfeiltasten geht es allerdings.

wolkenloser

Yippie , jetzt klappt alles.

Das Problem lag bei

Code

GUICtrlDelete($Button1)
GUICtrlDelete($Button2)

Ich machs jetzt mit
GUICtrlSetState($Button1, $GUI_HIDE) bzw
GUICtrlSetState($Button1, $GUI_SHOW)

Dann geht es :-))

C

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GuiListview.au3>


Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl  das Script gerade Ausführt




dim $aRecords, $x, $listview, $name, $vorname, $tel, $mobil, $handy, $einfuegen, $Button1, $Button2, $uebernehmen, $nr, $x_n
Global Const $THRESHOLD = Number(RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed"))
Global $TIMER = TimerInit()


;~ $file = "C:\Centura3\publictelefon.csv"
$file = "C:\publictelefon.csv"
GUICreate("Telefonlisten",540,315, 100,200,$WS_OVERLAPPEDWINDOW)
$listview 	= GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,520,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern 	= GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen 	= GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
$loeschen 	= GUICtrlCreateButton("Datensatz löschen",300,250,100,20)
$array	 	= GUICtrlCreateButton("Array anzeigen",410,250,100,20)


;---Editfeld
$name 		= GUICtrlCreateInput("Name",10, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$vorname 	= GUICtrlCreateInput("Vorname",100, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$tel 		= GUICtrlCreateInput("Telefon",190, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$mobil 		= GUICtrlCreateInput("Schnurlos",280, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$handy 		= GUICtrlCreateInput("Handy",370, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )


$Button1 	= GUICtrlCreateButton("übernehmen",460,280,70,20)
GUICtrlSetState($Button1, $GUI_HIDE)
;~ $Button1 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !


$Button2 	= GUICtrlCreateButton("hinzufügen",460,280,70,20)	
GUICtrlSetState($Button2, $GUI_HIDE)
;~ $Button2 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !


GUISetState()




;--- PROGRAMM ABLAUF


If Not _FileReadToArray($file, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf






;~ _ArrayDisplay($aRecords,"")
For $x = 1 to $aRecords[0]
	if $aRecords[$x] = "" Then 
		_ArrayDelete($aRecords,$x)
		$help = $aRecords[0]
		$aRecords[0]= $help-1
	Else	
		GUICtrlCreateListViewItem($aRecords[$x],$listview)
	EndIf
Next




While 1
$msg = GuiGetMsg()


Select
Case $msg = $GUI_EVENT_CLOSE
	ExitLoop


Case $msg = $GUI_EVENT_PRIMARYDOWN
	  _getLVItem_dbclick($listview)

case $msg = $bearbeiten
bearbeiten()	

case $msg = $speichern
speichern()


Case $msg = $anlegen
anlegen()


Case $msg = $Button1
uebernehmen()


Case $msg = $Button2
hinzufuegen()


Case $msg = $loeschen
loeschen()	


case $msg = $array
	_ArrayDisplay($aRecords, "Array Anzeigen")


Case Else
;~ 		;;;
EndSelect


WEnd


;--- PROGRAMM ABLAUF ende






;--- FUNKTIONEN




func bearbeiten()
;~ $Button1 = GUICtrlCreateButton("übernehmen",460,280,70,20)
GUICtrlSetState($Button1, $GUI_SHOW)
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
;~ MsgBox(0,"",$aRecords[$nr])
$Datensatz = StringSplit($aRecords[$nr],"|")
;~ MsgBox(0,"Datensatz hat n Elemente, n= ",$Datensatz[0])
If $Datensatz[0] > 0 Then GUICtrlSetData($name,$Datensatz[1])
If $Datensatz[0] > 1 Then GUICtrlSetData($vorname,$Datensatz[2])
If $Datensatz[0] > 2 Then GUICtrlSetData($tel,$Datensatz[3])
If $Datensatz[0] > 3 Then GUICtrlSetData($mobil,$Datensatz[4])
If $Datensatz[0] > 4 Then GUICtrlSetData($handy,$Datensatz[5])
;~ _ArrayDisplay($Datensatz,"")
EndFunc




Func speichern()
FileOpen($file,2 )
For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next	
EndFunc




func anlegen()
	MsgBox(4096,"Datensatz anlegen","Bitte die entsprechenden Felder füllen" & @CR & @CR & 'Dann "hinzufügen" auswählen')
;~ $Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)	
GUICtrlSetState($Button2, $GUI_SHOW)


EndFunc	


Func hinzufuegen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)
$new = $aRecords[0]+1
_ArrayInsert($aRecords,$new,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
$aRecords[0] = $new	
refresh()	
EndFunc	






Func uebernehmen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)


;~ MsgBox(0,"",$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
_ArrayDelete($aRecords,$nr)
_ArrayInsert($aRecords,$nr,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc






Func loeschen()
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1	
$new = $aRecords[0]-1


_ArrayDelete($aRecords,$nr)	
;~ _ArrayDisplay($aRecords,"")
$aRecords[0] = ""
;~ _ArraySort($aRecords)
$aRecords[0] = $new
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc	




func refresh()
$new = $aRecords[0]
$aRecords[0] = ""
_ArraySort($aRecords)
$aRecords[0] = $new


GUICtrlDelete($listview)
;~ GUICtrlDelete($Button1)
;~ GUICtrlDelete($Button2)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
EndFunc








Func _getLVItem_dbclick(ByRef $lvctrl)
Dim $MousePos = GUIGetCursorInfo()
If ($MousePos[4] == $lvctrl And GUICtrlRead($lvctrl) > 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)) Then
	$timerdiff = TimerDiff($TIMER)	
	If $timerdiff <= $THRESHOLD Then
		$TIMER = TimerInit()
		bearbeiten()
	EndIf
 $TIMER = TimerInit()
EndIf


EndFunc

Alles anzeigen