Newsgroup: it.comp.appl.access
Titolo: Rotellina mouse....(GRRRRR)

Salve,
non so se è già stato prospettato questo problema:
In Access 97, in fase d'inserimento in una tabella tramite una maschera, se,
accidentalmente, si tocca la rotellina, Access impazzisce, scorrendo avanti
e indietro i records e non si ferma più costringendo la combinazione
CTRL+ALT+CANC per sospendere l'esecuzione.
C'è un modo per disabilitare la rotellina a parte quella da disabilitarla
dal software del mouse?
Grazie!
Marco.

 ha scritto nel messaggio
news:mYXo8.33944$pT1.9...@news1.tin.it...


Ciao,
senti, il codice funziona benissimo!!!! l'unico fastidio è che si deve
mettere in tutte le maschere e/o sottomaschere.
L'ho compilato senza nessuna difficoltà. Un po' macchinoso per inserirlo. Ci
vorrebbe un eseguibile che potrebbe piazzarlo nella maschera scelta, di
volta in volta, dall'utente.
Puo' darsi che uno smanettone di Visual Basic potrebbe realizzarlo ( io non
sono capace, ancora).
Ciao.
Marco.

 ha scritto nel messaggio
news:8I4q8.49676$S52.1...@news2.tin.it...

Ciao.
Anche io  non avuto problemi con la compilazione e l'inserimento, peccato
che il tutto non funzioni nelle sottomaschere, cioè sembrano bloccate. Puoi
controllare se hai lo stesso mio problema?
Io uso Access97 altrimenti avrei potuto evitare di fare una dll
Ciao

 Access 2000, ma dovrebbe andar bene anche per il 97)
cut
Scrivi dopo il quoting.
In A XP c'e' l'evento "SuRotellinaMouse".
Non ricordavo che in A2000 questo evento non ci fosse, mi pareva di averlo
visto.
Ciao
Sib

Ciao,
Vorrei sapere se hai realizzato la DLL per bloccare la rotellina.Io non ho
realizzato la DLL perchè non ho Visual Basic 6 per realizzarla.Con l'altro
metodo(senza DLL) sono riuscito a bloccare la rotellina, ma se cerco di
bloccarla anche nelle sottomaschere, quest'e ultime risultano inaccessibili
se clicco col mouse su un controllo in esse contenute e per spostarmi devo
usare il tasto TAB.
Se con la DLL non ci sono problemi, potresti inviarmela? Grazie mille!
"Re Artù" <lucchino@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:a8btar$q0d$1...@fe2.cs.interbusiness.it...


Purtroppo nelle sottomaschere non funge!!!
Se si inserisce il codice nella sottomaschera viene bloccata all'esecuzione.
Possibile che non ci sia un altro metodo?
Ciao.
Marco.

 Se con la DLL non ci sono problemi, potresti inviarmela? Grazie mille!
Ho realizzato una dll ma il problema nelle sottomaschere rimane ...
Ciao

"Re Artů" <lucchino@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:a8ee9u$4r$1...@fe2.cs.interbusiness.it...

Sembrerebbe che sono riuscito a risolvere il problema.
Come esempio considerate il seguente codice da inserire solo nella maschera
principale e non nelle sottomaschere:
Option Compare Database
Option Explicit
Public WithEvents clsMouseWheel As CMouseWheel 'Notate che ora č Public!!!
Private Sub Form_Load()
    Set clsMouseWheel = New CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
Private Sub Form_Close()
    clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing
End Sub
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
     MsgBox "You cannot use the mouse wheel to scroll through records."
     Cancel = True
End Sub
'Supponento di avere una sottomaschera che si chiama
'SottomascheraProva che carica la maschera Prova
'dovete attivare per essa i seguenti eventi
Private Sub SottomascheraProva_Enter() 'Evento: Su Invio
    clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing
    Set clsMouseWheel = New CMouseWheel
    Set clsMouseWheel.Form = Form_Prova
    clsMouseWheel.SubClassHookForm
End Sub
Private Sub SottomascheraProva_Exit(Cancel As Integer) 'Evento: Su Uscita
    clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing
    Set clsMouseWheel = New CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
Provate anche voi e fatemi sapere.

"Re Artů" <lucchino@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:a8ee9u$4r$1...@fe2.cs.interbusiness.it...

Provate a vedere quest'altro sito:
http://www.lebans.com/mousewheelonoff.htm

>     Set clsMouseWheel.Form = Form_Prova
Quasi tutto ok a parte questa riga: dove lo prendi form_prova?
Ciao

Ho notato e sperimentato che la .dll che si crea con il progetto Visual
Basic, memorizza, in fase di creazione, il percorso dove viene salvata.
Non funziona se si tenta di spostarla in un'altra directory e nemmeno su un
altro pc. Bisogna installare VB nel computer dove viene utilizzato, aprire
il progetto, creare una nuova dll e salvarla.
Mah! qualcuno sa indicare qualcosa in merito?
Grazie
Marco.

 ha scritto nel messaggio
news:Iu%q8.49986$pT1.1...@news1.tin.it...

Per spostarla su un'altra dir la devi poi registrare
Per metterla su un altro pc devi installare il run time di vb e poi
registrarla
ciao

"Prova" č il nome della maschera che ho inserito come sottomaschera nel form
principale.
L'oggetto sottomaschera si chiama "SottomascheraProva"
"Re Artů" <lucchino@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:a8hp95$a82$1...@fe1.cs.interbusiness.it...
