mouse over efekt

[ Dimitar Spiroski @ 06.03.2007. 20:37 ] @

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.

[ Pekunio @ 06.03.2007. 20:41 ] @

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

[ Dimitar Spiroski @ 06.03.2007. 20:50 ] @

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

[ Pekunio @ 06.03.2007. 21:00 ] @

mmm ne znam kako da ti pomognem,ali sam umesto onoga MsgBox... upisi kod da vrati na staru sliku...

[ Dimitar Spiroski @ 06.03.2007. 21:45 ] @

nije to kako sto ocu.

[ dennycd2 @ 06.03.2007. 22:01 ] @

Vidi ovo...

[ Aleksandar Ružičić @ 06.03.2007. 23:30 ] @

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)....

[ dennycd2 @ 07.03.2007. 00:54 ] @

Krckova varijanta je dobra, ali ako se primeni, recimo, na CommandButton...itd..??? Objekat je nefunkcionalan.

[ Aleksandar Ružičić @ 07.03.2007. 17:11 ] @

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)

[ Dimitar Spiroski @ 07.03.2007. 19:37 ] @

Citat:

dennycd2: Vidi ovo...

yeste to rabote i svidza mi se ali slabo kapiram kod.Jel mozes d mi ga objasnis?

[ dennycd2 @ 08.03.2007. 16:28 ] @

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.

[ Dimitar Spiroski @ 08.03.2007. 18:19 ] @

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

[ dennycd2 @ 08.03.2007. 20:23 ] @

Ozbiljijeg rada u VB nema bez MSDN-a. Link za download nemam. Možda bi neko drugi mogao da pomogne ....!?

[ Aleksandar Ružičić @ 08.03.2007. 22:22 ] @

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)

[ dennycd2 @ 08.03.2007. 23:29 ] @

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...?