zdrojový kód
<html>
<head>
<title>Java Script ze stránky - www.jaknaweb.com</title>
</head><body>
<p id=text style="font-size:10pt">Klikněte zde pro zvětšení</p>
<script LANGUAGE="VBScript">
Option Explicit
Sub text_onClick
Dim Temp, Size
Temp = text.style.fontSize
Temp = Left(Temp, Len(Temp) - 2)
Size = CInt(Temp) + 1
If Size > 24 Then Size = 8
Temp = CStr(Size) & "pt"
text.style.fontSize = Temp
End Sub
</script>
</table>
</body>
</html>
Vložil/Poslal/Autor: Admin
Funkčnost:
správna funkčnost zaručena pouze v IE 6