VBScript – Kreiranje Help-a vezanog za linkove

Krstarica 8. decembar 2001. 00:00

U ovom prilogu videćete kako možete da svakom vašem linku na stranici dodate mali help koji će se prikazivati u statusnoj liniji. Za prikaz ćemo koristiti statusnu liniju browser-a, a prikaz će se aktivirati prelaskom pokazivača miša preko linka. Evo i samog programskog koda:



     <HTML>

     <SCRIPT LANGUAGE="VBScript">

     <!–

     Dim intTimer

     intTimer = -1
 Sub PrikaziHelp( intLink )

If intTimer <> -1 Then clearTimeOut intTimer

 Select Case intLink

Case 1 txtStatus.value =

"Otvaranje Internet Krstarice u trenutnom prozoru"

Case 2 txtstatus.value =

"Otvaranje Microsoft-ove stranice u trenutnom prozoru"

End Select
 intTimer = setTimeOut

( "ObrisiHelp", 5000, "VBScript" )

End Sub
 Sub ObrisiHelp

txtStatus.value = ""

End Sub

–>

</SCRIPT>
 <A onMouseOver="PrikaziHelp 1" 
HREF="https://www.krstarica.com">Internet Krstarica</A><BR>

<A onMouseOver="PrikaziHelp 2" 
HREF="http://www.microsoft.com">Microsoft</A>

</HTML>

U prethodnom primeru vidimo obrađivač događaja nazvan „PrikaziHelp“ koji je „pogođen“ događajem onMouseOver, koji se dešava kada pokazivač miša pređe iznad dva deklarisana linka na stranici. Evo kako povezati događaj onMouseOver linka sa obrađivačem događaja:



<A onMouseOver="PrikaziHelp 1" HREF=URL >

Ova linija govori browser-u da pozove funkciju „PrikaziHelp“ kada korisnik pređe mišem preko datog linka. Proceduri se takođe prosleđuje i parametar „1“. Zapazite da svaki link prosleđuje različite vrednosti obrađivaču događaja. Ovaj parametar omogućava obrađivaču događaja da tačno odredi iznad kog linka se nalazi pokazivač miša korisnika.

Sam obrađivač događaja je vrlo jednostavan. On dodaje poruku text-box-u koji se prikazuje na web stranici. Nakon nekoliko sekundi, poruka se briše korišćenjem metode setTimeOut objekta window.

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.

programiranje