Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

mouse over efekt

[es] :: Visual Basic 6 :: mouse over efekt

[ Pregleda: 3155 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dimitar Spiroski
Dimitar spiroski
Macedonia

Član broj: 133487
Poruke: 23
62.162.91.*



Profil

icon mouse over efekt06.03.2007. u 20:37 - pre 179 meseci
Stavim sliku u vb i hocu kad se pointerom(mausom) premine nad sliku da se nesto desi.BArao sam mouse over efekt ali nema takvog.
i, me and my self
 
Odgovor na temu

Pekunio
Pedja Vasic
Cacak

Član broj: 129744
Poruke: 16
*.smin.sezampro.yu.



+4 Profil

icon Re: mouse over efekt06.03.2007. u 20:41 - pre 179 meseci
Code:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox ("Presli ste misom preko slike"), (vbInformation), ("Informacija")
End Sub
 
Odgovor na temu

Dimitar Spiroski
Dimitar spiroski
Macedonia

Član broj: 133487
Poruke: 23
62.162.91.*



Profil

icon Re: mouse over efekt06.03.2007. u 20:50 - pre 179 meseci
ma ne tako.Na pr.
Ocu kad preminum na sliku d se druga slika pojavi a kad trgnem maus od slike da se vrati na staro!



p.s oprostite na greske ali ja sam iz makedonije
i, me and my self
 
Odgovor na temu

Pekunio
Pedja Vasic
Cacak

Član broj: 129744
Poruke: 16
*.smin.sezampro.yu.



+4 Profil

icon Re: mouse over efekt06.03.2007. u 21:00 - pre 179 meseci
mmm ne znam kako da ti pomognem,ali sam umesto onoga MsgBox... upisi kod da vrati na staru sliku...
 
Odgovor na temu

Dimitar Spiroski
Dimitar spiroski
Macedonia

Član broj: 133487
Poruke: 23
62.162.91.*



Profil

icon Re: mouse over efekt06.03.2007. u 21:45 - pre 179 meseci
nije to kako sto ocu.
i, me and my self
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: mouse over efekt06.03.2007. u 22:01 - pre 179 meseci
Vidi ovo...
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: mouse over efekt06.03.2007. u 23:30 - pre 179 meseci
stavi na formu PictureBox (Picture1) i podesi mu Enabled na False (eventualno mozes da mu podesis Border na vbNone) i stavi neku sliku u njega, dodaj sledeci kod:
Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X >= Picture1.Left And X <= Picture1.Left + Picture1.Width And _
       Y >= Picture1.Top And Y <= Picture1.Top + Picture1.Height Then

        If Picture1.Tag <> "mouse in" Then
            
          Picture1.Tag = "mouse in"

          ' ovde stavi sta ce da se desava kada misom predjes preko slike:
          Set Picture1.Picture = LoadPicture("over.bmp")

        End If

    Else
        
        If Picture1.Tag = "mouse in" Then
          
            Picture1.Tag = ""          


            ' a ovde stavi sta ce da se desava kada je mis izasao iz okvira slike (mouseout):
            Set Picture1.Picture = LoadPicture("norm.bmp")

        End If       

    End If
End Sub

za ovaj kod ti trebaju dve slike over.bmp i norm.bmp koje treba da se nalaze u istom folderu u kom i exe (projekat)....
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: mouse over efekt07.03.2007. u 00:54 - pre 179 meseci
Krckova varijanta je dobra, ali ako se primeni, recimo, na CommandButton...itd..??? Objekat je nefunkcionalan.
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: mouse over efekt07.03.2007. u 17:11 - pre 179 meseci
pa covek je trazio za sliku :)

elem, ako hoce da pravi "cool ui" (tj nestandardne kontrole) onda moze sve preko klasa, da napravi klasu koja ce da mu emulira PictureBox, klasu koja ce da emulira command button (jedino je mali problem sa textbox-om, ali nije ne resiv) itd

kad uhvatim tri-cetiri sata slobodnog vremena napisacu neki kratak tutorial na tu temu (jer je ranije bilo dosta tema o tzv "skinovanju" kontrola)
 
Odgovor na temu

Dimitar Spiroski
Dimitar spiroski
Macedonia

Član broj: 133487
Poruke: 23
62.162.91.*



Profil

