VBScript može biti veoma koristan kod manipulacije slikama. Uz pomoć njega možemo kreirati animacije, menije (uz pomoć bitmapa), čak može poslužiti i za kreiranje igara. Ova vrsta mogućnosti može biti vrlo korisna zbog integracije VBSript skriptova u ASP stranice, pošto većina ASP programera radi upravo u ovom skript jeziku. Za primer, videćemo kako se barata slikama tj. kreiraćemo sliku koja se menja svaki put kada korisnik klikne iznad date slike. Za ovu svrhu koristićemo dva događaja „onMouseDown“ i „onMouseUp“. Prvo ćemo, u HTML stranici, kreirati image objekat (sliku).
<img src=“slika_isklj.gif“ name=“Slika1″
width=“50″ height=“50″ border=“0″ alt=““
onMouseDown=“Ukljuci()“ onMouseUp=“Iskljuci()“>
Kao što vidite, osim poznatih elemenata, tu smo još dodali dva poziva potprograma za ova dva događaja. Sama promena slika na stranici je vrlo jednostavna. Sve što je potrebno je da menjamo osobinu „src“ (source) objekta image.
Sub Ukljuci()
Slika1.src = „slika_uklj.gif“
End SubSub Iskljuci()
Slika1.src = „slika_isklj.gif“
End Sub
Kada posetilac stranice bude držao pritisnut levi taster miša izvor slike će biti „slika_uklj.gif“. Momentom kada posetilac otpusti taster miša osobina „src“ će dobiti vrednost „slika_isklj.gif“. Pošto se prethodna mogućnost ima manju upotrebnu vrednost u svakodnevnom kodiranju, videćemo sada primer za kojim gotovo svako ima potrebu, a vrlo je sličan ovom prethodnom. Radi se o tome da možemo da iskoristimo image objekat za modifikaciju i prikaz nekih vrsta podešavanja. Za tu svrhu probaćemo da promenimo status slike u trenutku kada korisnik klikne na nju.
<img src=“slika_isklj.gif“ name=“Slika2″
width=“50″ height=“50″ border=“0″ alt=““
onMouseDown=“Zameni()“>
Pošto smo izabrali pozivanje samo jedne potprocedure, biće potrebno da deklarišemo i inicijalizujemo varijablu koja će nam govoriti o statusu objekta image. Tu varijablu ćemo nazvati „Stanje“, i sadržaće vrednost „0“ kada je slika u „isključenom“ stanju, a u suprotnom sadržaće vrednost „1“ za stanje „uključeno“.
…
Dim Stanje
Stanje = 0
…
Sub Zameni()
If Stanje = 0 Then
Slika2.src = „slika_uklj.gif“
Stanje = 1
Else
Slika2.src = „slika_isklj.gif“
Stanje = 0
End If
End Sub
…
Sada imamo samo jedan image objekat sa dva stanja. Takođe, imamo i varijablu „Stanje“ koja odražava stanje slike. Ovo je samo varijacija prethodnog primera, a na vama i vašoj mašti ostaje da smislite i upotrebite, i složenije procedure od ovih.
Pratite Krstaricu na www.krstarica.com