Newsgroup: it.comp.appl.access
Titolo: MouseWheel gestione rotellina in senso antiorario

Il mio obiettivo è evidenziare un record in una maschera continua e
far scorrere il rigo evidenziato con la rotellina del mouse (in basso
girando in senso orario e in alto girando in senso antiorario).
Ho operato in questo modo:
- per evidenziare il record corrente ho usato la formattazione
condizionale (evento su corrente ID2 = ID)
- per fare scorrere in basso ho messo su evento MouseWheel
DoCmd.RunCommand acCmdRecordsGoToNext
Problema: ovviamente in questo modo anche se giro rotellina in senso
antiorario lo spostamento avviene sempre sul record successivo e nn su
quello precedente
Domanda: esiste un modo per intercettare il senso della rotellina
mouse (orario e antiorario) ?
In caso negativo è aggirabile in qualche modo il problema ?
Grazie.

 wrote in message 
news:2d9c3d04-3583-47bf...@f3g2000hsg.googlegroups.com...
Il mio obiettivo č evidenziare un record in una maschera continua e

In caso negativo č aggirabile in qualche modo il problema ?
Grazie.
====================================
Data una rotella con piano di rotazione verticale,
come determini il senso oarrio-antiorario del moto?
Bruno 

 ha scritto nel messaggio
news:2d9c3d04-3583-47bf...@f3g2000hsg.googlegroups.com...

Tratto dall'Help in relazione all'Evento MouseWheel di Form:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dove:
[Page]---->   True se la pagina è stata modificata.
[Count]--->   Il numero di righe di scorrimento della visualizzazione con la
rotellina del mouse.
Se questo non è sufficiente credo dovrai passare per il SubClassing,
intercettazione dei Messaggi relativi
al Mouse sono abbastanza semplici tra questi trovi:
MOUSEEVENTF_ABSOLUTE
'// mouse_event constants
Public Const MOUSEEVENTF_MOVE = &H1          '// mouse move */
Public Const MOUSEEVENTF_LEFTDOWN = &H2      '// left button down */
Public Const MOUSEEVENTF_LEFTUP = &H4        '// left button up */
Public Const MOUSEEVENTF_RIGHTDOWN = &H8     '// right button down */
Public Const MOUSEEVENTF_RIGHTUP = &H10      '// right button up */
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20   '// middle button down */
Public Const MOUSEEVENTF_MIDDLEUP = &H40     '// middle button up */
Public Const MOUSEEVENTF_XDOWN = &H80        '// x button down */
Public Const MOUSEEVENTF_XUP = &H100         '// x button down */
Public Const MOUSEEVENTF_WHEEL = &H800       '// wheel button rolled */
Public Const MOUSEEVENTF_VIRTUALDESK = &H4000 '// map to entire virtual
desktop */
Public Const MOUSEEVENTF_ABSOLUTE = &H8000   '// absolute move */
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:2d9c3d04-3583-47bf...@f3g2000hsg.googlegroups.com...

Secondo me non ha senso usare acCmdRecordsGoToNext
attraverso l'evento MouseWheel...infatti l'evento tiene conto se Count è 
positivo o negativo.
Se negativo la rotellina è stata girata in senso antiorario o, meglio, in 
avanti; se positivo la rotellina è stata spostata verso l'utilizzatore.
Da questo ne deriva che puoi sempre intercettare il valore di Count e agire 
di conseguenza
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
if count < 0 then
msgbox "Rotellina in avanti"
else
msgbox "Rotellina indietro"
end if
Ciao, Carlo


Per avanti intendo in senso antiorario ma rispetto al mouse anche se il 
record effettivamente va indietro...cosě per indietro...
Da ciň ne deriva che rispetto al record bisognerebbe scrivere:
 if count < 0 then
 msgbox "Un record dietro"
 else
 msgbox "Un record avanti"
 end if
 Ciao, Carlo

[omissis]
Ciao Carlo.
Hai letto questo post?
http://groups.google.com/group/microsoft.public.excel.programming/msg/4f7f9a9e3fe2583e
E' relativo ad una userform di Excel, ma il codice è riutilizzabilissimo.
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


Ciao Gabriele
il post non lo conoscevo ma la tecnica sì.
D'altra parte anche Alex proponeva un subclassing.
Potrebbe servire all'autore del primo post...che sembra scomparso...forse 
avrà trovato la soluzione.
Piuttosto vorrei approfittare per chiederti se puoi mandarmi la procedura 
per usare NSIS, visto che i siti collegati non hanno ancora provveduto alla 
pubblicazione.
Consigli di usare EclipseNSIS e EclipseNSIS InstallOptions?
Ciao, Carlo 

 skype:pbsoftsolution
Decisamente un bell'esempio... attenzione al SubClassing per i meno
esperti...
;-)
