Hallo an alle LISTVIEW.DLL-Experten
Mit dem nachfolgenden Code frage ich für zwei Listviews den Einzelklick ab.
Das funktioniert auch prima
Anders ist es, wenn aus Versehen auf einen Datei-Eintrag, CHR$(160), ein Doppelklick gemacht wird.
Dann kommt eine Fehlermeldung und der PC friert ein !
Wie kann ich den irrtümlichen Doppelklick abfangen.
Der Doppelklick hat aber ebenfalls eine Abfrageprocedur...
Code
PROC EINZELKLICK_FRAGEN
einzel&=GetSelected(itemtexts#,addr(y&))
IF einzel&
IF y&=LINKS_VIEW&
status$="LINKS"
nr%=GetSelectedLine(LINKS_VIEW&)
Dim bereich#,32768
GetItemTextEx(LINKS_VIEW&,bereich#,0,nr%,32768)
datei$=String$(bereich#,0)
Dispose bereich#
IF LEFT$(datei$,1)=CHR$(160)
datei$=TRANSLATE$(datei$,CHR$(160),"")
weg$=path1$+CHR$(92)+datei$
shell "rundll32.exe url.dll,FileProtocolHandler "+weg$
SHOWWINDOW(%HWnd,1)
ENDIF
ENDIF
IF y&=RECHTS_VIEW&
status$="RECHTS"
nr%=GetSelectedLine(RECHTS_VIEW&)
Dim bereich#,32768
GetItemTextEx(RECHTS_VIEW&,bereich#,0,nr%,32768)
datei$=String$(bereich#,0)
Dispose bereich#
IF LEFT$(datei$,1)=CHR$(160)
datei$=TRANSLATE$(datei$,CHR$(160),"")
weg$=path2$+CHR$(92)+datei$
shell "rundll32.exe url.dll,FileProtocolHandler "+weg$
SHOWWINDOW(%HWnd,1)
ENDIF
ENDIF
ENDIF
ENDPROC
Alles anzeigen