On Dec 27, 2005, at 11:41 AM, CV wrote:
On Dec 27, 2005, at 8:05 AM, Chuck Pelto wrote:
Is this possible? And how can I change the text in a listbox cell
without going through the system in the examples?
Yes. Write code in CellKeyDown to identify navigation keys and use
EditCell. The snippet below is an example of the type of code that
might be used, perhaps in a subclass of listbox. It was for a two
column box.
If key = chr(9) or key = chr(29) or key = chr(13) then 'tab key,
right arrow, return
'move to next available entry cell
If column + 1 <= me.columnCount - 1 then 'tab to next column
me.editCell row,column + 1
Elseif row + 1 <= me.listcount - 1 then 'currently in last
column, not about to exit
if column - 1 >= 0 then 'not in column 0 (must be in column 1)
If me.Cell(Row, 0) <> "" then 'if a variable name is entered
If me.Cell(Row,1) = "" then 'but no value, then
beep
msgBox "Please enter a value or delete the variable."
me.EditCell Row, 1
Else
me.editCell row+1, column - 1 'advance one row, to
column 0
End if
Else
me.editCell row + 1, column - 1 'advance one row, to
column 0
End if
End if
Elseif row + 1 > me.listcount - 1 then 'attempting to exit
list, so go back to start
me.editCell StartEditableRow,0
End if
return true
End if
I've established something akin to this. Here's the code in the
CellKeyDown event of the listbox in question:
dim nextCol as integer
// if key down is TAB go to next cell in row
if key = chr(9) or key = chr(29) then
if column < listBox1.ColumnCount then
nextCol = column + 1
me.EditCell(row, nextCol)
elseif column = istBox1.ColumnCount then
me.EditCell(row, 1)
end if
end if
Unfortunately, it does not seem to want to move the focus in the
listbox from one cell to the next.
Instead, what is happening is no matter what key is pressed, while in
the cell, it takes the focus to the next object in the window. In
this instance an edit field at the top of the page; as the listbox is
the last item on the page.
What's going on here? How is it fixed?
Regards,
Chuck
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
