[ Pannello di Controllo Moderatore ]
divx ha scritto: è una caratteristica piuttosto fastidiosa
lucky63 ha scritto:... potrebbe tornarti utile aggirare tale "problema" cliccando con il tasto SX del Mouse sulla "FrecciaGiù" presente nella parte bassa della barra di scorrimento verticale ...
Avanzi di una singola riga (ma non la posizione del cursore).
Sub Main
oDoc = ThisComponent
oCurrCntrl=oDoc.getCurrentController
vdata1 = oCurrCntrl.getViewdata
a = 0
vdParts1 = Split(vdata1(a), ";")
oVCurs = oCurrCntrl.getViewCursor()
oVCurs.goDown(1,false)
vdata2 = oCurrCntrl.getViewdata
vdParts2=Split(vdata2(a),";")
' messaggio=messaggio & chr(13) & vdata1 & chr(13) & vdata2
If vdParts2(4)>vdParts1(4) Then
increment=500
vdParts2(4)= clng(vdParts1(4))+increment
vdParts2(6)= clng(vdParts1(6))+increment
vdata2(a) = join(vdParts2, ";")
oCurrCntrl.restoreViewdata(vdata1)
' xray ThisComponent
messaggio=messaggio & chr(13) & vdata1 & chr(13) & vdata2
End if
'msgbox messaggio
End Sub
Visitano il forum: Nessuno e 3 ospiti