<img src="kvet2.jpg" width="40" height="27" id="obr2">
<img src="kvet3.jpg" width="40" height="27" id="obr3">
<img src="kvet1.jpg" width="200" height="135" id="prehliadac" border="2" >
dim obrazok
function SpustFilter(Obrazok)
Prehliadac.Style.Filter = "RevealTrans(duration=2,transition=1)"
prehliadac.Filters.Item(0).Apply
Prehliadac.Src=Obrazok
Prehliadac.Filters.Item(0).Play
end function
Sub obr1_onclick
SpustFilter obr1.src
End Sub
Sub obr2_onclick
SpustFilter obr2.src
End Sub
Sub obr3_onclick
SpustFilter obr3.src
End Sub
--></SCRIPT>
 |
 |
 |
Klikaj na malé obrázky.