Nella versione 2007 R2, trovo il seguente codice (pag. 315):
Function DragRow(Drag as DragItem, Row as Integer)
Drag.Text=Me.List(Row)+chr(13) //get the text
Return True //allow the drag
La funzione chr(13) dovrebbe servire a fare andare il cursore da capo, invece
quando provo a spostare una row di una listbox in un editfield il cursore si
mantiene alla fine della row.
Inoltre ho provato a trasportare una row tra due listbox, ma non funziona,
perchè.
Una ultima curiosità : in RB il codice è distribuito in diverse sezioni, esiste
un modo per vederlo per esteso tutto, come a volte capita nei debugger ?
Ciao a tutti.
Marco
|