VBScript – Manipulacija slikama

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 Sub

Sub 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