Arnaud,
I just added this in the CompareRows event of the listbox:
Select case column
Case 1 // This is a string column. Let the listbox manage it by
returning false
Return False
Case 0,2 // This is our numerical value columns. Let's do the work
ourselves
result = Sign(Val(me.Cell(row1, column)) - Val(me.Cell( row2, column)))
Return True
End Select
in order to sort first and third columns numerically (adapted code from
the Language Reference example).
Jean-Luc Arnaud
Le 09/01/2015 11:30, Marnaud a écrit :
> Le 9 janv. 2015 à 11:19, Jean-Luc Arnaud <[email protected]> a écrit:
>
>> Yes, of course!
>> Your help is greatly appreciated.
>>
>> May I know where these codes could be found? In the future, I could need
>> codes for other functions keys.
>>
>> Many thanks.
> Well, some years ago, I made my own app for that. On a window, put a listbox
> with 3 columns and an heading (“Key code”, “Key” and “Key ascii”) and a timer
> (period=1, mode=2). In the open event (in my example, in the window), have
> this:
> dim i As integer
> dim s As String
>
> //Fill the list with every key (for searching manually):
> for i=0 to 127 //Cover all standard keys on the keyboard
> ListMain.AddRow str(i)
> s=Keyboard.KeyName(i)
> ListMain.Cell(i,1)=s
> if len(s)=1 then //That key produces a character, so it's ASCII value is
> known
> ListMain.Cell(i,2)=str(asc(s))
> else //For other keys (backspace, tab, etc.), (1) it's better to know
> its key code (sending the ASCII value has no sense) and (2), it would mean
> rewriting.
> ListMain.Cell(i,2)="?"
> end if
> Next
>
> In the timer.Action:
> dim i As integer
> dim j As integer
>
> //Check which keys are pressed (would fail if the key is pressed way too
> fast, but will that happen?)
> for i=0 to 126
> if Keyboard.AsyncKeyDown(i) then
> j=FindKeycode(i) //See below; looks for the entry of “i” in the list
> (it would be odd it's not in the list)
> if j=-1 then //Well, it's not in the list (?) so add it
> ListMain.AddRow str(i)
> j=ListMain.ListCount-1
> ListMain.Cell(j,1)=Keyboard.KeyName(i)
> ListMain.Cell(j,2)=str(asc(Keyboard.KeyName(i)))
> end if
> ListMain.ListIndex=j //Select the corresponding row
> do
> if not Keyboard.AsyncKeyDown(i) then Exit //Wait until the key is
> freed
> Loop
> end if
> Next
>
> Function FindKeycode(KeyCode As integer) As integer
> dim i As integer
>
> if ListMain.ListCount=0 then Return -1
> for i=0 to ListMain.ListCount-1
> if ListMain.Cell(i,0)=str(KeyCode) then Return i
> Next
> Return -1
> End Function
>
> (I could send you the project or app, but it's more complicated; tell me if
> you found something to improve).
> _______________________________________________
> Mbsplugins_monkeybreadsoftware.info mailing list
> [email protected]
> https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
>
>
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
