[es] - Mouse Move Slika i to...

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net.

Sajt: www.nsc.ba

+4 Profil

Mouse Move Slika i to...

^{05.03.2005. u 16:06 - pre 232 meseci}

Kako bi bilo najlakše napraviti da kad se mišem pređe preko neke slike da se umjesto te pojavi neka druga i ponovo vrati stara slika kad se miš smakne sa te slike. Da pojednostavim evo primjera.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

Slika1.JPG - 1.66k

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net.

Sajt: www.nsc.ba

+4 Profil

Re: Mouse Move Slika i to...

^{05.03.2005. u 16:08 - pre 232 meseci}

Evo slikovito:

pa kad se miš nanese na ovu sliku izgleda ovako

pa kad se miš smakne ponovo

ali se mora uzeti u uobzir da može biti veoma dosta ovakvih slika te bi pojedinačno vraćanje dosta usporavalo program.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

Slika2.JPG - 1.71k

Odgovor na temu

urnebes
Dražen Kukić
Požega

Član broj: 50524
Poruke: 43
*.net.t-com.hr.

Sajt: urnebes.netfirms.com

Profil

Re: Mouse Move Slika i to...

^{05.03.2005. u 17:32 - pre 232 meseci}

===============kad pokazivač miša dođe na sliku=====================
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image1.Picture = LoadPicture("putanja do slike2 i njeno ime s ekst)
im1=1

End Sub
============================================================

==================kad se pokazivač miša makne sa slike================
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image1.Picture = LoadPicture("putanja do slike1 i njeno ime s ekst)

End Sub
=============================================================

::RE5PECT::

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.adsl.net.t-com.hr.

+8 Profil

Re: Mouse Move Slika i to...

^{05.03.2005. u 17:34 - pre 232 meseci}

offtopic ali... Ubuduće koristi CODE tagove.

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net.

Sajt: www.nsc.ba

+4 Profil

Re: Mouse Move Slika i to...

^{05.03.2005. u 19:28 - pre 232 meseci}

urnebes nisi me dobro razumio. Ja mogu to da odradim ali šta ako imam na desetine takvih slika i to još jedna do druge, tako da ovo Form_MouseMove se neće izvršiti. Tako da ja mislim da bi trebalo kao što mi reče Željko izvršiti oprimizaciju koda ili napraviti neku f-ju da program nebi imao poteškoća sa radom.

I ♥ ♀

Ovaj post je zlata vrijedan!

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

Re: Mouse Move Slika i to...

^{06.03.2005. u 02:03 - pre 232 meseci}

mozda da napravis array picture box-eva:

Code:

'prvo napravi dva string array-a:
Dim normal() As String
Dim over() As String

Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim k As Integer

For k=Picture1.LBound To Picture1.UBound
   If k=Index Then
      Picture1(k).Picture=LoadPicture(over(k))
   Else
      Picture1(k).Picture=LoadPicture(normal(k))
   End If
Next

End Sub
'i takodje:
Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim k As Integer

   For k=Picture1.LBound To Picture1.UBound
      Picture1(k).Picture=LoadPicture(normal(k))
   Next

End Sub

to bi trebalo da vrsi stvar, samo naravno normal() i over() moras da napunis sa putanjama do slika za svaki picbox. recimo
Picture1(0):
normal(0)=App.Path & "\gfx\button0_normal.bmp"
over(0)=App.Path & "\gfx\button0_overl.bmp"
Picture1(1):
normal(1)=App.Path & "\gfx\button1_normal.bmp"
over(1)=App.Path & "\gfx\button1_overl.bmp"
....

Pozdrav!

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

urnebes
Dražen Kukić
Požega

Član broj: 50524
Poruke: 43
*.net.t-com.hr.

Sajt: urnebes.netfirms.com

Profil

Re: Mouse Move Slika i to...

^{08.03.2005. u 18:15 - pre 232 meseci}

mislim da je ovo najjednostavnije:
image1 treba biti istih dimenzija kao i image2, mora biti na istom mjestu (jedan na drugom) i u opcijama kod Image1 visible mora biti na True, a Image2 visible na false. tako isto i za image3 i image4, image5 i image6, image7 i image8.......

CODE:

Dim v

Private Sub Form_Load()
v = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case (v)

Case 1
Image2.Visible = False
Image1.Visible = True
v = 0

Case 2
Image4.Visible = False
Image3.Visible = True
v = 0

Case 3
Image6.Visible = False
Image5.Visible = True
v = 0

Case 4
Image8.Visible = False
Image7.Visible = True
v = 0

End Select

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
Image2.Visible = True
v = 1
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 1
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image4.Visible = True
v = 2

End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 2
End Sub

Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.Visible = False
Image6.Visible = True
v = 3
End Sub

Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 3
End Sub

Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.Visible = False
Image8.Visible = True
v = 4
End Sub

Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 4
End Sub

::RE5PECT::

Odgovor na temu