icon Re: mouse over efekt07.03.2007. u 19:37 - pre 179 meseci
Citat:
dennycd2: Vidi ovo...

yeste to rabote i svidza mi se ali slabo kapiram kod.Jel mozes d mi ga objasnis?
i, me and my self
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: mouse over efekt08.03.2007. u 16:28 - pre 179 meseci
Code:
 
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        
        If X >= 0 And Y >= 0 And X <= Picture1.Width And Y <= Picture1.Height Then 'Uslov
            Picture1.Picture = Picture2.Picture ' Slika iz Picture 2 se učitava u Picture 1
            SetCapture Picture1.hwnd ' Startuj API f-ciju tzv. hvatanja Picture 1 (ovde pogledaj u helpu šta znači hwnd svojsvo)
        Else
             Set Picture1.Picture = LoadPicture("") 'Kada nije ispunjen uslov setuj praznu sliku u Picture 1
            ReleaseCapture ' Startuj API f-ciju tzv. osloboađanja Picture 1
        End If
        
End Sub


Suština je u tome da se svojstvo Picture1.Picture vezuje za događaj Picture1_MouseMove.
 
Odgovor na temu

Dimitar Spiroski
Dimitar spiroski
Macedonia

Član broj: 133487
Poruke: 23
62.162.91.*



Profil

icon Re: mouse over efekt08.03.2007. u 18:19 - pre 179 meseci
Citat:
dennycd2:
Code:
 
[b]Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long[/b]

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        
        If X >= 0 And Y >= 0 And X <= Picture1.Width And Y <= Picture1.Height Then 'Uslov
            Picture1.Picture = Picture2.Picture ' Slika iz Picture 2 se učitava u Picture 1
            SetCapture Picture1.hwnd ' Startuj API f-ciju tzv. hvatanja Picture 1 (ovde pogledaj u helpu šta znači hwnd svojsvo)
        Else
             Set Picture1.Picture = LoadPicture("") 'Kada nije ispunjen uslov setuj praznu sliku u Picture 1
            ReleaseCapture ' Startuj API f-ciju tzv. osloboađanja Picture 1
        End If
        
End Sub


Suština je u tome da se svojstvo Picture1.Picture vezuje za događaj Picture1_MouseMove.



hvala ti puno ali ove api funkcije(beginer sam pa ne se razumem u api funkcije) ne razumem.JEl mozez da uplaodiras msnd jer ja ja nemam.Kazi mi link za download na licnu poruku
i, me and my self
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: mouse over efekt08.03.2007. u 20:23 - pre 179 meseci
Ozbiljijeg rada u VB nema bez MSDN-a. Link za download nemam. Možda bi neko drugi mogao da pomogne ....!?
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: mouse over efekt08.03.2007. u 22:22 - pre 179 meseci
za upoznavanje sa API funkcijama za pocetak predlazem API Guide (imash link u TOP temi) a kasnije ce ti biti potrebni (naravno ako krenes ozbiljno da koristis API funkcije) API Viewer (isto imash link u TOP-u) i eventualno Win32 Programmer's Reference (stari HLP, ali ja ga jos uvek koristim, i to ne samo (i retko) kad radim u vb-u)...

Citat:

Ozbiljijeg rada u VB nema bez MSDN-a

evo ja i dan danas ne posedujem MSDN (niti posecujem online verziju, doduse mozda me nekad neki search baci na neku stranicu msdn-a) a evo "dogurao" sam do nivoa znanja da mogu drugima da pomazem (koliko-toliko) i da delim savete, znaci sve se moze kad se hoce :D (naravno u nedostatku msdn-a internet i es su najbolje resenje, bar u mom slucaju je tako bilo)
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: mouse over efekt08.03.2007. u 23:29 - pre 179 meseci
Citat:
(naravno u nedostatku msdn-a internet i es su najbolje resenje, bar u mom slucaju je tako bilo)


Ponovo ću se složiti sa Aleksandrom, samo ću dodati, da u slučaju da se nema internet konekcija (kao što je ja do skoro nisam mogao imati), MSDN je ipak jedino rešenje...Ko će pamtiti sve te sintaxe itd....I na kraju ću priznati da se na es-u može mnogo toga naučiti i...zato smo tu, zar ne...?
 
Odgovor na temu

[es] :: Visual Basic 6 :: mouse over efekt

[ Pregleda: 3155 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.