VBScript – Kreiranje Help-a vezanog za linkove

  –  

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 na www.krstarica.com