Visual Basic – Animirani kursor

 –  aลพurirano:  –  

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