Die SHIFT-Taste will nicht...

[horsthorn]

'mit dem Code werden die Zeilennummern gezeigt:
ADDHOTKEY 400,40,0
ADDHOTKEY 410,38,0
'Damit werden nur Nullen für linie& gezeigt:
ADDHOTKEY 400,40,1
ADDHOTKEY 410,38,1
'der so:
ADDHOTKEY 400,40,16
ADDHOTKEY 410,38,16
'------------------------------------------------
IF MenuItem(400) | MenuItem(410)
VAR linie&=GetSelectedLine(listview&)
print linie&
ENDIF

Ich hätte aber gern die Zeilennummern (linie&) gewusst, wenn ich mit
SHIFT+Taste-runter oder SHIFT+Taste-rauf Zeilen im Listview& auswähle

[Frabbing]

Hat das was mit der Listview.dll zu tun? Hast du keinen lauffähigen Code, Horst?

[horsthorn]

Zitat von Frabbing

Hat das was mit der Listview.dll zu tun? Hast du keinen lauffähigen Code, Horst?

Hat was mit der Listview.dll zu tun
Ich will die Mehrfachauswahl der Zeilen (SHIFT+Richtungstaste) festhalten, um die ausgewählten Zeilenzahlen zu bekommen.
Lauffähigen Code muss ich erst noch erstellen.
Der Original-Code ist zu komplex...
Bitte warten... Bitte warten... Bitte warten...

[THFR]

@Horst, ich glaube du suchst GetCurSel(listview&).
Beispiel:

Declare listview&,lvdll&,text$,bytes&,x&,y&,z&
Def GetSysColor(1) !"USER32","GetSysColor"
$I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Nachträgliche Spalten-Textausrichtung (linksbündig/zentriert/rechsbündig)."
Window 0,0-600,600
Cls GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,$FFFFFF,-1,$31)
InsertColumn listview&,"1",80,0
InsertColumn listview&,"2",80,0
InsertColumn listview&,"3",80,0
InsertColumn listview&,"4",80,0
Whileloop 25
  SetItem listview&,"Nur","ein","Test","Eintrag"
EndWhile
AutoSortListview listview&,2
ShowListView(listview&,32,32,354,456)
InitMessages(%hwnd)
ADDHOTKEY 400,40,1
ADDHOTKEY 410,38,1
While 1
  waitinput
  Case %key=2:BREAK
  case (%menuitem=400) OR (%menuitem=410): print GetCurSel(listview&)
Wend
CloseMessages(%hwnd)
freedll lvdll&
End

Gruß Thomas

[horsthorn]

Hier ist mein schneller Code:
Listview-dll und listview_funktionen.inc sollten vor Ort sein.

DECLARE pfad$,text$
pfad$=GETDIR$("@")
DECLARE lvdll&,aus&,listview&,linie&,anz&,EE%
EE%=0
DECLARE bereich#
DIM bereich#,1024
lvdll&=USEDLL(pfad$+"\\LISTVIEW.DLL")
$I LISTVIEW_FUNKTIONEN.INC

PROC TEST_EINS 'das klappt
ADDHOTKEY 400,40,0
ADDHOTKEY 410,38,0
ENDPROC
PROC TEST_ZWEI 'das klappt nicht
ADDHOTKEY 400,40,1
ADDHOTKEY 410,38,1
ENDPROC
'-------------------------------------------------------
CLS
TEST_EINS
'TEST_ZWEI
INITMESSAGES(%HWnd)
aus&=CREATE("BUTTON",%hwnd,"Ende",500,5,100,25)
listview&=CreateListView(%hwnd,%hinstance,RGB(0,0,0),RGB(255,255,255),-1,$30)

InsertColumn listview&,"Vorname",100,0
InsertColumn listview&,"Name",100,0
InsertColumn listview&,"Wohnort",150,0

SetItem listview&,"Frank","Abbing","Ahaus"
SetItem listview&,"Roland","Hülsmann","Nussloch"
SetItem listview&,"Horst","Horn","Heidelberg"
SetItem listview&,"Dietmar","Horn","Hoyerswerda"
SetItem listview&,"Angela","Merkel","Berlin"

ShowListView(listview&,250,50,350,350)
anz&=GETCOUNT(listview&)
SELECTLINE(listview&,0,0)
WHILENOT EE%
WAITINPUT
IF MenuItem(400) | MenuItem(410)
linie&=GetSelectedLine(listview&)
GetItemText(listview&,bereich#,0,linie&)
text$=String$(bereich#,0)
PRINT linie&," ",text$
ENDIF
IF CLICKED(aus&)
DisPose bereich#
CLOSEMESSAGES(%hwnd)
FREEDLL lvdll&
END
ENDIF
ENDWHILE
end

[horsthorn]

@THFR

Das klappt ja tatsächlich
Wäre ich nie draufgekommen, in der Listview GetCursel() zu verwenden !
Danke

[THFR]

In Franks Listview sind die meisten Gridbox-Funktionen+Befehle einsetzbar (wenn nicht sogar alle?).

Gruß Thomas

[Frabbing]

Alle XProfan-Anweisungen für Gridboxen lassen sich auch auf Controls der Listview.dll ausführen.

[horsthorn]

Wie lautet die alte chinesische Weisheit:

Man kann so alt werden wie 'ne Kuh.
Man lernt immer noch dazu !

Großen Dank an euch !

[Frabbing]

La vache qui rit, Horst.

[horsthorn]

Immer noch besser wie LILA !