Visual Basic – Animirani kursor

Krstarica 12. mart 2001. 00:00

Prikazaćemo vam kako da obogatite izgled (dizajn) vaše aplikacije pomoću animiranog kursora. Kada je program koji ste napisali zauzet proračunima ili drugim aktivnostima koje zahtevaju vreme, zašto ne biste zabavili korisnike tako što bi običan kursor zamenili sa animiranim.

Sve što je potrebno za korišćenje animiranog kursora, je programski kod koji ćemo vam predstaviti. Potrebno je da pozovete metodu „StartujAnimiraniKursor„, tako što joj prosledite naziv fajla (putanju) animiranog kursora. Kada želite da prestane data animacija i vrati se prvobitni izgled kursora, pozvaćete metodu „VratiStari„. Inače, animirane kursore možete pronaći svuda po vašem disku. Uputite upit (Find Files) kompjuteru i pretražite disk za svim fajlovima koji imaju ekstenziju „*.ani“ (najverovatije ćete neke pronaći u folderu „WindowsCursors„). Sam programski kod izgleda ovako (smestite ga u novi modul):



Private Declare Function LoadCursorFromFile Lib "user32" Alias _

  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetSystemCursor Lib "user32" _

  (ByVal hcur As Long, ByVal id As Long) As Long

Private Declare Function GetCursor Lib "user32" () As Long

Private Declare Function CopyIcon Lib "user32" _

  (ByVal hcur As Long) As Long
Private Const OCR_NORMAL = 32512

Public lngOldCursor As Long, lngNewCursor As Long
Public Sub StartujAnimiraniKursor(AniFajl As String)

lngOldCursor = CopyIcon(GetCursor())
 ‘provera da li string sadrzi potpunu putanju,

‘pa zatim puni kurzor iz fajla

‘Ako nije tako, kurzor se trazi na

‘putanji aplikacije (App.Path)
 If InStr(1, AniFajl, "") Then

lngNewCursor = LoadCursorFromFile(AniFajl)

Else

lngNewCursor = LoadCursorFromFile(App.Path & _

"" & AniFajl)

End If

‘Aktiviranje kurzora

SetSystemCursor lngNewCursor, OCR_NORMAL

End Sub
Public Sub VratiStari()

‘Vraca stari kurzor

SetSystemCursor lngOldCursor, OCR_NORMAL

End Sub

Kada ste dodali ovaj kod u modul, sledi pozivanje metode:



  StartujAnimiraniKursor("c:WindowsCursorsglobe.ani")

Opozivanje animiranog kurѕora ide sledećim jednostavnim pozivom procedure:



  VratiStari

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.

programiranje