Ciao ha tutti, ho un problema con uno script vb e visto che sono alle prime armi vi chiedo aiuto.
si tratta di uno script che serve per ottenere l'effetto zoom su una immagine. Per come e' scritto funziona con i click del mouse. Io vorrei invece che funzionasse con due tasti della tastiera. Mi potete consigliare qualcosa? Vi incollo qua' lo script
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Dim DotL(24)
Dim DotT(24)
Dim MapWidth, MapHeight, MapLeft, MapTop
Dim i, Zebbie, framex, framez
MapWidth = 750
MapHeight = 598
i = 1
Zebbie = 1
Sub HideMap()
If i < 1000 then
MapWidth = MapWidth + 200
MapHeight = MapHeight + 200
ZooMap.style.width = MapWidth
ZooMap.style.height = MapHeight
ZooMap.style.left = MapLeft - 0
ZooMap.style.top = MapTop - 0
i = i + 1
Else
ZooMap.style.width = 750
ZooMap.style.height =598
MapWidth = 420
MapHeight = 340
MapLeft = 123
MapTop = 151
i = 1
End If
End Sub
Sub ShowMap()
If i < 1000 then
MapWidth = MapWidth - 150
MapHeight = MapHeight - 150
ZooMap.style.width = MapWidth
ZooMap.style.height = MapHeight
ZooMap.style.left = MapLeft - 0
ZooMap.style.top = MapTop - 0
i = i + 1
Else
ZooMap.style.width = 750
ZooMap.style.height = 598
MapWidth = 420
MapHeight = 340
MapLeft = -0
MapTop = -0
i = 1
End If
End Sub
-->
</SCRIPT>
<BODY bgcolor="white">
<DIV style="position:relative; width:420; height:340; align="center">
[img]C:/mappe/PA_c.GIF[/img]
Come vedete il tutto e' gestito da Onclick e Oncontextmenu