Entre Rios, Argentina
Es util para utilizarlo sobre tableview o gridview, para desplazar la hoja hacia arriba o hacia abajo.
PUBLIC SUB TableViewclientes_MouseWheel()
IF (mouse.Delta = 1) THEN
TableViewclientes.ScrollX = TableViewclientes.ScrollX - 2 ' para desplazar la "hoja" hacia arriba
ENDIF
IF mouse.Delta = -1 THEN
TableViewclientes.ScrollX = TableViewclientes.ScrollX + 2 'para desplazar la "hoja" hacia abajo
ENDIF
END
IF (mouse.Delta = 1) THEN
TableViewclientes.ScrollX = TableViewclientes.ScrollX - 2 ' para desplazar la "hoja" hacia arriba
ENDIF
IF mouse.Delta = -1 THEN
TableViewclientes.ScrollX = TableViewclientes.ScrollX + 2 'para desplazar la "hoja" hacia abajo
ENDIF
END
