あとスクロールの移動量が10pxになったようなので、
一回のスクロール量が少なくなりましたね…
現状は回転角に関係なく±10pxのようなので、回転量に比例するサンプルを作ってみました
前に貼ってもらったコードが元なので改造して使ってください
*mousewheel
mx=mousex:my=mousey
//---改良点
y += ((wparam >> 16 & $FFFFFFFF)/120)*5
//---以上
/*---解説
(wparam >> 16 & $FFFFFFFF) では、120の倍数か120の負の倍数が帰ってきます
がしかし実際は120以外も帰ってくるようなのでまず120で割って角度をポイントで考えます
1角度1ポイントなのでホイールが5角度分動いたら5ポイントです(下スクロールでのポイントも-5とかになるだけです)
そしてポイント数を任意の数で掛けます この場合は5です
一角度ホイールが動き1ポイント*5pxなので一角度のスクロールでは5px動きます
五角度のホイールスクロールは5*5で25px動きます
---*/
if y>b-303:y=b-303
if y<-1:y=1
pos 8,50:gcopy 1,0,y,225,303 ;リスト
return
↓動作確認用
oncmd gosub *mousewheel, $20A
title ""
stop
*mousewheel
y += ((wparam >> 16 & $FFFFFFFF)/120)*5
title ""+y
return