Newsgroup: it.comp.lang.visual-basic
Titolo: flexgrid + rotellina

ciao a tutti c'è un modo per abilitare lo scorrimendo dei dati in una msflexgrid quando si usa la 
rotellina del mouse?  grazie

 rotellina del mouse?
Non l'ho provato, fammi sapere se e come va:
http://www.adit.co.uk/html/mousewheelsupport.html
--
ciao, hal
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

rotellina del mouse?  grazie
la rotella del mouse si può controllare con le api
guarda qui
http://www.elitevb.com/content/01,0053,01/
ciao
  Stefano


Io non sono il richiedente, ma ne avevo bisogno, va che č una meraviglia, 
l'ho sfrondato delle parti che non mi servivano e l'ho adoperato per lo 
scroll di una picture di provini molto lunga, e come noto le picture anche 
se munite di scroll bar non sentono la rotellina, l'ho applicata facendogli 
eseguire uno smallscroll su e giu della vscroll ti ringrazio mooolto ben 
fatto ed accurato, l'exe cresce solo di 10 KB - complimenti.
Cordialmente Peppe

 fatto ed accurato, l'exe cresce solo di 10 KB - complimenti.
Sono io che ringrazio te ;-)
L'ho cercata andando un po' a naso, impostando le parole chiave
relative alle chiamate che avrei provato a fare, ma non avevo
esperienza diretta. A questo punto credo che la usero` in un
paio di progetti dove effettivamente ne sentivo la mancanza.
Grazie per i test :-)
-- 
ciao, hal

 ha scritto nel messaggio
news:Kc03e.39721$Of5....@nntpserver.swip.net...

Ho cercato di usarla con una scrollbar verticale e una picture, ma mi da
errore "metodo non supportato ecc".
Forse non iserisco le chiamate alle routine negli eventi giusti, ma ho
seguito le instruzioni in inglese.
Ti dispiacerebbe dirmi in quali eventi inserire le chiamate alle routine.
Ciao Carmelo

 Ti dispiacerebbe dirmi in quali eventi inserire le chiamate alle routine.
No, non le hai seguite.
E` sufficiente seguire passo passo, come ho fatto io oggi, incoraggiato
dalla conferma di Peppe: in dieci minuti ho sottoclassato un intero 
progetto.
-- 
ciao, hal

 ha scritto nel messaggio 
news:zbc3e.20020$IN.4...@twister2.libero.it...

Eccoti la funzione come l'ho applicata:
Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam 
As Long, ByVal lParam As Long) As Long
    Dim hh, tp
    On Local Error GoTo esci
    If uMsg = WM_MOUSEWHEEL Then
        ' ##### Scroll direction #####
        'tame! = Timer + 0.5
        If (HiWord(wParam) / WHEEL_DELTA) < 0 Then
            'Scrolling down
            aum = 1
            'ig = 3
            'If Form4.Visible Then
            '   Form4.VScroll1.Value = Form4.VScroll1.Value + 
Form4.VScroll1.SmallChange
            'ElseIf Form2.Visible Then
            '   Form2.Mnu_Click (3)
            'End If
        Else
            aum = -1
            'ig = 2
        End If
        'If Form4.Visible Then
              Form4.VScroll1.Value = Form4.VScroll1.Value + aum * 
Form4.VScroll1.SmallChange
        '    ElseIf Form2.Visible Then
        '       Form2.Mnu_Click (ig)
        '       While tame! > Timer
        '       Wend
        '    End If
    Else
        'No messages handled, call original window procedure
        WndProc = CallWindowProc(GetProp(Form4.hwnd, "PrevWndProc"), hwnd, 
uMsg, wParam, lParam)
    End If
esci:
End Function
Spero sia chiaro
Le istruzioni apostrofate si riferiscono ad un altro scroll poi abbandonato 
perchč difficilmente calibrabile anche con un ritardo
Spero esserti stato utile
Se vuoi il programma di test con l'immagine dammi la tua email te lo 
spedisco.
Ciao Peppe

 
carme...@libero.it
Gentilissimo
Carmelo