Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

listboxcellkeydown: wie kann ich die Cursortasten auslesen? (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Re: wie SQL-Tabelle leeren (nicht löschen!)??
Next thread: Re: wie SQL-Tabelle leeren (nicht löschen!) =3F??


Probleme mit String Bearbeitung   -   Markus Schnell
  listboxcellkeydown: wie kann ich die Cursortasten auslesen?   -   Roland Quadstege
   Re: listboxcellkeydown: wie kann ich die Cursortasten auslesen?   -   Roland Quadstege
   Re: listboxcellkeydown: wie kann ich die Cursortasten auslesen?   -   Christian Schmitz

listboxcellkeydown: wie kann ich die Cursortasten auslesen?
Date: 06.08.09 14:58 (Thu, 06 Aug 2009 15:58:56 +0200)
From: Roland Quadstege
Im listboxcellkeydown-event navigiere ich über Return und Tab durch
meine Zellen. Das klappt auch schon ganz gut.
Aber irgendwie kriege ich die Cursortasten nicht raus. Zwar sollten
die keycode stimmen (hier mal nur up und down), aber irgendwie sehe
ich keine Funktion - irgendwie doof. Hier mal der Quellcode.

if row<=listbox1.ListCount-1 and column <=listbox1.columncount-1 then
'
'
if key=chr(9) then
if column+1<=Listbox1.ColumnCount-2 then
column=column+1
else
column=0
row=row+1
end if
listbox1.editcell(row, column)
Return true
end if

if key=chr(13) and row<listbox1.listcount-1 then
column=0
row=row+1
listbox1.editcell(row, column)
Return true
end if

'' das geht irgendwie gar nicht?!?!?!

if key=chr(30) then 'up arrow
if row>=1 then
row=row-1
listbox1.editcell(row, column)
end if
Return true
end if

if key=chr(31) then 'down arrow
if row<listbox1.listcount then
row=row+1
listbox1.editcell(row, column)
end if
Return true
end if
'
'
end if




Re: listboxcellkeydown: wie kann ich die Cursortasten auslesen?
Date: 06.08.09 16:47 (Thu, 06 Aug 2009 17:47:05 +0200)
From: Roland Quadstege


Am 06.08.2009 um 16:27 schrieb Christian Schmitz:

>
> Am 06.08.2009 um 15:58 schrieb Roland Quadstege:
>
>> Im listboxcellkeydown-event navigiere ich über Return und Tab
>> durch meine Zellen. Das klappt auch schon ganz gut.
>> Aber irgendwie kriege ich die Cursortasten nicht raus. Zwar sollten
>> die keycode stimmen (hier mal nur up und down), aber irgendwie sehe
>> ich keine Funktion - irgendwie doof. Hier mal der Quellcode.
>>
>> if key=chr(9) then
>
> Das ist fehleranfällig. Besser:
>
> if asc(key)=9 then
>
>> if key=chr(30) then 'up arrow

das hat sofort geklappt. Vielen, vielen Dank für die schnelle Hilfe

Gruß

Roland

>
> Es kann halt sein, dass das Editfield den Event vor dir bekommt.
>
> Gruß
> Christian
>

Re: listboxcellkeydown: wie kann ich die Cursortasten auslesen?
Date: 06.08.09 15:27 (Thu, 6 Aug 2009 16:27:03 +0200)
From: Christian Schmitz

Am 06.08.2009 um 15:58 schrieb Roland Quadstege:

> Im listboxcellkeydown-event navigiere ich über Return und Tab durch
> meine Zellen. Das klappt auch schon ganz gut.
> Aber irgendwie kriege ich die Cursortasten nicht raus. Zwar sollten
> die keycode stimmen (hier mal nur up und down), aber irgendwie sehe
> ich keine Funktion - irgendwie doof. Hier mal der Quellcode.
>
> if key=chr(9) then

Das ist fehleranfällig. Besser:

if asc(key)=9 then

> if key=chr(30) then 'up arrow

Es kann halt sein, dass das Editfield den Event vor dir bekommt.

Gruß
Christian